Skip to main content

كيفية سرد جميع الأوراق المرئية أو المخفية من المصنف؟

Author: Xiaoyang Last Modified: 2025-05-30

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

A screenshot of an Excel workbook with visible and hidden sheets listed separately

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

سرد جميع الأوراق المرئية في Excel باستخدام Kutools لـ Excel


arrow blue right bubble سرد جميع الأوراق المرئية والمخفية بشكل منفصل باستخدام كود VBA

لسرد أسماء التبويبات المرئية والمخفية في ورقة عمل، قد يساعدك الكود التالي لـ VBA، يرجى القيام بما يلي:

1. اضغط مع الاستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

كود VBA: سرد جميع الأوراق المرئية والمخفية بشكل منفصل:

Sub NameSheets()
'Updateby Extendoffice
    Dim x As Long, y As Long, z As Long
    Dim ws As Worksheet
    Dim shtCnt As Integer
    x = 1
    y = 1
    z = 1
    shtCnt = ThisWorkbook.Sheets.Count
    On Error Resume Next
    Application.ScreenUpdating = False
    Sheets.Add After:=Sheets(Sheets.Count)
    For i = 1 To shtCnt
        If Sheets(i).Visible = xlSheetHidden Then
            Cells(x, 2) = Sheets(i).Name
            x = x + 1
        End If
        If Sheets(i).Visible = xlSheetVisible Then
           Cells(y, 1) = Sheets(i).Name
            y = y + 1
        End If
        If Sheets(i).Visible = xlSheetVeryHidden Then
            Cells(z, 3) = Sheets(i).Name
            z = z + 1
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

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

A screenshot showing the results of the VBA code listing visible, hidden, and very hidden sheets


arrow blue right bubble سرد جميع الأوراق المرئية في Excel باستخدام Kutools لـ Excel

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

Kutools لـ Excel يقدم أكثر من 300 ميزة متقدمة لتبسيط المهام المعقدة، مما يعزز الإبداع والكفاءة. بالتكامل مع قدرات الذكاء الاصطناعي، يقوم Kutools بأتمتة المهام بدقة، مما يجعل إدارة البيانات أمرًا سهلاً للغاية. معلومات تفصيلية عن Kutools لـ Excel... نسخة تجريبية مجانية...

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:

1. انقر فوق Kutools Plus > ورقة العمل > إنشاء جدول الارتباط، انظر لقطة الشاشة:

A screenshot of the Create List of Sheet Names option in Kutools tab on the ribbon

2. في مربع الحوار إنشاء جدول الارتباط:

(1.) حدد إنشاء ارتباطات تشعبية ضمن قسم نمط فهرس الورقة؛

(2.) أدخل اسم ورقة العمل لفهرس الورقة.

(3.) حدد موقع فهرس ورقة العمل.

(4.) حدد عدد الأعمدة التي تريد عرض أسماء أوراق العمل فيها في فهرس الورقة.

A screenshot of the Create List of Sheet Names dialog box

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

A screenshot of the sheet index created by Kutools, listing visible sheets only

Kutools لـ Excel - قم بتعزيز Excel بأكثر من 300 أدوات أساسية. استمتع بميزات ذكاء اصطناعي مجانية بشكل دائم! احصل عليه الآن

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

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

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


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

  • تمكين تحرير وقراءة المستندات عبر التبويبات في Word وExcel وPowerPoint.
  • افتح وأنشئ عدة مستندات في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ منفصلة.
  • يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات بالماوس يومياً!