كيف يمكن إنشاء جدول محتويات لجميع الأوراق والتحديثات تلقائيًا؟
لنفترض أن لديك مصنفًا يحتوي على مئات أوراق العمل ، فقد يتسبب التنقل إلى ورقة معينة بين أوراق متعددة في حدوث صداع لمعظمنا. في هذه الحالة ، قد يساعدك إنشاء جدول محتويات لأوراق العمل هذه على الانتقال إلى ورقة معينة بسرعة وسهولة. سيتحدث هذا البرنامج التعليمي عن كيفية إنشاء جدول محتويات لجميع الأوراق وتحديث الجدول تلقائيًا عند إدراج أسماء الأوراق أو حذفها أو تغييرها أيضًا.
قم بإنشاء جدول محتويات لجميع الأوراق والتحديثات تلقائيًا باستخدام الصيغ
قم بإنشاء جدول محتويات لجميع الأوراق والتحديثات تلقائيًا باستخدام رمز VBA
قم بإنشاء جدول محتويات لجميع الأوراق والتحديثات تلقائيًا باستخدام ميزة قوية
قم بإنشاء جدول محتويات لجميع الأوراق والتحديثات تلقائيًا باستخدام الصيغ
في Excel ، يمكنك إنشاء جدول محتويات عن طريق تحديد اسم النطاق ، والإشارة إلى الاسم في صيغة ، يرجى اتباع الخطوات التالية:
1. أدخل ورقة جديدة قبل كل الأوراق حيث تريد إنشاء جدول المحتويات وأعد تسميته حسب حاجتك.
2. ثم اضغط المعادلة > حدد الاسم، انظر لقطة الشاشة:
3. في اسم جديد مربع الحوار ، حدد اسمًا قائمة الأوراق في الاسم مربع ، يمكنك تغييره إلى الخاص بك ، ثم إدخال هذه الصيغة: = GET.WORKBOOK (1) & T (NOW ()) في يعود الى مربع النص ، انظر لقطة الشاشة:
4. ثم اضغط OK زر لإغلاق مربع الحوار.
5. الآن ، يرجى الانتقال إلى الورقة الجديدة حيث تريد إنشاء جدول محتويات ، ثم إدخال الصيغة التالية في خلية فارغة:
6. ثم اسحب مقبض التعبئة لأسفل إلى الخلايا حتى يتم عرض الخلايا الفارغة ، وتم إدراج جميع أسماء الأوراق (بما في ذلك الأوراق المخفية) من المصنف الحالي كما هو موضح أدناه لقطة الشاشة:
7. بعد ذلك ، يجب عليك إنشاء ارتباطات تشعبية لمحتويات الجدول ، يرجى استخدام الصيغة أدناه:
8. الآن ، عند النقر فوق نص الارتباط التشعبي ، سوف ينتقل إلى تلك الورقة مرة واحدة. وإذا قمت بإدراج ورقة جديدة أو حذف ورقة أو تغيير اسم الورقة ، فسيتم تحديث محتويات الجدول تلقائيًا.
- 1. بهذه الطريقة ، يتم عرض جميع الأوراق المخفية في محتويات الجدول أيضًا.
- 2. يجب حفظ الملف كملف مصنف Excel ممكن بماكرو بهذه الطريقة ، عند فتح هذا الملف في المرة القادمة ، يمكن أن تعمل الصيغ بشكل جيد.
قم بإنشاء جدول محتويات لجميع الأوراق والتحديثات تلقائيًا باستخدام رمز VBA
في بعض الأحيان ، لا تحتاج إلى عرض الأوراق المخفية في محتويات الجدول. لحل هذه المشكلة ، يمكن أن تقدم لك كود فبا التالي معروفًا.
1. أدخل ورقة جديدة قبل كل الأوراق حيث تريد إنشاء جدول المحتويات وأعد تسميته حسب حاجتك. ثم انقر بزر الماوس الأيمن فوق علامة تبويب الورقة واختر عرض الرمز من قائمة السياق ، انظر لقطة الشاشة:
2. في فتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انسخ الكود أدناه والصقه في نافذة كود الورقة:
رمز فبا: أنشئ جدول محتويات لجميع الأوراق والتحديثات تلقائيًا
Private Sub Worksheet_Activate()
‘Updateby ExtendOffice
Dim xWsh As Worksheet
Dim xWshs As Worksheets
Dim xShowHinddenWorkSheet As Boolean
Dim xI As Long
Dim xRg As Range
Dim xStrTitle, xStrTCHeader, xStrWShName As String
xShowHinddenWorkSheet = False 'Change this to True to display the hidden sheets as you need
xStrTitle = "A1"
xStrTCHeader = "A3"
On Error Resume Next
Application.ScreenUpdating = False
Me.Cells.Clear
Me.Range(xStrTitle).Font.Bold = True
Me.Range(xStrTitle).Font.Size = Me.Range(xStrTitle).Font.Size + 2
Me.Range(xStrTitle).Value = "Table of Contents"
Me.Range(xStrTCHeader).Value = "No."
Me.Range(xStrTCHeader).Offset(0, 1).Value = "Sheet Name"
Me.Range(xStrTCHeader).Resize(1, 2).Font.Bold = True
xStrWShName = Me.Name
xI = 1
For Each xWsh In Application.ActiveWorkbook.Worksheets
If xWsh.Name <> xStrWShName Then
If (xWsh.Visible = xlSheetVisible) Or xShowHinddenWorkSheet Then
Me.Hyperlinks.Add Anchor:=Me.Range(xStrTCHeader).Offset(xI, 1), Address:="", SubAddress:="'" & xWsh.Name & "'!A1", TextToDisplay:=xWsh.Name
Me.Range(xStrTCHeader).Offset(xI).Value = xI
xI = xI + 1
End If
End If
Next
Application.ScreenUpdating = True
End Sub
3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، ويتم إنشاء محتويات الجدول مرة واحدة في ورقة العمل الجديدة ، ولن يتم عرض جميع الأوراق المخفية في محتويات الجدول ، انظر لقطة الشاشة:
4. النموذج قيد التشغيل الآن ، عند حذف الورقة أو إدراجها أو إعادة تسميتها ، سيتم تحديث محتويات الجدول ديناميكيًا.
قم بإنشاء جدول محتويات لجميع الأوراق والتحديثات تلقائيًا باستخدام ميزة قوية
إذا كان لديك كوتولس ل إكسيل، في جزء التنقل يمكن أن تساعدك في سرد جميع أسماء الأوراق في الجزء الأيمن عموديًا ، والتنقل إلى الورقة المحددة بسرعة وسهولة.
بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:
1. انقر كوتولس > قائمة الإختيارات، انظر لقطة الشاشة:
2. في الموسع قائمة الإختيارات جزء، انقر فوق مصنف وورقة رمز ، يتم سرد جميع المصنفات المفتوحة في مربع القائمة العلوي ، ويتم عرض جميع الأوراق المرئية داخل المصنف في مربع القائمة السفلية ، انظر لقطة الشاشة:
3. والآن ، يمكنك الانتقال إلى الورقة بمجرد النقر فوق اسم الورقة من الجزء الأيمن. وعند حذف ورقة أو إدراجها أو إعادة تسميتها ، سيتم تحديث قائمة الأوراق في الجزء ديناميكيًا.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!