Ta vadnica vas bo naučila, kako izbrisati ali počistiti delovni list z uporabo VBA.
Izbriši delovni list
Za brisanje delovnega lista uporabite ukaz delete.
Izbrišite delovni list po imenu
| 1 | Listi ("List1"). Izbriši |
Izbrišite delovni list po številki indeksa
Ta koda izbriše prvi delovni list v delovnem zvezku:
| 1 | Listi (1). Izbriši |
Ta koda izbriše zadnji delovni list v delovnem zvezku:
| 1 | Listi (Sheets.Count) .Delete |
Brisanje delovnega lista brez poziva
Ko poskušate izbrisati delovni list, vas bo Excel prosil, da potrdite svoje dejanje:
Te pozive (opozorila) lahko onemogočite s preklopom DisplayAlerts:
| 123 | Application.DisplayAlerts = NapačnoListi ("List1"). IzbrišiApplication.DisplayAlerts = Res |
Izbriši list, če obstaja
Če poskusite izbrisati delovni list, ki ne obstaja, bo VBA ustvaril napako. Z možnostjo On Error Resume Next lahko VBA poveste, naj izbriše list, če ta obstaja, sicer preskočite na naslednjo vrstico kode:
| 123 | On Napaka Nadaljuj NaprejListi ("List1"). IzbrišiPri napaki Pojdi na 0 |
Uporabite lahko tudi našo funkcijo RangeExists, da preverite, ali list obstaja, in če obstaja, ga izbrišite .:
| 123 | Če RangeExists ("Sheet1") PotemListi ("List1"). IzbrišiKonec Če |
Čist list
Ta koda bo izbrisala celotno vsebino, oblike in vse ostalo:
| 1 | Listi ("List1"). Celice.Čisti |
Počisti vsebino lista
Ta koda bo izbrisala vsebino celotnega lista. Oblikovanje, komentarje in vse ostalo bo pustil pri miru:
| 1 | Listi ("List1"). Celice.ClearContents |
Clear Sheet UsedRange
Zgornji primeri bodo izbrisali VSE celice na delovnem listu. Pri velikih listih je to lahko zelo dolgotrajno. Če namesto tega uporabite UsedRange, bo VBA počistil samo »uporabljene« celice, ki vsebujejo vrednosti, oblike itd.
| 1 | Listi ("List1"). UsedRange.Clear |
