كيف تُنشئ جدول محتويات يشمل جميع الأوراق ويتم تحديثه تلقائيًا؟
تخيل أن لديك دفتر عمل يحتوي على مئات أوراق العمل—التنقّل بينها للعثور على ورقة معيّنة قد يكون أمرًا مرهقًا لمعظمنا! في مثل هذه الحالة، يُعد إنشاء جدول محتويات لهذه الأوراق حلاً ذكيًا يمكّنك من الانتقال إلى الورقة المطلوبة بسرعة وسهولة. سيوضح لك هذا البرنامج التعليمي كيفية إنشاء جدول محتويات يشمل جميع الأوراق، مع تحديثه تلقائيًا كلما أضفت أوراقًا جديدة أو حذفتها أو غيّرت أسماءها.
استخدم صيغة لإنشاء جدول محتويات لجميع الأوراق وتحديثه تلقائيًا
استخدم Kutools لـ Excel لإنشاء جدول محتويات لجميع الأوراق وتحديثه تلقائيًا
استخدم كود VBA لإنشاء جدول محتويات لجميع الأوراق وتحديثه تلقائيًا
استخدم صيغة لإنشاء جدول محتويات لجميع الأوراق وتحديثه تلقائيًا
في Excel، يمكنك إنشاء جدول محتويات بسهولة عن طريق تحديد اسم لخلية ما، ثم الرجوع إلى هذا الاسم في صيغة. يُرجى اتباع الخطوات التالية:
1. أدرج ورقة جديدة قبل جميع الأوراق التي ترغب في إنشاء جدول المحتويات فيها، ثم أعد تسميتها بالاسم الذي تريده.
2. بعد ذلك، انقر على «صيغة» > «تحديد اسم»، كما هو موضح في لقطة الشاشة التالية:
3. في مربع الحوار «اسم جديد»، اكتب اسمًا مثل «Sheetlist» في حقل «الاسم»—مع إمكانية تغييره إلى ما يناسبك—ثم أدخل الصيغة التالية في مربع النص «يشير إلى».
=GET.WORKBOOK(1)&T(NOW())
4. بعد ذلك، انقر على زر «موافق» لإغلاق مربع الحوار.
5. الآن، انتقل إلى الورقة الجديدة التي ترغب في إنشاء جدول المحتويات بها، ثم أدخل الصيغة التالية في خلية فارغة:
=IFERROR(INDEX(MID(Sheetlist,FIND("]",Sheetlist)+1,255),ROWS($A$2:A2)),"")6. بعد ذلك، اسحب مقبض التعبئة لأسفل حتى تظهر خلايا فارغة، ليتم عرض جميع أسماء الأوراق (بما في ذلك الأوراق المخفية) الخاصة بالمصنف الحالي كما هو موضح في لقطة الشاشة أدناه:
7. بعد ذلك، أنشئ ارتباطًا تشعبيًّا لمحتويات الجدول باستخدام الصيغة التالية:
=HYPERLINK("#'"&A2&"'!A1","Go To Sheet")
8. الآن، عند النقر على نص الارتباط التشعبي، ستنتقل مباشرةً إلى تلك الورقة. وإذا أدرجت ورقة جديدة أو حذفت ورقة أو غيّرت اسمها، فسيتم تحديث محتويات الجدول تلقائيًا.
- 1. باستخدام هذه الطريقة، تظهر جميع الأوراق المخفية في محتويات الجدول أيضًا.
- 2. يجب عليك حفظ الملف بتنسيق «دفتر عمل Excel المُمكَّن من ماكرو»، وبهذا سيضمن لك أن تعمل الصيغ بشكل مثالي عند فتح الملف في المرة القادمة.
استخدم Kutools لـ Excel لإنشاء جدول محتويات لجميع الأوراق وتحديثه تلقائيًا
إذا كنت تمتلك «Kutools لـ Excel»، فإن ميزة «التنقّل» فيه تتيح لك عرض جميع أسماء الأوراق في لوحة جانبية بشكل عمودي، والانتقال إلى الورقة المطلوبة بسرعة وسهولة.
بعد تثبيت Kutools لـ Excel، يُرجى اتباع ما يلي:
1. انقر على «Kutools» > «التنقّل»، كما في لقطة الشاشة:
2. في لوحة «التنقل» الموسّعة، انقر على أيقونة «الدفتر والورقة»؛ فتظهر جميع دفاتر العمل المفتوحة في مربع القائمة العلوي، وجميع الأوراق المرئية داخل دفتر العمل في مربع القائمة السفلي، كما في لقطة الشاشة:
3. والآن، يمكنك الانتقال إلى الورقة بنقرة واحدة على اسمها من اللوحة الجانبية. وعند حذف ورقة أو إدراجها أو إعادة تسميتها، تُحدَّث قائمة الأوراق في اللوحة تلقائيًّا.
استخدم كود VBA لإنشاء جدول محتويات لجميع الأوراق وتحديثه تلقائيًا
أحيانًا، قد لا ترغب في عرض الأوراق المخفية في جدول المحتويات. ولحل هذه المشكلة، يمكن لرمز VBA التالي مساعدتك.
1. أدرج ورقة جديدة قبل جميع الأوراق التي ترغب في إنشاء جدول المحتويات بناءً عليها، ثم أعد تسميتها بالاسم الذي تفضّله. بعد ذلك، انقر بزر الماوس الأيمن على لسان الورقة واختر «عرض الكود» من القائمة السياقية، كما هو موضح في لقطة الشاشة:
2. في نافذة «مايكروسوفت فيجوال بيسيك للتطبيقات» المفتوحة، انسخ الكود أدناه والصقه في نافذة كود الورقة:
كود VBA: إنشاء جدول محتويات لجميع الأوراق وتحديثه تلقائيًا
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. بدءًا من الآن، سيُحدَّث جدول المحتويات تلقائيًّا كلما قمت بحذف ورقة أو إدراجها أو إعادة تسميتها.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل