كيفية إنشاء قائمة منسدلة تحتوي على روابط تشعبية لكل ورقة في Excel؟

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

إنشاء قائمة منسدلة تحتوي على روابط تشعبية للأوراق

إنشاء قائمة قابلة للنقر بأسماء الأوراق

إنشاء قائمة منسدلة تحتوي على روابط تشعبية للأوراق

لإنشاء قائمة منسدلة في Excel تتضمن روابط تشعبية لكل ورقة في المصنف، يمكنك تحقيق ذلك باستخدام كود VBA بسيط.

1. انقر فوق المطور > إدراج > مربع تحرير (ActiveX Controls).

ملاحظة: إذا لم يظهر تبويب المطور في الشريط، يرجى النقر فوق ملف > الخيارات > تخصيص الشريط، ثم تحقق من خيار المطور في الصندوق الأيمن. انظر لقطة الشاشة:

2. بعد ذلك ارسم مربع تحرير في أي مكان تريده.

3. انقر بزر الماوس الأيمن على الورقة التي رسمت فيها مربع التحرير الآن، وانقر فوق عرض الكود من قائمة السياق.

4. انسخ والصق الكود أدناه إلى البرنامج النصي الفارغ، ثم احفظه للعودة إلى الورقة.

VBA: إنشاء قائمة منسدلة مع روابط الأوراق

 Private Sub ComboBox1_Change()
'UpdatebyExtendoffice20180404
    Sheets(Me.ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_GotFocus()
    Dim I As Long
    Me.ComboBox1.Style = fmStyleDropDownList
    If Me.ComboBox1.ListCount <> Sheets.Count Then
        Me.ComboBox1.Clear
        For I = 1 To ActiveWorkbook.Sheets.Count
            Me.ComboBox1.AddItem Sheets(I).Name
        Next
    End If
    Me.ComboBox1.DropDown
End Sub

5. انقر فوق المطور > وضع التصميم للخروج من وضع التصميم.

الآن تم سرد جميع الأوراق في القائمة المنسدلة، وسيتم الانتقال إلى الورقة عند النقر على اسم الورقة.

إنشاء قائمة قابلة للنقر بأسماء الأوراق

إذا كنت تفضل إنشاء قائمة بأسماء الأوراق القابلة للنقر، كما هو موضح في لقطة الشاشة أدناه، يمكنك استخدام Kutools لـ Excel’s إنشاء جدول الارتباط هذه الأداة تتيح لك توليد قائمة بالروابط التشعبية لأسماء الأوراق أو قائمة بأزرار الماكرو المرتبطة بكل ورقة.

1. انقر فوق Kutools Plus > أدوات الورقة العمل > إنشاء جدول الارتباط.

2. في مربع حوار إنشاء جدول الارتباط، قم بما يلي:

(1). تحقق من إنشاء ارتباطات تشعبية لإنشاء قائمة بأسماء الأوراق القابلة للنقر، أو تحقق من إنشاء أزرار وماكروهات لإنشاء أزرار مرتبطة بكل ورقة.

(2). أعطِ الورقة الجديدة التي ستضع فيها الروابط اسمًا.

(3). حدد موقع الورقة الجديدة.

(4). حدد عدد الأعمدة التي سيتم عرض الروابط بها.

3. انقر فوق موافق، الآن تم عرض أسماء الأوراق القابلة للنقر في الورقة الجديدة.

عرض: إنشاء قائمة قابلة للنقر بأسماء الأوراق