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

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

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

---

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

يمكن أن يساعدك رمز VBA التالي على حذف ورقة العمل المحددة إذا كانت موجودة في المصنف ، يرجى القيام بذلك على النحو التالي:

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

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

رمز فبا: احذف ورقة عمل محددة إذا كانت موجودة في المصنف

Sub Test()
'Updateby Extendoffice
    Dim xWs As Worksheet
    Dim sheetName As String
    sheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
                                    "sheet1", , , , , 2)
    Application.DisplayAlerts = False
    Err.Clear
    On Error Resume Next
    Set xWs = Sheets(sheetName)
    If Err <> 0 Then
        MsgBox "The'" & sheetName & "'" & "does not exist!", vbInformation, "Kutools for Excel"
        Exit Sub
    Else
        xWs.Delete
        MsgBox "The'" & sheetName & "'" & "has been deleted!", vbInformation, "Kutools for Excel"
    End If
    Application.DisplayAlerts = True
End Sub

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

4. ثم انقر فوق OK الزر:

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

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