كيفية إنشاء فهرس لجميع أسماء علامات الجداول مع روابط تشعبية في Excel؟

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

إنشاء فهرس باستخدام كود VBA
إنشاء فهرس بسهولة باستخدام Kutools لـ Excel

إنشاء فهرس باستخدام كود VBA

يمكن أن يساعدك الكود التالي من VBA في إنشاء فهرس لجميع أوراق العمل مع روابط تشعبية في Excel. يرجى اتباع الخطوات التالية:

1. اضغط على مفاتيح Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications، انقر فوق إدراج > وحدة، ثم قم بنسخ الكود التالي من VBA إلى نافذة الكود.

كود VBA: إنشاء فهرس لجميع أوراق العمل

Sub CreateTableofcontents()
'updateby Extendoffice 20180413
    Dim xAlerts As Boolean
    Dim I  As Long
    Dim xShtIndex As Worksheet
    Dim xSht As Variant
    xAlerts = Application.DisplayAlerts
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Table of contents").Delete
    On Error GoTo 0
    Set xShtIndex = Sheets.Add(Sheets(1))
    xShtIndex.Name = "Table of contents"
    I = 1
    Cells(1, 1).Value = "Table of contents"
    For Each xSht In ThisWorkbook.Sheets
        If xSht.Name <> "Table of contents" Then
            I = I + 1
            xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
        End If
    Next
    Application.DisplayAlerts = xAlerts
End Sub

3. اضغط على مفتاح F5 أو انقر فوق زر التشغيل لتشغيل الكود.

ثم يتم إنشاء ورقة عمل تحتوي على فهرس أمام جميع أوراق العمل مع سرد جميع أسماء الأوراق داخلها. يمكنك التنقل إلى أي ورقة عمل عن طريق النقر على اسم الورقة في الفهرس. انظر لقطة الشاشة:

إنشاء فهرس بسهولة باستخدام Kutools لـ Excel

أداة إنشاء جدول الارتباط من Kutools لـ Excel يمكن أن تساعدك في إنشاء فهرس بسرعة في المصنف الحالي. يرجى اتباع الخطوات التالية:

1. في المصنف الذي تحتاج فيه لإنشاء فهرس، انقر فوق Kutools Plus > ورقة العمل > إنشاء جدول الارتباط. انظر لقطة الشاشة:

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

ثم يتم إنشاء ورقة عمل تحتوي على فهرس كما هو موضح في لقطة الشاشة أدناه. يمكنك التنقل إلى أي ورقة عمل عن طريق النقر على اسم الورقة في الفهرس.

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

مقالات ذات صلة:

• كيفية الرجوع إلى اسم العلامة في الخلية في Excel؟
• كيفية مطابقة قيمة الخلية مع اسم علامة الورقة أو العكس في Excel؟
• كيفية فتح ورقة عمل محددة حسب القيمة المختارة من مربع تحرير في Excel؟