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

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

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

Comments (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
First, thanks to the author. And adding the Czech version.

tp 3. =O.KNIZE(1)&T(NYNÍ())
tp 4. =IFERROR(INDEX(ČÁST(nazvylistu;NAJÍT("]";nazvylistu)+1;255);ŘÁDKY($A$2:A4));"")
This comment was minimized by the moderator on the site
Hello,

je viens de tester la méthode via macros (dynamique avec formules) et ça marche au poil donc je tiens vraiment à remercier l'auteur de cet article parce que ça va vraiment m'aider dans mon travail ! Juste, je me permet de corriger les formules pour la version française. Et alors je ne sais pas si c'est parce que je suis sous la version 2019 mais Excel rouspète quand il n'y a pas d'argument en 3ème position de la fonction STXT ("MID" en version anglaise) donc obligé d'en rajouter un. Donc voilà ce que ça donne :

=LIRE.CLASSEUR(1)&T(MAINTENANT())

=SIERREUR(INDEX(STXT(nomsFeuilles;TROUVE("]";nomsFeuilles)+1,255;20);LIGNES($A$2:A2));"")

Bon travail à tous ! ;-)
This comment was minimized by the moderator on the site
Hello, Gizmil
Thank you for your comment, there are some functions are only available for English in Excel.
Your formula may help others.
Thanks again!
This comment was minimized by the moderator on the site
I close and open my document and all values in my sheet names column are all gone and blank but still the formula is there. I tried entering the same formula but it doesn't show the value anymore
This comment was minimized by the moderator on the site
Hello, Anne,
Sorrry for replying late, after creating the range names and formulas, you should save the workbook as Excel Macro-Enabled Workbook format, so next time, when you open the Excel file,the formulas can work well.
Please try, hope it can help you!
This comment was minimized by the moderator on the site
I tried this one and it works. But when I close and open the file again all the values in my sheet names are blank and gone but the formula is still there. I tried enteing the same formula again but it doesn't show the value anymore
This comment was minimized by the moderator on the site
BRILLIANT!! Thank you so much! 😊
This comment was minimized by the moderator on the site
Causes problems when document protection is enabled by email or corporate policy
This comment was minimized by the moderator on the site
Thanks so much, this worked great.
This comment was minimized by the moderator on the site
Works great!! Thank you!!!!
This comment was minimized by the moderator on the site
sooooo helpful, works as expected!!!!! Thanks
This comment was minimized by the moderator on the site
THANK YOU SO MUCH! I freaking love your website. In a matter of minutes I've had a ton of time saved with two sections of this site including this one. Love it!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations