Sú chvíle, keď musíme vytvoriť alebo pridať hárok, a neskôr sme zistili, že tento hárok nepoužívame, a preto musíme hárok zo zošita rýchlo odstrániť. Tento článok sa zameriava na úsporu času a poskytuje kód na odstraňovanie hárkov bez akéhokoľvek poľa so správou pomocou makra / kódu vba. Môže to byť jeden list alebo niekoľko. A Excel dáva vyskakovacie upozornenie na potvrdenie odstránenia hárka. Ak je to jeden list, je to zvládnuteľné. Ak však musíte odstrániť niekoľko hárkov, na jeden list sa zobrazí jedno kontextové okno.
Pomocou VBA často vytvárate viac listov. Nakoniec ich však vlastne nepotrebujete. Po dokončení práce by ste ich chceli odstrániť. Váš súbor bude ľahší, rýchlejší a rozumnejší.
Kód VBA na odstránenie listu je jednoduchý
Tabuľky („SheetName“). Odstrániť
Povedzme, že máte tento kód na pridanie hárka a jeho odstránenie 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
Keď spustíte tento kód, Sheets.Add bude fungovať bez akejkoľvek výzvy, ale keď príde kompilátor ActiveSheet.Delete vyvolá takúto správu.
Keďže odstraňujete hárky pomocou jazyka VBA, viete, čo robíte. Chcete Excelu povedať, aby toto upozornenie nezobrazoval a vymazal ten prekliaty hárok.
Za týmto účelom vypneme tlačidlo upozornenia na obrazovku aplikácie Excel.
Nasledujúci kód obíde túto výstražnú správu a hárok bude bez akéhokoľvek upozornenia odstránený.
Sub AddAndDeleteSheet () Application.DisplayAlerts = Falošné 'vypnutie výstražného tlačidla Sheets.Add' ---- '----' ---- 'pracovalo sa na hárku ActiveSheet.Delete Application.DisplayAlerts = True' zapína sa výstražné tlačidlo Ukončiť pod
Tu odstraňujeme aktívny list pomocou VBA. Akýkoľvek hárok môžete odstrániť pomocou VBA. Stačí napísať Hárky („Názov hárku“). Vymazať. Pohybujúce sa na…
DisplayAlerts je vlastnosť objektu Application vo VBA. Tu ho vypíname na začiatku kódu a zapíname na konci kódu. Vyššie uvedený kód potvrdí vymazanie bez akéhokoľvek upozornenia.
Poznámka:Vyššie uvedený kód bude ignorovať všetky varovania vyvolané programom Excel. Ak chcete povoliť iba vymazanie hárka, použite tento riadok.
Application.DisplayAlerts = Nepravdivé 'vypnutie výstražného tlačidla ActiveSheet.Delete Application.DisplayAlerts = Skutočné' zapnutie výstražného tlačidla
Toto bude ignorovať iba upozornenie na odstránenie hárka.
Pro tip: Tieto riadky kódu zefektívňujú váš kód VBA.Vždy ich používajte na začiatku makra a znova ich zapnite kdekoľvek, kde sa očakáva, že váš kód ukončí rutinu.Pozor: Ak nie je zapnutý pred ukončením podprogramu, nemusí sa vám zobraziť žiadne varovanie. Aj keď váš kód nie je spustený. To môže spôsobiť mnoho problémov.
Ak chcete odstrániť viac hárkov a používate slučku, vyskúšajte tento kód -
Možnosť Explicitné čiastkové makro2 () Dim i As Long Application.DisplayAlerts = False For i = 1 to worksheets.Count If worksheets (i) .Name Like "Test*" Then worksheets (i). Delete all Next Application.DisplayAlerts = True End Sub
To je všetko. Hotovo. Je to jednoduché, ako zapnutie a vypnutie ventilátora. Nie?
Ak sa vám páčili naše blogy, zdieľajte ich so svojimi priateľmi na Facebooku. A tiež nás môžete sledovať na Twitteri a Facebooku.
Radi by sme vás počuli, dajte nám vedieť, ako môžeme zlepšiť, doplniť alebo inovovať našu prácu a zlepšiť ju pre vás. Napíšte nám na e -mailová stránkaStiahnuť súbor
Odstráňte hárky bez výziev na potvrdenie pomocou VBA v programe Microsoft Excel
Rozdeľte hárok programu Excel do viacerých súborov na základe stĺpca pomocou VBA
Zmeňte predvolenú tlačiareň pomocou jazyka VBA v programe Microsoft Excel 2016
Vypnite výstražné správy pomocou VBA v programe Microsoft Excel 2016
Zobrazte správu na stavovom riadku programu Excel VBA
Vkladajte obrázky pomocou jazyka VBA do programu Microsoft Excel 2016
Ako prechádzať cez listy v programe Excel pomocou VBA
Populárne články:
50 skratiek programu Excel na zvýšenie produktivity
Ako používať funkciu VLOOKUP v programe Excel
Ako používať funkciu COUNTIF v programe Excel
Ako používať funkciu SUMIF v programe Excel