كيفية التنقل بين أوراق العمل باستخدام قائمة منسدلة في Excel؟

لنفترض أن لديك مصنفًا يحتوي على عدة أوراق عمل، والآن تحتاج إلى إنشاء قائمة منسدلة أو مربع تحرير وسرد يسرد جميع أسماء الأوراق، وعندما تختار اسم ورقة من القائمة المنسدلة، سيتم الانتقال إلى تلك الورقة فورًا. في هذه المقالة، سأقدم كيفية التنقل بين أوراق العمل باستخدام قائمة منسدلة في Excel.

التنقل بين أوراق العمل باستخدام قائمة منسدلة في Excel

التنقل بين أوراق العمل باستخدام قائمة منسدلة في Excel

للانتقال إلى كل ورقة محددة باستخدام قائمة منسدلة، يرجى اتباع الخطوات التالية:

1. انقر فوق أدوات المطور > إدراج > مربع تحرير وسرد (ActiveX Control)، انظر لقطة الشاشة:

2. ثم اسحب الماوس لرسم مربع تحرير وسرد، وبعد ذلك انقر بزر الماوس الأيمن عليه، واختر عرض الكود من قائمة السياق، انظر لقطة الشاشة:

3. في نافذة Microsoft Visual Basic for Applications التي تم فتحها، انسخ والصق الكود التالي لتحل محل الكود الأصلي، انظر لقطة الشاشة:

كود VBA: التنقل بين أوراق العمل باستخدام قائمة منسدلة

Private Sub ComboBox1_Change()
'Updateby Extendoffice
    If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_DropButtonClick()
    Dim xSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
        ComboBox1.Clear
        For Each xSheet In ThisWorkbook.Sheets
            ComboBox1.AddItem xSheet.Name
        Next xSheet
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_GotFocus()
    If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub

4. ثم احفظ وأغلق نافذة الكود هذه، وبعد ذلك انقر فوق وضع التصميم لإيقاف تشغيل وضع التصميم، الآن عند اختيار اسم ورقة من مربع التحرير والسرد، سيتم الانتقال إلى تلك الورقة فورًا، انظر لقطة الشاشة: