Note: The other languages of the website are Google-translated. Back to English

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

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


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

في 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 ممكن بماكرو التنسيق ، إذا كنت تريد أن تعمل الصيغ جيدًا بعد إغلاق الملف وإعادة فتحه.

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

يمكن أن تساعدك أكواد VBA التالية في سرد ​​كافة أسماء أوراق العمل في ورقة عمل جديدة. يرجى القيام بذلك على النحو التالي:

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

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

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

تحديث Sub CreateIndex () ' Extendoffice
    Dim xAlerts as Boolean Dim I As Long Dim xShtIndex as the 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.Add (Sheets.Add (Sheets. (1)) xShtIndex.Name = "Index" I = 1 Cells (1، 1) .Value = "INDEX" لكل xSht في ThisWorkbook.Sheets If xSht.Name <> "Index" ثم I = I + 1 xShtIndex. الارتباطات التشعبية.إضافة خلايا (I، 1)، ""، "" & xSht.Name & "'! A1"، xSht.Name End If Next Application.DisplayAlerts = xAlerts End Sub

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


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

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

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

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

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

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

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

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

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

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

انقر للتنزيل والإصدار التجريبي المجاني Kutools for Excel الآن!

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

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

انقر للتنزيل والإصدار التجريبي المجاني Kutools for Excel الآن!


المزيد من المقالات ذات الصلة:

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

أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (19)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
رائع - ولكن كيف أفعل ذلك في Visio ، أي لفهرس أوراق العمل في Visio؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيفية إدراج اسم الورقة الخاص بـ WB الفرعي وإدراجها في WB الرئيسي؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تنشئ خطوة "النطاق" في ماكرو ListWorkSheetNames خطأ وقت التشغيل 1004: فشل نطاق أسلوب الكائن العمومي. لقد حفظته في وحدة PERSONAL.XLSB ، يتم تشغيلها من جدول بيانات ممكّن بماكرو في Office10. ماذا ينقصني؟ ListWorkSheetNames () الفرعية لـ i = 1 To Sheets.Count Range (”A” & i) = Sheets (i). الاسم التالي i End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أفضل ما عملت مثل السحر
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إنه عمل رائع مثل السحر
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يعمل كود VBA بشكل جيد لتوفير الأوقات على الإطلاق ، شكرًا كثيرًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أود أن أعرف كيفية سرد لون علامة التبويب بجوار اسم علامة التبويب في هذا الماكرو؟ على سبيل المثال في قائمة ورقة KutoolsforExcel: العمود A العمود B TabName1 أصفر
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا لك! أنا غريب أحب موقع الويب الخاص بك. في غضون دقائق ، تمكنت من توفير الكثير من الوقت في قسمين من هذا الموقع بما في ذلك هذا القسم. أحبها!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مفيد جدا ، يعمل كما هو متوقع !!!!! شكرًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يعمل بشكل رائع !! شكرًا لك!!!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا ، هذا عمل بشكل رائع.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يتسبب في حدوث مشكلات عند تمكين حماية المستندات عن طريق البريد الإلكتروني أو سياسة الشركة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
متألق!! شكراً جزيلاً! 😊
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد جربت هذا وهو يعمل. ولكن عندما أغلق وأفتح الملف مرة أخرى ، فإن جميع القيم الموجودة في أسماء الأوراق الخاصة بي فارغة وتختفي ولكن الصيغة لا تزال موجودة. حاولت الدخول في نفس الصيغة مرة أخرى لكنها لا تظهر القيمة بعد الآن
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أقوم بإغلاق وفتح المستند الخاص بي وجميع القيم الموجودة في عمود أسماء الأوراق الخاصة بي كلها اختفت وفارغة ولكن لا تزال الصيغة موجودة. حاولت إدخال نفس الصيغة لكنها لا تظهر القيمة بعد الآن
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا آن ،
نأسف للرد المتأخر ، بعد إنشاء أسماء النطاق والصيغ ، يجب عليك حفظ المصنف باسم مصنف Excel ممكن بماكرو التنسيق ، لذلك في المرة القادمة ، عند فتح ملف Excel ، يمكن أن تعمل الصيغ بشكل جيد.
من فضلك حاول ، آمل أن يساعدك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،

je viens de tester la méthode via macros (dynamique avec formules) et ça marche au poil donc je tiens vraiment a 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 charge d ' أون راجوتر الأمم المتحدة. Donc voilà ce que ça donne:

= LIRE.CLASSEUR (1) & T (الصيانة ())

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

Bon travail à tous! ؛-)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا يا جيزميل
شكرًا لك على تعليقك ، هناك بعض الوظائف متاحة فقط للغة الإنجليزية في Excel.
قد تساعد صيغتك الآخرين.
شكرا مرة أخرى!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أولا ، شكرا للمؤلف. وإضافة النسخة التشيكية.

tp 3. = O.KNIZE (1) & T (NYNÍ ())
tp 4. =IFERROR(INDEX(ČÁST(nazvylistu;NAJÍT("]";nazvylistu)+1;255);ŘÁDKY($A$2:A4));"")
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL