انتقل إلى المحتوى الرئيسي

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

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

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

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

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


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

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

1. اذهب للنقر المعادلة > مدير الاسم، انظر لقطة الشاشة:

2. في مدير الاسم مربع الحوار، انقر فوق جديد زر ، انظر لقطة الشاشة:

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

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

4. ثم اضغط OK > اغلاق لإغلاق مربعات الحوار ، الآن ، يرجى الانتقال إلى ورقة حيث تريد إدراج جميع أسماء الأوراق ، ثم إدخال الصيغة التالية في خلية فارغة:

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

ملاحظات: في الصيغة أعلاه ، الألقاب هو اسم النطاق الذي حصلت عليه في الخطوة 3.

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

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

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

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

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

نصائح:
  • 1. باستخدام الصيغ المذكورة أعلاه ، يتم سرد أسماء الأوراق التي تم إنشاؤها بشكل ديناميكي ، عندما تقوم بتغيير اسم الورقة في المصنف ، سيتم تحديث اسم فهرس الصور تلقائيًا.
  • 2. يجب حفظ الملف كملف مصنف Excel ممكن بماكرو التنسيق ، إذا كنت تريد أن تعمل الصيغ جيدًا بعد إغلاق الملف وإعادة فتحه.

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

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

ملحوظة:لتطبيق هذا قم بإنشاء قائمة بأسماء الأوراقأولاً ، يجب عليك تنزيل ملف كوتولس ل إكسيل، ثم قم بتطبيق الميزة بسرعة وسهولة.

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

1. انقر كوتولس بلس > ورقة العمل > قم بإنشاء قائمة بأسماء الأوراق، انظر لقطة الشاشة:

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

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

(2.) أدخل أسماء أوراق العمل لفهرس الورقة.

(3.) حدد موقع فهرس ورقة العمل.

(4) حدد عدد الأعمدة التي تريد استخدامها في ورقة العمل الجديدة لعرض أسماء أوراق العمل.

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

أسماء أوراق العمل ذات الارتباطات التشعبية أسماء أوراق العمل مع أزرار الماكرو
معلومه- سرية: لاستخدام هذه الميزة، يجب عليك تثبيت كوتولس ل إكسيل أولا من فضلك انقر للتنزيل واحصل على نسخة تجريبية مجانية مدتها 30 يومًا الآن.

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

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

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

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