Ovaj vodič će vas naučiti kako izbrisati ili očistiti radni list pomoću VBA.
Izbriši radni list
Za brisanje radnog lista upotrijebite naredbu delete.
Izbrišite radni list po imenu
1 | Listovi ("List 1"). Izbrišite |
Brisanje radnog lista prema broju indeksa
Ovaj kôd briše prvi radni list u radnoj knjizi:
1 | Listovi (1) .Brisati |
Ovaj kôd briše zadnji radni list u radnoj knjizi:
1 | Listovi (Sheets.Count) .Brisati |
Brisanje radnog lista bez upita
Kada pokušate izbrisati radni list, Excel će od vas zatražiti da potvrdite svoju radnju:
Možete onemogućiti ove upite (upozorenja) prebacivanjem DisplayAlerts:
123 | Application.DisplayAlerts = NetačnoListovi ("List 1"). IzbrišiteApplication.DisplayAlerts = Istina |
Izbriši list ako postoji
Ako pokušate izbrisati radni list koji ne postoji, VBA će generirati pogrešku. Pomoću On Error Resume Next možete reći VBA -u da izbriše list ako postoji, u protivnom prijeđite na sljedeći redak koda:
123 | Uključeno Slijedi nastavak greškeListovi ("List 1"). IzbrišiteUključeno Greška Idi na 0 |
Također možete upotrijebiti našu funkciju RangeExists da provjerite postoji li list i ako postoji, izbrišite ga .:
123 | Ako RangeExists ("List1") TadaListovi ("List 1"). IzbrišiteZavrši ako |
Čisti list
Ovaj kôd će izbrisati cijeli sadržaj, formate i sve ostalo:
1 | Listovi ("List1"). Ćelije.Očisti |
Čisti sadržaj lista
Ovaj kôd će izbrisati sadržaj cijelog lista. Ostavit će oblikovanje, komentare i sve ostalo na miru:
1 | Listovi ("List1"). Ćelije.Čisti sadržaj |
Clear Sheet UsedRange
Gornji primjeri izbrisat će SVE ćelije na radnom listu. Na velikim listovima to može oduzeti mnogo vremena. Ako umjesto toga koristite UsedRange, VBA će izbrisati samo "korištene" ćelije koje sadrže vrijednosti, formate itd.
1 | Listovi ("List1"). UsedRange.Clear |