Hogyan lehet törölni egy adott lapot, ha létezik a munkafüzetben?

Hogyan lehet törölni egy adott munkalapot, ha az létezik egy munkafüzetben? Normális esetben meg kell találnia és ellenőriznie kell, ha létezik, majd manuálisan törölnie kell. Itt beszélek a megadott munkalap közvetlen törlésének egyszerű módjáról, ha az létezik az Excel fájlban.

Töröljön egy adott munkalapot, ha létezik egy VBA kóddal ellátott munkafüzetben

---

Töröljön egy adott munkalapot, ha létezik egy VBA kóddal ellátott munkafüzetben

A következő VBA-kód segíthet a megadott munkalap törlésében, ha létezik a munkafüzetben, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA kód: Töröljön egy adott munkalapot, ha létezik a munkafüzetben

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, megjelenik egy felszólító doboz, amely emlékezteti Önt, hogy írja be a lap nevét, amelyet ellenőrizni szeretne, ha létezik, lásd a képernyőképet:

4. Kattintson a gombra OK gomb:

(1.) Ha a lap létezik, akkor azonnal törli, lásd a képernyőképet:

(2.) Ha a lap nem létezik, megjelenik egy felszólító mező, amely emlékezteti Önt a következő képernyőkép szerint: