كيفية إنشاء مصنف جديد بعدد محدد من أوراق العمل؟

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

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

إنشاء مصنف جديد بعدد محدد من أوراق العمل باستخدام Kutools لـ Excel

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

يمكنك استخدام الكود التالي VBA لإنشاء مصنف جديد يحتوي على عدد محدد من التبويبات.

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

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

كود VBA: إنشاء مصنف جديد بعدد محدد من أوراق العمل

Sub MakeWorkbook()
'update Extendoffice
    Dim xOldCount As Integer
    Dim xNewCount As Variant
    xOldCount = Application.SheetsInNewWorkbook
    xNewCount = Application.InputBox("How many sheets in the new workbook do you want?", "Kutools for Excel", , , , , , 1)
    If xNewCount = False Then Exit Sub
    If (xNewCount < 1) Or (CLng(xNewCount) > 255) Then
        MsgBox "The number must be between 1 and 255!"
        Exit Sub
    End If
    With Application
        .SheetsInNewWorkbook = xNewCount
        .Workbooks.Add
        .SheetsInNewWorkbook = xNewCount
    End With
End Sub

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

4. ثم انقر فوق زر موافق، سيتم إنشاء المصنف الجديد بالعدد المحدد من الأوراق التي تحتاجها.

إنشاء مصنف جديد بعدد محدد من أوراق العمل باستخدام Kutools لـ Excel

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

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

1. انقر فوق المؤسسة > ورقة العمل > إنشاء ورقة عمل متتابعة، انظر إلى لقطة الشاشة:

2. في مربع الحوار إنشاء أوراق عمل متتابعة، قم بالعمليات التالية:

(1.) حدد ورقة عمل فارغة من قائمة القائمة المنسدلة بناءً على ورقة العمل؛

(2.) أدخل عدد الأوراق داخل المصنف الجديد ضمن مربع النص عدد الإنشاء؛

(3.) من قسم اسم ورقة العمل بناءً على، حدد خيار اسم افتراضي لـ Excel.

3. ثم انقر فوق زر موافق، وسيتم إنشاء المصنف الجديد بالعدد المحدد من أوراق العمل الخاصة بك.

انقر لمعرفة المزيد حول هذه الأداة إنشاء ورقة عمل متتابعة…

مقالات ذات صلة:

كيفية إنشاء أوراق عمل متتابعة من نطاق خلايا في Excel؟

كيفية إضافة ورقة عمل جديدة بتاريخ اليوم الحالي في Excel؟