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

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

إذا كان لديك أوراق متعددة في مصنف ، وتريد إنشاء قائمة ديناميكية لجميع أسماء الأوراق في ورقة جديدة في المصنف ، كيف يمكنك القيام بذلك؟ يقدم هذا البرنامج التعليمي الآن بعض الحيل لإكمال هذه المهمة بسرعة في 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 AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (13)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hallo. hoe zou ik dit kunnen doen om hetzelfde te doen maar met een welbepaade cel van verschillende werkbladen. Bv. een leeg 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 in Cel A2 de gegevens terugvinden van tabblad 2 cel 3. En zou naar beneden en dit in een beweging. We kunnen allemaal afzonderlijk doen, maar als er 500 werkbladen zijn, is dit onmogelijk.

Merci voor den input.
This comment was minimized by the moderator on the site
Hi, I guess you want to list all same cells across multiple sheets, if so, there are two tutorials may help you. Please visit:
How to reference same cell from multiple worksheets in Excel?
How to create a list from same cells across multiple sheets in Excel?
Hope it is helpful.
This comment was minimized by the moderator on the site
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, inclusive com a sugestão de traduzir GET.WORKBOOK para OBTER.LIVRO mas não funcionou.
This comment was minimized by the moderator on the site
Hi, try this: =SUBSTITUIR(INFO.PASTA.TRABALHO(1),"["&INFO.PASTA.TRABALHO(16)&"]","")
This comment was minimized by the moderator on the site
Thanks for this helpful info. I created a dynamic list with VBA code in the Index tab. I found that it only updates when I click back to the Index tab, though. Is there a way to ensure it auto updates as soon as a new tab is created? I refer to the tab names elsewhere in the workbook and others will be using it so I'm trying to make it seamless. Thank you!
This comment was minimized by the moderator on the site
Sorry, I do not find that code can finish your job.
This comment was minimized by the moderator on the site
Or you can simply rightClick either the left or right tab-horizontal-scroll arrow at the bottomLeft, and then click the worksheet name (from the simple vertical list) that you want to jump to.
This comment was minimized by the moderator on the site
Just what I needed and worked perfectly. Thank you!
This comment was minimized by the moderator on the site
Defining the name "Sheets" in the define name DOES NOT WORK. The "refers to" box will not save the formula as typed and converts it to a text string.
This comment was minimized by the moderator on the site
how can I use this code to create the list of worksheets in horizontal order instead of vertical? is it possible?
This comment was minimized by the moderator on the site
Thank you. It is very useful. :D
This comment was minimized by the moderator on the site
How can i remove the links to each sheets and how to not include the "sheet1" and "Index" sheet? 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
This comment was minimized by the moderator on the site
How would I go about editing this code to include a checkbox to the left of the link that I could use to hide rows on a cover sheet? Also how could I insert a row on the worksheets below A1 to have the return to index link show up there?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations