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:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!