Jsou chvíle, kdy musíme vytvořit nebo přidat list, a později jsme zjistili, že tento list nepoužíváme, a proto musíme list ze sešitu rychle odstranit. Tento článek se zaměřuje na úsporu času a poskytuje kód pro odstraňování listů bez jakéhokoli pole s výzvou pomocí makra / kódu vba. Může to být jeden list nebo několik. A excel dává vyskakovací upozornění na potvrzení odstranění listu. Pokud je to jeden list, je to zvládnutelné. Pokud však musíte odstranit několik listů, dostanete jedno vyskakovací okno na list.
Pomocí VBA často vytváříte více listů. Nakonec je ale vlastně nepotřebujete. Po dokončení práce je budete chtít odstranit. Udrží váš soubor lehčí, rychlejší a rozumnější.
Kód VBA pro odstranění listu je jednoduchý
Tabulky („SheetName“). Smazat
Řekněme, že máte tento kód pro přidání listu a jeho odstranění po dokončení práce.
Sub AddAndDeleteSheet () Sheets.Add 'Adds a new sheet to the active workbook' ---- '----' ---- 'some work on sheet done ActiveSheet.Delete' deletes the active Activesheet End Sub
Když spustíte tento kód, Sheets.Add bude fungovat bez výzvy, ale když přijde kompilátor ActiveSheet.Delete vyvolá to takovou zprávu.
Protože odstraňujete listy pomocí VBA, víte, co děláte. Chtěli byste říct Excelu, aby toto varování nezobrazoval a ten zatracený list smazal.
Za tímto účelem vypneme tlačítko upozornění na zobrazení aplikace Excel.
Níže uvedený kód tuto výstražnou zprávu obejde a list bude bez jakéhokoli upozornění odstraněn.
Sub AddAndDeleteSheet () Application.DisplayAlerts = False 'vypnutí výstražného tlačítka Sheets.Add' ---- '----' ---- 'některé práce na listu hotové ActiveSheet.Delete Application.DisplayAlerts = True' zapnutí výstražné tlačítko End Sub
Zde odstraňujeme aktivní list pomocí VBA. Jakýkoli list můžete odstranit pomocí VBA. Stačí napsat listy („Název listu“). Smazat. Posouvat se…
DisplayAlerts je vlastnost Application objektu ve VBA. Zde jej vypínáme na začátku kódu a zapínáme na konci kódu. Výše uvedený kód potvrdí smazání bez jakéhokoli upozornění.
Poznámka:Výše uvedený kód bude ignorovat všechna varování vyvolaná aplikací Excel. Pokud chcete povolit pouze mazání listů, použijte tento řádek.
Application.DisplayAlerts = False 'vypnutí výstražného tlačítka ActiveSheet.Delete Application.DisplayAlerts = True' zapnutí výstražného tlačítka
Tím bude ignorováno pouze upozornění na odstranění listu.
Profesionální tip: Tyto řádky kódu zefektivňují váš kód VBA.Vždy je použijte na začátku makra a znovu je zapněte, kdekoli se očekává, že váš kód ukončí rutinu.Varování: Pokud není zapnuto před ukončením podprogramu, nemusí se vám zobrazit žádné varování. I když váš kód neběží. To může způsobit mnoho problémů.
Pokud chcete odstranit více listů a používáte smyčku, zkuste tento kód -
Volba Explicitní dílčí makro2 () Dim i As Long Application.DisplayAlerts = False For i = 1 to worksheets.Count If Worksheets (i) .Name Like "Test*" Then worksheets (i) .Delete Next i Application.DisplayAlerts = True End Sub
A je to. Je to hotovo. Je to snadné, jako byste zapnuli a vypnuli ventilátor. Není to tak?
Pokud se vám naše blogy líbily, sdílejte je se svými přáteli na Facebooku. A také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit, doplnit nebo inovovat naši práci a zlepšit ji pro vás. Napište nám na e -mailový webStáhnout soubor
Odstraňte listy bez výzev k potvrzení pomocí VBA v aplikaci Microsoft Excel
Rozdělte list aplikace Excel na více souborů podle sloupce pomocí VBA
Změňte výchozí tiskárnu pomocí VBA v aplikaci Microsoft Excel 2016
Vypněte varovné zprávy pomocí jazyka VBA v aplikaci Microsoft Excel 2016
Zobrazit zprávu na stavovém řádku aplikace Excel VBA
Vkládání obrázků pomocí VBA v aplikaci Microsoft Excel 2016
Jak procházet listy v aplikaci Excel pomocí VBA
Oblíbené články:
50 zkratek aplikace Excel pro zvýšení produktivity
Jak používat funkci VLOOKUP v Excelu
Jak používat funkci COUNTIF v aplikaci Excel
Jak používat funkci SUMIF v aplikaci Excel