Včasih moramo ustvariti ali dodati list, kasneje pa smo ugotovili, da ta list ni uporaben, zato moramo list hitro izbrisati iz delovnega zvezka. Ta članek se osredotoča na prihranek časa in poda kodo za odstranjevanje listov brez kakršnega koli pozivnega polja z uporabo makra / kode vba. Lahko je en list ali več. Excel pa prikaže pojavno opozorilo za potrditev izbrisa lista. Če je en list, je obvladljiv. Če pa morate izbrisati več listov, boste dobili eno pojavno okno na list.
Pogosto ustvarite več listov z uporabo VBA. Na koncu pa jih pravzaprav ne potrebujete. Po končanem delu bi jih radi izbrisali. Tako bo vaša datoteka lažja, hitrejša in razumnejša.
Koda VBA za brisanje lista je preprosta
Listi ("SheetName"). Izbriši
Recimo, da imate to kodo, da dodate list in jo nato po opravljenem delu izbrišete.
Sub AddAndDeleteSheet () Sheets.Add 'Doda nov list v aktivni delovni zvezek' ---- '----' ---- 'nekaj dela na listu ActiveSheet.Delete' izbriše aktivni podplat aktivnega lista
Ko izvedete to kodo, bo Sheets.Add deloval brez kakršnega koli poziva, vendar ko bo prišel prevajalnik ActiveSheet.Delete se prikaže takšno sporočilo.
Ker z VBA brišete liste, veste, kaj počnete. Excelu želite povedati, naj ne prikaže tega opozorila, in izbrišite prekleti list.
To naredimo tako, da izklopimo opozorilni gumb zaslona v Excelovi aplikaciji.
Spodnja koda bo zaobšla to opozorilno sporočilo in list bo izbrisan brez kakršnih koli namigov.
Sub AddAndDeleteSheet () Application.DisplayAlerts = False 'izklop opozorilnega gumba Sheets.Add' ---- '----' ---- 'nekaj dela na listu ActiveSheet.Delete Application.DisplayAlerts = True' vklop opozorilni gumb End Sub
Tukaj brišemo Activesheet z uporabo VBA. Z VBA lahko izbrišete kateri koli list. Samo napišite Sheets ("Sheetname"). Delete. Iti naprej…
DisplayAlerts je lastnost predmeta Application v VBA. Tukaj ga izklopimo na začetku kode in vklopimo na koncu kode. Zgornja koda bo potrdila izbris brez kakršnih koli namigov.
Opomba:Zgornja koda bo prezrla vsa opozorila, ki jih izda Excel. Če želite dovoliti samo brisanje listov, uporabite to vrstico.
Application.DisplayAlerts = False "izklop opozorilnega gumba ActiveSheet.Delete Application.DisplayAlerts = True" vklop opozorilnega gumba
S tem boste prezrli samo opozorilo o izbrisu lista.
Nasvet za profesionalce: Te vrstice kode naredijo vašo kodo VBA učinkovitejšo.Vedno jih uporabite na začetku makra in jih znova vklopite povsod, kjer se pričakuje, da bo vaša koda zapustila rutino.Opozorilo: Če pred izhodom iz podprograma ni vklopljen, morda ne boste videli nobenega opozorila. Tudi če se vaša koda ne izvaja. To lahko povzroči številne težave.
Če morate izbrisati več listov in uporabljate zanko, poskusite to kodo -
Možnost Eksplicitni podmakro2 () Dim i As Long Application.DisplayAlerts = False For i = 1 to Worksheets.Count If Worksheets (i) .Ime Like "Test*" then Worksheets (i) .Deplay Next i Application.DisplayAlerts = True End Pod
To je to. Opravljeno je. To je preprosto, kot da vklopite in izklopite ventilator. Kajne?
Če so vam bili naši blogi všeč, jih delite s prijatelji na Facebooku. Prav tako nas lahko spremljate na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo, dopolnimo ali inoviramo svoje delo in ga izboljšamo. Pišite nam na e -poštno mestoPrenesite datoteko
Brisanje listov brez potrditvenih pozivov z uporabo VBA v programu Microsoft Excel
Razdelite list Excel v več datotek na podlagi stolpca z uporabo VBA
Spremenite privzeti tiskalnik z uporabo VBA v programu Microsoft Excel 2016
Izklopite opozorilna sporočila z uporabo VBA v programu Microsoft Excel 2016
Prikaz sporočila v vrstici stanja Excel VBA
Vstavite slike z uporabo VBA v Microsoft Excel 2016
Kako prelistati liste v Excelu z uporabo VBA
Priljubljeni članki:
50 bližnjic v Excelu za večjo produktivnost
Kako uporabljati funkcijo VLOOKUP v Excelu
Kako uporabljati funkcijo COUNTIF v Excelu
Kako uporabljati funkcijo SUMIF v Excelu