كيف تُنشئ قائمةً تحتوي على أسماء جميع أوراق العمل من ملف العمل؟

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

احصل على قائمة بجميع اسم ورقة العمل من ملف العمل ديناميكيًّا باستخدام الصيغ

احصل على قائمة بجميع اسم ورقة العمل من ملف العمل باستخدام Kutools لـ Excel

احصل على قائمة بجميع اسم ورقة العمل من ملف العمل باستخدام كود VBA

احصل على قائمة بجميع اسم ورقة العمل من ملف العمل ديناميكيًّا باستخدام الصيغ

في Excel، يمكنك تحديد اسم الخلية، ثم تطبيق صيغة لسرد جميع أسماء الأوراق من المصنف الحالي، يُرجى اتباع الخطوات التالية:

1. انتقل إلى النقر على «صيغة» > «مدير الأسماء»، كما هو موضح في لقطة الشاشة التالية:

2. في مربع الحوار «مدير الأسماء»، انقر على زر «جديد» (انظر لقطة الشاشة).

3. في مربع الحوار المنبثق «اسم جديد»، أدخل اسمًا في مربع النص «الاسم»، ثم انسخ الصيغة أدناه إلى مربع النص «يشير إلى»، كما هو موضح في لقطة الشاشة:

=GET.WORKBOOK(1)&T(NOW())

4. بعد ذلك، انقر على «موافق» > «إغلاق» لإغلاق مربعات الحوار. ثم انتقل إلى الورقة التي تريد سرد أسماء الأوراق فيها، وأدخل الصيغة التالية في خلية فارغة:

=IFERROR(INDEX(MID(Sheetnames,FIND("]",Sheetnames)+1,255),ROWS($A$2:A2)),"")

ملاحظة: في الصيغة أعلاه، يشير «Sheetnames» إلى اسم الخلية الذي أنشأته في الخطوة 3.

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

6. إذا رغبت في إنشاء رابط تشعبي لكل ورقة، فاستخدم الصيغة التالية:

=HYPERLINK("#'"&A2&"'!A1","Go To Sheet")

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

7. الآن، عند النقر على نص الرابط التشعبي، سيتم نقلك مباشرةً إلى تلك الورقة—انظر العرض التوضيحي أدناه:

احصل على قائمة بجميع اسم ورقة العمل من ملف العمل باستخدام Kutools لـ Excel

باستخدام أداة «إنشاء جدول الارتباط» من الإضافة الخارجية «Kutools لـ Excel»، يمكنك إنشاء قائمة تحتوي على أسماء جميع أوراق العمل بنقرة واحدة، مع ربط كل ورقة برابط تشعبي مباشر.

1. انقر على «KUTOOLS PLUS» > «ورقة عمل» > «إنشاء جدول الارتباط»، كما هو موضح في لقطة الشاشة:

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

(1.) اختر «النمط» الذي تفضّله، ويمكنك إنشاء اسم ورقة العمل باستخدام روابط تشعبية أو أزرار ماكرو. (2.) أدخل اسم ورقة العمل لفهرس الورقة. (3.) حدد موقع فهرس ورقة العمل. (4.) حدد عدد الأعمدة التي ترغب في استخدامها في ورقة عمل جديدة لعرض اسم ورقة العمل.

3. بعد الانتهاء من الإعدادات، انقر على «موافق». الآن، تم عرض جميع أسماء أوراق العمل مع روابطها في ورقة عمل جديدة ضمن المصنف الحالي. انظر لقطة الشاشة:

اسم ورقة العمل مع روابط تشعبية	اسم ورقة العمل مع أزرار ماكرو

احصل على قائمة بجميع اسم ورقة العمل من ملف العمل باستخدام كود VBA

1. اضغط مع الاستمرار على مفتاحَي «ALT» + "F11" لفتح نافذة «مايكروسوفت فيجوال بيسك للتطبيقات».

2. انقر على «إدراج» > «وحدة»، ثم الصق الماكرو التالي في نافذة «الوحدة».

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" لتشغيل هذا الماكرو. الآن، تم سرد جميع أسماء أوراق العمل من المصنف الحالي في ورقة عمل جديدة باسم «فهرس»، مع روابط تشعبية تؤدي إلى كل ورقة على حدة. انظر لقطة الشاشة أدناه:

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