Postoje slučajevi kada moramo stvoriti ili dodati list, a kasnije smo utvrdili da nema koristi od tog lista, pa moramo brzo izbrisati list iz radne knjige. Ovaj se članak fokusira na uštedu vremena i pruža kôd za uklanjanje listova bez ikakvog okvira za poruke pomoću vba makronaredbe / koda. To može biti jedan ili više listova. Excel daje skočno upozorenje za potvrdu brisanja lista. Ako ima jedan list, njime se može upravljati. Ali ako morate izbrisati nekoliko listova, dobit ćete jedan skočni prozor po listu.
Često stvarate više listova pomoću VBA. Ali na kraju, zapravo vam ne trebaju. Željeli biste ih izbrisati nakon što obavite posao. Tako će vaša datoteka biti lakša, brža i razumnija.
VBA kôd za brisanje lista je jednostavan
Listovi ("SheetName"). Izbrišite
Recimo da imate ovaj kôd za dodavanje lista, a zatim ga obrišite kad posao završi.
Sub AddAndDeleteSheet () Sheets.Add 'Dodaje novi list u aktivnu radnu knjigu' ---- '----' ---- 'neki rad na listu je obavljen ActiveSheet.Delete' briše aktivnu završnu podlogu aktivnog lista
Kada izvršite ovaj kôd, Sheets.Add će raditi bez ikakvog upita, ali kad dođe prevodilac ActiveSheet.Delete potaknut će ovakvu poruku.
Budući da brišete listove pomoću VBA -a, znate što radite. Htjeli biste Excel reći da ne prikazuje ovo upozorenje i izbrisati prokleti list.
Da bismo to učinili, isključit ćemo gumb upozorenja na zaslonu Excel aplikacije.
Kôd u nastavku zaobići će ovu poruku upozorenja, a list će se izbrisati bez ikakvih naznaka.
Sub AddAndDeleteSheet () Application.DisplayAlerts = False 'isključivanje gumba upozorenja Sheets.Add' ---- '----' ---- 'neki rad na listu je završen ActiveSheet.Delete Application.DisplayAlerts = True' uključivanje gumb upozorenja End Sub
Ovdje brišemo Activesheet pomoću VBA. Pomoću VBA možete izbrisati bilo koji list. Samo napišite Tablice ("Naziv lista"). Izbrišite. Idemo dalje…
DisplayAlerts je svojstvo Application objekta u VBA. Ovdje ga isključujemo na početku koda i uključujemo ga na kraju koda. Gornji kôd će potvrditi brisanje bez ikakvih naznaka.
Bilješka:Gornji kod zanemarit će sva upozorenja koja je uputio Excel. Ako želite dopustiti samo brisanje lista, upotrijebite ovaj redak.
Application.DisplayAlerts = Netačno 'isključivanje gumba upozorenja ActiveSheet.Delete Application.DisplayAlerts = Istina' uključivanje gumba upozorenja
Time ćete zanemariti samo upozorenje o brisanju lista.
Profesionalni savjet: Ovi redovi koda čine vaš VBA kod učinkovitijim.Uvijek ih koristite na početku makronaredbe i ponovo ih uključite gdje god se očekuje da vaš kôd izađe iz rutine.Upozorenje: Ako nije uključeno prije izlaska iz potprograma, možda nećete vidjeti nikakvo upozorenje. Čak i ako vaš kôd nije pokrenut. To može uzrokovati mnoge probleme.
Ako morate izbrisati više listova i koristite petlju, pokušajte ovaj kod -
Opcija Eksplicitna podmakro2 () Dim i As Long Application.DisplayAlerts = False For i = 1 to Worksheets.Count If Worksheets (i) .Ime Like "Test*" then Worksheets (i) .Delete Next i Application.DisplayAlerts = True End Pod
To je to. Gotovo je. Lako je poput uključivanja i isključivanja ventilatora. Zar ne?
Ako vam se sviđaju naši blogovi, podijelite ih sa svojim prijateljima na Facebooku. Također nas možete pratiti na Twitteru i Facebooku.
Voljeli bismo čuti vaše mišljenje, javite nam kako možemo poboljšati, nadopuniti ili inovirati svoj rad i učiniti ga boljim za vas. Pišite nam na web mjesto e -poštePreuzmi datoteku
Brisanje listova bez upita za potvrdu pomoću VBA u programu Microsoft Excel
Podijelite Excel list u više datoteka na temelju stupca pomoću VBA
Promijenite zadani pisač pomoću VBA u programu Microsoft Excel 2016
Isključite poruke upozorenja pomoću VBA u programu Microsoft Excel 2016
Prikažite poruku na statusnoj traci programa Excel VBA
Umetanje slika pomoću VBA u Microsoft Excel 2016
Kako pregledavati listove u Excelu pomoću VBA
Popularni članci:
50 Excel prečaca za povećanje vaše produktivnosti
Kako koristiti funkciju VLOOKUP u Excelu
Kako koristiti funkciju COUNTIF u Excelu
Kako koristiti funkciju SUMIF u Excelu