انتقل إلى المحتوى الرئيسي

كيف يمكن إنشاء جدول محتويات لجميع الأوراق والتحديثات تلقائيًا؟

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

قم بإنشاء جدول محتويات لجميع الأوراق والتحديثات تلقائيًا باستخدام الصيغ

قم بإنشاء جدول محتويات لجميع الأوراق والتحديثات تلقائيًا باستخدام رمز VBA

قم بإنشاء جدول محتويات لجميع الأوراق والتحديثات تلقائيًا باستخدام ميزة قوية


قم بإنشاء جدول محتويات لجميع الأوراق والتحديثات تلقائيًا باستخدام الصيغ

في Excel ، يمكنك إنشاء جدول محتويات عن طريق تحديد اسم النطاق ، والإشارة إلى الاسم في صيغة ، يرجى اتباع الخطوات التالية:

1. أدخل ورقة جديدة قبل كل الأوراق حيث تريد إنشاء جدول المحتويات وأعد تسميته حسب حاجتك.

2. ثم اضغط المعادلة > حدد الاسم، انظر لقطة الشاشة:

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

4. ثم اضغط OK زر لإغلاق مربع الحوار.

5. الآن ، يرجى الانتقال إلى الورقة الجديدة حيث تريد إنشاء جدول محتويات ، ثم إدخال الصيغة التالية في خلية فارغة:

=IFERROR(INDEX(MID(Sheetlist,FIND("]",Sheetlist)+1,255),ROWS($A$2:A2)),"")
ملاحظات: في الصيغة أعلاه ، قائمة الأوراق هو اسم النطاق الذي أنشأته في الخطوة 2.

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

7. بعد ذلك ، يجب عليك إنشاء ارتباطات تشعبية لمحتويات الجدول ، يرجى استخدام الصيغة أدناه:

= HYPERLINK ("#" "& A2 &" '! A1 "،" الانتقال إلى الورقة ")
ملاحظات: في الصيغة أعلاه ، A2 هي الخلية التي تحتوي على اسم الورقة ، و A1 هي الخلية التي تريد الانتقال إليها في تلك الورقة. على سبيل المثال ، إذا قمت بالنقر فوق نص الارتباط التشعبي ، فسيتم تحديد موقع الخلية A1 في تلك الورقة.

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. النموذج قيد التشغيل الآن ، عند حذف الورقة أو إدراجها أو إعادة تسميتها ، سيتم تحديث محتويات الجدول ديناميكيًا.

ملاحظات: يجب عليك أيضًا حفظ ملف Excel بصيغة مصنف Excel ممكن بماكرو للحفاظ على تشغيل التعليمات البرمجية بنجاح عند فتح المصنف في المرة القادمة.

قم بإنشاء جدول محتويات لجميع الأوراق والتحديثات تلقائيًا باستخدام ميزة قوية

إذا كان لديك كوتولس ل إكسيل، في جزء التنقل يمكن أن تساعدك في سرد ​​جميع أسماء الأوراق في الجزء الأيمن عموديًا ، والتنقل إلى الورقة المحددة بسرعة وسهولة.

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

1. انقر كوتولس > قائمة الإختيارات، انظر لقطة الشاشة:

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

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

نصائح: بشكل افتراضي ، لا تظهر الأوراق المخفية في جزء التنقل ، إذا كنت تريد عرض الأوراق المخفية ، فما عليك سوى النقر فوق الزر التبديل لإظهار / إخفاء كل ورقة (أوراق) العمل المخفية رمز ، انقر فوق هذا الرمز مرة أخرى لإخفاء الورقة المخفية على الفور.

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

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations