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

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

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

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

قم بإنشاء قائمة ديناميكية بأسماء أوراق العمل برمز VBA

قم بإنشاء قائمة ديناميكية بأسماء أوراق العمل باستخدام Kutools for Excel فكرة جيدة 3

عرض قائمة ديناميكية بأسماء أوراق العمل مع كوتولس ل إكسيل فكرة جيدة 3


1. حدد خلية في ورقة فارغة ، وهنا أحدد A1 ، ثم انقر الصيغ > حدد الاسم. انظر لقطة الشاشة:
doc-dynamic-workheetname-list-1

2. ثم في اسم جديد الحوار، نوع أوراق داخل ال الاسم مربع نص (يمكنك التغيير حسب حاجتك) ، واكتب هذه الصيغة = الاستبدال (GET.WORKBOOK (1)، "[" & GET.WORKBOOK (16) & "]"، "") في مربع نص يشير إلى. انظر لقطة الشاشة:
doc-dynamic-workheetname-list-2

3. انقر OK. انتقل إلى الخلية المحددة (A1) واكتب هذه الصيغة = INDEX (جداول البيانات ، الصفوف ($ A $ 1: $ A1)) (A1 هي الخلية التي تكتب هذه الصيغة ، "جداول البيانات" هو الاسم الذي حددته في الخطوة 2) بداخلها ، ثم اسحب مقبض الملء التلقائي لأسفل حتى #REF! يبدو.
doc-dynamic-workheetname-list-3

معلومه- سرية: إذا تمت إزالة أوراق العمل أو إضافتها ، فستحتاج إلى الانتقال إلى A1 والضغط على مفتاح Enter ثم قم بإزالة مقبض الملء التلقائي مرة أخرى.
doc-dynamic-workheetname-list-4


إذا كنت تريد إنشاء قائمة ديناميكية بأسماء أوراق العمل التي يمكن ربطها بكل ورقة ، يمكنك استخدام التعليمات البرمجية لـ VBA.

1. قم بإنشاء ورقة عمل جديدة وأعد تسميتها بالفهرس. انظر لقطة الشاشة:

doc-dynamic-workheetname-list-5       doc-dynamic-workheetname-list-6

2. انقر بزر الماوس الأيمن فوق اسم ورقة الفهرس ، وحدد عرض الرمز من قائمة السياق. انظر لقطة الشاشة:
doc-dynamic-workheetname-list-7

3. في النافذة المنبثقة ، انسخ والصق رمز VBA أدناه.

VBA: إنشاء قائمة ديناميكية بأسماء أوراق العمل.

Private Sub Worksheet_Activate()
	'Updateby20150305
	Dim xSheet As Worksheet
	Dim xRow As Integer
	Dim calcState As Long
	Dim scrUpdateState As Long
	Application.ScreenUpdating = False
	xRow                       = 1
	With Me
		.Columns(1).ClearContents
		.Cells(1, 1) = "INDEX"
		.Cells(1, 1).Name = "Index"
	End With
	For Each xSheet In Application.Worksheets
		If xSheet.Name <> Me.Name Then
			xRow                     = xRow + 1
			With xSheet
				.Range("A1").Name = "Start_" & xSheet.Index
				.Hyperlinks.Add anchor: = .Range("A1"), Address: = "", _
				SubAddress:             = "Index", TextToDisplay: = "Back to Index"
			End With
			Me.Hyperlinks.Add anchor: = Me.Cells(xRow, 1), Address: = "", _
			SubAddress: = "Start_" & xSheet.Index, TextToDisplay: = xSheet.Name
		End If
	Next
	Application.ScreenUpdating = True
End Sub

4. انقر يجري or F5 لتشغيل VBA ، يتم الآن إنشاء قائمة ديناميكية بأسماء أوراق العمل.
doc-dynamic-workheetname-list-8

تلميح:

1. عند حذف ورقة العمل الخاصة بالمصنف أو إدراجها ، ستتغير قائمة أسماء أوراق العمل تلقائيًا.

2. يمكنك النقر فوق اسم الورقة لقائمة الأسماء للانتقال إلى الورقة.

مع الطريقتين المذكورتين أعلاه ليستا ملائمتين بما فيه الكفاية ، إذا كنت مهتمًا بأداة مساعدة جديدة ، فيمكنك الانتقال إلى الطريقتين التاليتين اللتين قد تجعل هذه المهمة أكثر سهولة.


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

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

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

اسم ورقة العمل الديناميكية doc 17

2. في ال قم بإنشاء قائمة بأسماء الأوراق الحوار:

 قائمة اسم ورقة العمل الديناميكية doc 2
(1) تحقق من نمط الفهرس الذي تريده أنماط فهرس الورقة قسم.
(2) قم بتسمية فهرس الصور الجديد بكتابة البيانات فيه حدد اسم الورقة لفهرس الورقة مربع الكتابة؛
(3) حدد الموقع الذي ستضع فيه فهرس الصور المضافة في أدخل فهرس الورقة في قائمة؛
(4) إذا كنت تريد عرض أسماء الأوراق في قائمة واحدة ، فحدد عمودًا واحدًا في عرض فهرس الورقة في قائمة.

3. انقر Ok. الآن يمكنك رؤية أسماء الأوراق مدرجة.
doc kutools إنشاء قائمة الأوراق 3

نصيحة:

1. يمكنك النقر فوق اسم الورقة للانتقال بسرعة إلى الورقة الأصلية.

2. لا يمكن تغيير أسماء القائمة أو الورقة ديناميكيًا مع إدراج الأوراق أو حذفها.

3. في الواقع ، يمكنك أيضًا إنشاء قائمة من الأزرار لربط الورقة النسبية ، ما عليك سوى التحقق يحتوي على أزرار ووحدات ماكرو في الحوار. انظر screeshshot:
doc kutools إنشاء قائمة الأوراق 4

انقر هنا لمعرفة المزيد حول إنشاء قائمة بأسماء الأوراق.


إذا كنت مع كوتولس ل إكسيل، يمكنك أيضًا استخدام ملف قائمة الإختيارات لعرض أسماء أوراق العمل القابلة للربط في جزء

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

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

تلميح:

عندما تكون هناك أوراق عمل محذوفة أو مضافة ، يمكنك النقر فوق زر التحديث جزء التنقل doc 2 في ال الملاحة وتحديدجزء n لتحديث أسماء أوراق العمل.

انقر هنا لمزيد من المعلومات حول التنقل.


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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (13)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنني تحرير هذا الرمز لتضمين مربع اختيار على يسار الارتباط الذي يمكنني استخدامه لإخفاء الصفوف في ورقة الغلاف؟ كيف يمكنني أيضًا إدراج صف في أوراق العمل الموجودة أسفل A1 لإظهار ارتباط العودة إلى الفهرس هناك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنني إزالة الارتباطات إلى كل ورقة وكيفية عدم تضمين ورقة "الورقة 1" و "الفهرس"؟ Private Sub Worksheet_Activate () 'Updateby20150305 Dim xSheet As ورقة عمل Dim xRow As Integer Dim calcState As Long Dim scrUpdateState As Long Application.ScreenUpdating = False xRow = 1 Me .Columns (1) .ClearContents .Cells (1، 1) = "INDEX ".Cells (1، 1) .Name =" Index "تنتهي بكل ورقة xSheet في التطبيق. أوراق العمل If xSheet.Name Me.Name ثم xRow = xRow + 1 With xSheet .Range (" A1 "). Name =" Start_ "& xSheet.Index. Hyperlinks.Add anchor: = .Range (" A1 ")، Address: =" "، _ SubAddress: =" Index "، TextToDisplay: =" Back to Index "End With Me.Hyperlinks.Add anchor : = Me.Cells (xRow، 1)، Address: = ""، _ SubAddress: = "Start_" & xSheet.Index، TextToDisplay: = xSheet.Name End If Next Application.ScreenUpdating = True End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا لك. مفيد جدا. :د
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنني استخدام هذا الكود لإنشاء قائمة أوراق العمل بترتيب أفقي بدلاً من الرأسي؟ هل هو ممكن؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تحديد الاسم "جداول البيانات" في اسم التعريف لا يعمل. لن يحفظ مربع "يشير إلى" الصيغة كما كتبته ويحولها إلى سلسلة نصية.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
فقط ما احتاجه وعملت بشكل مثالي. شكرًا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أو يمكنك ببساطة النقر بزر الماوس الأيمن فوق سهم التمرير الأفقي بعلامة التبويب اليسرى أو اليمنى في الجزء السفلي الأيسر ، ثم النقر فوق اسم ورقة العمل (من القائمة الرأسية البسيطة) التي تريد الانتقال إليها.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا على هذه المعلومات المفيدة. لقد أنشأت قائمة ديناميكية برمز VBA في علامة تبويب الفهرس. اكتشفت أنه يتم تحديثه فقط عند النقر مرة أخرى على علامة التبويب "الفهرس". هل هناك طريقة للتأكد من أنه يتم تحديثه تلقائيًا بمجرد إنشاء علامة تبويب جديدة؟ أشير إلى أسماء علامات التبويب في مكان آخر في المصنف وسيستخدمها الآخرون لذا أحاول جعلها سلسة. شكرًا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
آسف ، لا أجد أن الرمز يمكنه إنهاء عملك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Em português brasileiro، GET.WORKBOOK é identificado como uma função no Gerenciador de Nomes para criar o nome "Sheets"، mas ao Referenciar "Sheets" numa célula، aparece o erro "#NOME؟". Tentei várias vezes ، شاملة com a sugestão de traduzir GET.WORKBOOK para OBTER.LIVRO mas não funcionou.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، جرب هذا: = SUBSTITUIR (INFO.PASTA.TRABALHO (1) ، "[" & INFO.PASTA.TRABALHO (16) & "]"، "")
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا. hoe zou ik dit kunnen doen om hetzelfde te doen maar met een welbepaade cel van verschillende werkbladen. بف. عين ليج tabblad. mijn andere werkbladen hebben allemaal dezelfde Lay-out، maar in iedere cel een andere tekst. Nu zou ik graag in mijn leeg tabblad in Cel A1 de gegevens terugvinden van tabblad1 cel B3. Maar dan zou ik graag في Cel A2 de gegevens terugvinden van tabblad 2 cel 3. En zou naar beneden en dit in een beweging. نحن كنن allemaal afzonderlijk doen، maar als er 500 werkbladen zijn، dit onmogelijk.

مدخلات Merci voor den.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أعتقد أنك تريد سرد جميع الخلايا نفسها عبر أوراق متعددة ، إذا كان الأمر كذلك ، فهناك برنامجان تعليميان قد يساعدك. يرجى زيارة:
كيفية الرجوع إلى نفس الخلية من أوراق عمل متعددة في إكسيل؟
كيفية إنشاء قائمة من نفس الخلايا عبر أوراق متعددة في إكسيل؟
اتمنى ان تكون مفيدة
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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