كيفية إنشاء ورقة إذا لم تكن موجودة في المصنف؟

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

قم بإنشاء ورقة إذا لم تكن موجودة في المصنف برمز VBA

---

قم بإنشاء ورقة إذا لم تكن موجودة في المصنف برمز VBA

يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية في التحقق من اسم ورقة عمل معين إذا كان موجودًا في المصنف ، وإذا لم يكن الأمر كذلك ، فقد تنشئ التعليمات البرمجية الورقة حسب حاجتك.

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

كود فبا: قم بإنشاء ورقة إذا لم تكن موجودة في المصنف:

Sub TestSheetCreate()
'Updateby Extendoffice
    Dim newSheetName As String
    Dim checkSheetName As String
    newSheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
                                    "sheet4", , , , , 2)
    On Error Resume Next
    checkSheetName = Worksheets(newSheetName).Name
    If checkSheetName = "" Then
        Worksheets.Add.Name = newSheetName
        MsgBox "The sheet named ''" & newSheetName & _
        "'' does not exist in this workbook but it has been created now.", _
        vbInformation, "Kutools for Excel"
        
    Else
        MsgBox "The sheet named ''" & newSheetName & _
        "''exist in this workbook.", vbInformation, "Kutools for Excel"
    End If
End Sub

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

4. ثم اضغط OK الزر:

(1.) في حالة وجود الورقة ، سيظهر مربع موجه لتذكيرك كما هو موضح في لقطة الشاشة التالية:

(2.) إذا لم تكن الورقة موجودة ، فسيتم إنشاؤها في الحال ، انظر الصورة: