كيفية إنشاء قائمة ديناميكية بأسماء أوراق العمل في إكسيل؟
إذا كان لديك أوراق متعددة في مصنف ، وتريد إنشاء قائمة ديناميكية لجميع أسماء الأوراق في ورقة جديدة في المصنف ، كيف يمكنك القيام بذلك؟ يقدم هذا البرنامج التعليمي الآن بعض الحيل لإكمال هذه المهمة بسرعة في 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 والضغط على مفتاح الإدخال ثم سحب مقبض التعبئة التلقائية مرة أخرى.
قم بإنشاء قائمة ديناميكية بأسماء أوراق العمل برمز 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. في ال قم بإنشاء قائمة بأسماء الأوراق الحوار:
(2) قم بتسمية فهرس الصور الجديد بكتابة البيانات فيه حدد اسم الورقة لفهرس الورقة مربع الكتابة؛
(3) حدد الموقع الذي ستضع فيه فهرس الصور المضافة في أدخل فهرس الورقة في قائمة؛
(4) إذا كنت تريد عرض أسماء الأوراق في قائمة واحدة ، فحدد عمودًا واحدًا في عرض فهرس الورقة في قائمة.
3. انقر Ok. الآن يمكنك رؤية أسماء الأوراق مدرجة.
نصيحة:
1. يمكنك النقر فوق اسم الورقة للانتقال بسرعة إلى الورقة الأصلية.
2. لا يمكن تغيير أسماء القائمة أو الورقة ديناميكيًا مع إدراج الأوراق أو حذفها.
3. في الواقع، يمكنك أيضًا إنشاء قائمة من الأزرار للربط بالأوراق النسبية، ما عليك سوى التحقق يحتوي على أزرار ووحدات ماكرو في الحوار. انظر screeshshot:
انقر هنا لمعرفة المزيد حول إنشاء قائمة بأسماء الأوراق.
أنشئ قائمة بأسماء الأوراق قابلة للنقر
عرض قائمة ديناميكية بأسماء أوراق العمل مع كوتولس ل إكسيل
إذا كنت مع كوتولس ل إكسيل، يمكنك أيضًا استخدام ملف قائمة الإختيارات لعرض أسماء أوراق العمل القابلة للربط في جزء
بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:
1. انقر كوتولس > قائمة الإختيارات. انقر مصنف وورقة لإظهار المصنف وورقة العمل ، ويمكنك تحديد مصنف ، ثم سيتم عرض أوراق العمل الخاصة به في ملف قائمة الإختيارات جزء. انظر لقطة الشاشة:
تلميح:
عندما تكون هناك أوراق عمل محذوفة أو مضافة ، يمكنك النقر فوق زر التحديث في ال الملاحة وتحديدجزء n لتحديث أسماء أوراق العمل.
انقر هنا لمزيد من المعلومات حول التنقل.
جزء التنقل - قائمة الأوراق
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!