كيف تُنشئ فهرسًا يحتوي على أوراق مرتبطة بروابط تشعبية في دفتر العمل؟
في عملنا اليومي، غالبًا ما يحتوي ملف دفتر العمل على عدة أوراق عمل. فكيف يمكنك إنشاء فهرس لعلامات أوراق العمل في ورقة عمل واحدة، مع ربط كل تبويب برابط تشعبي؟ في هذه المقالة، سأعرض بعض الحيل السريعة للتعامل مع هذه المهمة في Excel.
إنشاء فهرس بأوراق مرتبطة بروابط تشعبية باستخدام كود VBA
إنشاء فهرس بأوراق مرتبطة بروابط تشعبية باستخدام إنشاء جدول الارتباط من Kutools لـ Excel
إنشاء فهرس بأوراق مرتبطة بروابط تشعبية باستخدام التنقل (Navigation) من Kutools لـ Excel
إنشاء فهرس بأوراق مرتبطة بروابط تشعبية باستخدام كود VBA
قد يساعدك كود VBA التالي في إنشاء فهرسٍ يحتوي على أسماء الأوراق في ورقة عمل جديدة توضع أمام باقي أوراق المصنف. يُرجى اتباع الخطوات التالية:
1. اضغط باستمرار على مفتاحَيALT + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات (Microsoft Visual Basic for Applications).
2. انقرإدراج (Insert) > وحدة نمطية (Module)، ثم الصق الكود التالي في نافذةالوحدة النمطية (Module).
كود VBA: إنشاء فهرس بأوراق مرتبطة بروابط تشعبية
Sub CreateIndex()
'updateby Extendoffice
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("Index").Delete
On Error GoTo 0
Set xShtIndex = Sheets.Add(Sheets(1))
xShtIndex.Name = "Index"
I = 1
Cells(1, 1).Value = "INDEX"
For Each xSht In ThisWorkbook.Sheets
If xSht.Name <> "Index" 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 لتنفيذ هذا الكود، وسيتم إدراج ورقة عمل جديدة باسم "Index" في دفتر العمل قبل جميع الأوراق، تتضمّن أسماء الأوراق مع روابط تشعبية. راجع لقطة الشاشة:

إنشاء فهرس بأوراق مرتبطة بروابط تشعبية باستخدام إنشاء جدول الارتباط من Kutools لـ Excel
باستثناء كود VBA أعلاه، يمكنك أيضًا إنجاز هذه المهمة بسهولة باستخدام الأداة المفيدةKutools لـ Excel؛ فبفضل ميزتهاإنشاء جدول الارتباط، يمكنك إنشاء فهرس سريع لأسماء الأوراق يتضمّن روابط تشعبية أو أزرارًا.
بعد تثبيتKutools لـ Excel، يُرجى اتباع الخطوات التالية:
1. انقرKUTOOLS PLUS > ورقة العمل (Worksheet) > إنشاء جدول الارتباط، راجع لقطة الشاشة:

2. في مربع الحوارإنشاء جدول الارتباط، يُرجى ضبط الخيارات التالية:
- اختر نمط فهرس واحد، يمكنك استخدامروابط تشعبيةأوأزرارلفهرس أسماء الأوراق؛
- حدد اسمًا للورقة التي سيتم وضع فهرس الأوراق فيها حسب احتياجك؛
- حدد الموقع الذي تريد وضع فهرس الأوراق فيه؛
- اختر عدد الأعمدة التي ترغب في عرض قائمة أسماء الأوراق ضمنها.

3.بعد الانتهاء من الإعدادات، انقر على زرموافق (Ok)، وسيتم إنشاء ورقة عمل جديدة يحتوي على فهرس أسماء الأوراق كما يلي:
| أسماء الأوراق مع روابط تشعبية | أسماء الأوراق باستخدام الأزرار |
![]() | ![]() |
انقر لمعرفة المزيد من التفاصيل حول ميزة إنشاء جدول الارتباط هذه…
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
إنشاء فهرس بأوراق مرتبطة بروابط تشعبية باستخدام التنقل (Navigation) من Kutools لـ Excel
Kutools لـ Excelتأتي مع خاصيةالتنقل (Navigation)التي تعرض لك جميع أسماء الأوراق في لوحة جانبية على اليسار، ويمكنك النقر على أي اسم ورقة للانتقال مباشرةً إلى تلك الورقة!
بعد تثبيتKutools لـ Excel، يُرجى اتباع ما يلي:
1. انقرKutools > التنقل (Navigation)، راجع لقطة الشاشة:

2. بعد ذلك، انقر على أيقونةالدفتر والورقة (Workbook & Sheet)لتوسيع التنقل:
![]() | 1. يتم سرد جميع الدفاتر المفتوحة هنا. |
| 2. يتم عرض أوراق العمل المرئية في المصنف الحالي ضمن مربع القائمة أدناه، ويمكنك الانتقال إلى الورقة المحددة بالنقر عليها من اللوحة. |
انقر لمعرفة المزيد عن هذا التنقل…
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل


