كيفية حذف ورقة العمل بناءً على قيمة الخلية في Excel؟

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

حذف ورقة العمل بناءً على قيمة الخلية باستخدام كود VBA

حذف ورقة العمل بناءً على قيمة الخلية باستخدام كود VBA

هنا، سأقدم لك كودًا يمكنك من خلاله حذف جميع الأوراق التي تحتوي الخلية المحددة فيها على قيمة معينة، يرجى القيام بما يلي:

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

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

كود VBA: حذف ورقة العمل بناءً على قيمة الخلية:

Sub deletesheetbycell()
'Updateby Extendoffice
    Dim shName As String
    Dim xName As String
    Dim xWs As Worksheet
    Dim cnt As Integer
    shName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _
                                    "", , , , , 2)
    Application.DisplayAlerts = False
    cnt = 0
    For Each xWs In ThisWorkbook.Sheets
        If xWs.Range("A1").Value = shName Then
            xWs.delete
            cnt = cnt + 1
        End If
    Next xWs
    Application.DisplayAlerts = True
    MsgBox "Have deleted " & cnt & " worksheets.", vbInformation, "Kutools for Excel"
End Sub

ملاحظة: في الكود أعلاه، A1 هي الخلية المحددة التي تحتوي على نص معين تريد حذف الأوراق بناءً عليه.

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

4. وبعد ذلك انقر فوق زر موافق، سيتم حذف جميع الأوراق التي تحتوي الخلية A1 فيها على النص KTE دفعة واحدة. انظر إلى لقطة الشاشة: