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

تخيل أن لديك مصنفًا يحتوي على أوراق عمل متعددة وتريد سرد أسماء جميع الأوراق تلقائيًا، مع روابط نصية قابلة للنقر للانتقال إلى كل ورقة عمل. يقدم هذا البرنامج التعليمي طرقًا سريعة وفعالة لإنشاء قائمة بأسماء أوراق العمل في 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"، ويفتح نافذة "Microsoft Visual Basic for Applications".

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

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