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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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 ، يتم الآن إنشاء قائمة ديناميكية بأسماء أوراق العمل.

تلميح:

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

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

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

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

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

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

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

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

 

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

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

نصيحة:

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

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

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

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

  أنشئ قائمة بأسماء الأوراق قابلة للنقر

Kutools for Excel: أكثر من 300 وظيفة يجب أن تكون لديك في Excel ، 30- يوم تجريبي مجاني من هنا

---

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

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

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

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

تلميح:

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

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

  جزء التنقل - قائمة الأوراق

---

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

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

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

اقرأ أكثر... تحميل مجاني ... شراء... 

---

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

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...