Kako izbrisati določen list, če obstaja v delovnem zvezku?

Kako lahko izbrišete določen delovni list, če obstaja v delovnem zvezku? Običajno ga morate najti in preveriti, če obstaja, ter ga nato ročno izbrisati. Tukaj bom govoril o enostavnem načinu neposrednega brisanja navedenega delovnega lista, če obstaja v Excelovi datoteki.

Izbrišite določen delovni list, če obstaja v delovnem zvezku s kodo VBA

---

Izbrišite določen delovni list, če obstaja v delovnem zvezku s kodo VBA

Naslednja koda VBA vam lahko pomaga izbrisati navedeni delovni list, če obstaja v delovnem zvezku, storite tako:

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: izbrišite določen delovni list, če obstaja v delovnem zvezku

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. Nato pritisnite F5 za zagon te kode se prikaže pozivno polje, ki vas opomni, da vnesete ime lista, ki ga želite preveriti, ali obstaja, glejte posnetek zaslona:

4. In nato kliknite OK gumb:

(1.) Če list obstaja, bo hkrati izbrisan, glejte posnetek zaslona:

(2.) Če list ne obstaja, se bo pojavilo pozivno polje, ki vas bo opozorilo na spodnjo sliko zaslona: