كيفية إنشاء قائمة بجميع أسماء أوراق العمل من مصنف؟

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

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

احصل على قائمة بأسماء جميع أوراق العمل من مصنف باستخدام Kutools for 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 for Excel

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

1. انقر على "Kutools Plus" > "ورقة عمل" > "إنشاء قائمة بأسماء الأوراق"، انظر لقطة الشاشة:

2. في مربع الحوار "إنشاء قائمة بأسماء الأوراق"، يرجى تحديد الإعدادات التالية:

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

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

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

احصل على قائمة بجميع أسماء أوراق العمل من مصنف برمز VBA

1. اضغط باستمرار على مفتاحي "ALT" + "F11"، وسيتم فتح نافذة "Microsoft Visual Basic for Applications".

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

فبا: سرد كافة أسماء أوراق العمل ذات الارتباطات التشعبية في ورقة عمل جديدة:

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

٣. اضغط على مفتاح "F3" لتشغيل هذا الماكرو. تُدرج الآن جميع أسماء أوراق العمل من المصنف النشط في ورقة عمل جديدة باسم "الفهرس"، مع روابط تشعبية تُتيح الوصول إلى كل ورقة. انظر لقطة الشاشة أدناه:

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