كيفية إنشاء فهرس لجميع أسماء علامات الجداول مع روابط تشعبية في 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. في مربع الحوار إنشاء جدول الارتباط، تحتاج إلى:
ثم يتم إنشاء ورقة عمل تحتوي على فهرس كما هو موضح في لقطة الشاشة أدناه. يمكنك التنقل إلى أي ورقة عمل عن طريق النقر على اسم الورقة في الفهرس.
إذا قمت بتحديد خيار إنشاء أزرار وماكروهات في قسم اختيار أنماط الفهرس، ستحصل على فهرس كما هو موضح في لقطة الشاشة أدناه.
إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يوم) من هذه الأداة، يرجى النقر لتنزيلها، ثم الانتقال لتطبيق العملية وفقًا للخطوات المذكورة أعلاه.
مقالات ذات صلة:
- كيفية الرجوع إلى اسم العلامة في الخلية في Excel؟
- كيفية مطابقة قيمة الخلية مع اسم علامة الورقة أو العكس في Excel؟
- كيفية فتح ورقة عمل محددة حسب القيمة المختارة من مربع تحرير في Excel؟
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...
Office Tab يجلب واجهة التبويب إلى Office ويجعل عملك أسهل بكثير
- تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.





- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد