4 طرق فعالة لسرد أسماء جميع أوراق العمل في مصنف Excel

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

سرد أسماء جميع الأوراق في مصنف

• باستخدام النسخ واللصق (يدويًا)
• باستخدام Kutools لـ Excel (سهل، وأسماء الأوراق قابلة للربط)
• باستخدام نطاق الاسم (القائمة في ورقة جديدة)
• باستخدام VBA (غير مستقر)

سرد أسماء جميع الأوراق في مصنف

يقدم هذا البرنامج التعليمي أربع طرق فعالة لسرد جميع الأوراق في مصنف. اختر الطريقة التي تناسب احتياجاتك بشكل أفضل واتبع التعليمات خطوة بخطوة لتحقيق المهمة بكفاءة.

باستخدام النسخ واللصق (يدويًا)

أسهل طريقة لسرد أسماء جميع أوراق العمل تتضمن عملية يدوية:

الخطوة 1: افتح مصنفًا جديدًا

الخطوة 2: انقر نقرًا مزدوجًا على تبويب الورقة الذي تريد نسخه

الخطوة 3: اضغط على مفتاحي Ctrl + C لنسخ اسم الورقة

الخطوة 4: انقر فوق خلية واضغط على Ctrl + V للصق اسم الورقة

الخطوة 5: كرر الخطوات أعلاه لنسخ ولصق جميع أسماء أوراق العمل في المصنف واحدًا تلو الآخر

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

باستخدام Kutools لـ Excel (سهل، وأسماء الأوراق قابلة للربط)

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

انقر "Kutools Plus" > "Worksheet" > "Create List of Sheet Names". في مربع الحوار المنبثق، حدد الإعدادات:

1. اختر نمط الفهرسة (كيف تريد عرض أسماء الأوراق القابلة للربط: كنص رابط تشعبي أو أزرار).

2. أعطِ اسمًا للورقة الجديدة التي ستسرد أسماء الأوراق.

3. حدد موقع الورقة الجديدة.

4. اختر عدد الأعمدة المستخدمة لتقسيم أسماء الأوراق.

5. انقر "موافق".

   

للاطلاع السريع والتنقل السلس بين الأوراق، فإن "Navigation pane" في Kutools لـ Excel فعال للغاية. لا يسرد فقط جميع أسماء الأوراق كروابط قابلة للنقر للوصول السهل، ولكنه يعرض أيضًا جميع المصنفات المفتوحة، مما يسهل التبديل السريع بينها.

باستخدام نطاق الاسم (القائمة في ورقة جديدة)

في Excel، يمكنك سرد جميع أسماء الأوراق بكفاءة في ورقة جديدة عن طريق إنشاء نطاق مسمى.

الخطوة 1: انقر الصيغ > تحديد اسم

الخطوة 2: حرر الاسم والصيغة في مربع الحوار الجديد للاسم

• "Name": اكتب اسمًا لنطاق الاسم

• "Refers to": انسخ والصق الصيغة أدناه إليه

  =REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),"")

• انقر "موافق".

  

الخطوة 3: استخدام صيغة لسرد أسماء الأوراق

اكتب الصيغة أدناه في خلية واضغط على مفتاح "Enter" للحصول على جميع أسماء الأوراق.

=TRANSPOSE(ListNames)

ListNames هو الاسم الذي أعطيته لنطاق الاسم في الخطوة أعلاه.

باستخدام VBA (غير مستقر)

الطريقة الأكثر تقدمًا وإمكانية التخصيص تتضمن كتابة برنامج نصي VBA لاستخراج وسرد أسماء أوراق العمل:

الخطوة 1: افتح المصنف الذي تريد سرد أسماء أوراقه

الخطوة 2: اضغط على مفتاحي Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications

الخطوة 3: انقر إدراج الوحدة

الخطوة 4: انسخ والصق الكود أدناه في الوحدة

Sub ListSheetNamesInNewWorkbook()
'UpdatebyExtendoffice
    Dim wbSource As Workbook
    Dim wbTarget As Workbook
    Dim wsTarget As Worksheet
    Dim i As Integer
    
    ' Reference the current workbook
    Set wbSource = ActiveWorkbook
    
    ' Create a new workbook
    Set wbTarget = Workbooks.Add
    Set wsTarget = wbTarget.Sheets(1)
    
    ' List all sheet names from the active workbook in the new workbook
    For i = 1 To wbSource.Sheets.Count
        wsTarget.Cells(i, 1).Value = wbSource.Sheets(i).Name
    Next i
    
    ' Cleanup
    Set wbSource = Nothing
    Set wbTarget = Nothing
    Set wsTarget = Nothing
End Sub

الخطوة 5: اضغط على مفتاح F5 أو انقر زر التشغيل لتشغيل الكود

الآن تم فتح مصنف جديد لسرد جميع أسماء أوراق العمل.

كل طريقة تقدم مزايا مختلفة حسب احتياجاتك - من سرد يدوي بسيط إلى حلول أكثر تطورًا مثل Kutools أو VBA. اختر الطريقة التي تناسب سير عملك بشكل أفضل لإدارة وتصفح أوراق عمل Excel الخاصة بك بفعالية. لمزيد من نصائح وحيل Excel، تابعونا على مدونتنا.