نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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

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

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

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

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


جزء التنقل - المصنف ورقة (عرض جميع المصنفات المفتوحة هي قائمة، وجميع الأوراق
من المصنف الحالي قائمة في الجزء، يمكنك النقر فوق اسم الورقة للتبديل إليه.)

دوك قائمة الملاحة القائمة
علامة تبويب Office تمكين التحرير والتصفح في Tabbed ، وجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ الأكثر استخدامًا أو تعقيدًا والمخططات وأي شيء آخر إلى مفضلاتك ، ثم أعد استخدامها سريعًا في المستقبل.
  • أكثر من ميزات نص 20: استخراج الرقم من سلسلة النص ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية ...
  • دمج الأدوات: العديد من المصنفات والأوراق في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقدان البيانات ؛ دمج الصفوف المكررة ومجموع ...
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد إلى ملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة ...
  • لصق الطفر الصفوف المخفية / المصفاة ؛ عدد ومبلغ بواسطة لون الخلفية. إنشاء قائمة بريدية و إرسال رسائل البريد الإلكتروني حسب قيمة الخلية...
  • فلتر سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ فرز حسب الأسبوع ، اليوم ، التردد وغير ذلك ؛ تصفية / فلترة بواسطة جريئة ، الصيغ ، التعليق ...
  • أكثر من ميزات 300 القوية ؛ يعمل مع Office 2007-2019 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.


1. حدد خلية في ورقة فارغة، وهنا حدد أكسنومك ثم انقر فوق الصيغ > تحديد الاسم. انظر الصورة:
وثيقة ديناميكي-worksheetname-قائمة 1

معادلة لا داعي للقلق حول صيغ طويلة طويلة في إكسيل بعد الآن! كوتولس ل إكسيل's النص السيارات يمكن إضافة جميع الصيغ إلى مجموعة
كما نص السيارات، وتحرير الدماغ! انقر هنا لمعرفة النص التلقائي انقر هنا للحصول على نسخة تجريبية مجانية

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

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

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


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

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

وثيقة ديناميكي-worksheetname-قائمة 5 وثيقة ديناميكي-worksheetname-قائمة 6

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

3. في نافذة ظهرت، نسخ ولصق أدناه التعليمات البرمجية فبا في ذلك.

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

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

تلميح:

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

2. يمكنك النقر على اسم ورقة من قائمة الأسماء للذهاب إلى ورقة.

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


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

كوتولس ل إكسيل, مع أكثر من 120 وظائف إكسيل مفيد، وتعزيز كفاءة العمل الخاص بك وتوفير وقت العمل الخاص بك.

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

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

دوك ديناميك وركشيتنام شنومكس

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

وثيقة ديناميكي-worksheetname-قائمة 10
(شنومكس) تحقق من نمط الفهرس الذي تحتاج إليه أنماط مؤشر الورقة قسم.
(شنومكس) اسم ورقة الفهرس الجديد مع كتابة البيانات إلى حدد اسم الورقة ل فهرس الورقة مربع الكتابة؛
(شنومكس) حدد الموقع الذي سيتم وضع ورقة الفهرس المضافة فيه في أدخل فهرس الورقة في قائمة؛
(شنومكس) إذا كنت ترغب في عرض أسماء الأوراق في قائمة واحدة، حدد عمود شنومك في عرض فهرس الورقة قائمة.

3. انقر Ok. الآن يمكنك ان ترى يتم سرد أسماء ورقة.
وثيقة ديناميكي-worksheetname-قائمة 11

نصائح:

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

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

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

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


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

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

1. انقر Kutools > التنقل. انظر لقطة الشاشة:
وثيقة ديناميكي-worksheetname-قائمة 12

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

وثيقة ديناميكي-worksheetname-قائمة 13 وثيقة ديناميكي-worksheetname-قائمة 14

تلميح:

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

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


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

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

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Kelly · 1 years ago
    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!
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Sorry, I do not find that code can finish your job.
  • To post as a guest, your comment is unpublished.
    Ed Bower · 1 years ago
    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.
  • To post as a guest, your comment is unpublished.
    PB · 1 years ago
    Just what I needed and worked perfectly. Thank you!
  • To post as a guest, your comment is unpublished.
    KP · 2 years ago
    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.
  • To post as a guest, your comment is unpublished.
    j4h54n84 · 2 years ago
    how can I use this code to create the list of worksheets in horizontal order instead of vertical? is it possible?
  • To post as a guest, your comment is unpublished.
    Cindy · 2 years ago
    Thank you. It is very useful. :D
  • To post as a guest, your comment is unpublished.
    Nash · 2 years ago
    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
  • To post as a guest, your comment is unpublished.
    Matt · 3 years ago
    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?