Makro programu Excel na odstránenie všetkého okrem aktívneho pracovného hárka

Niekedy možno budete chcieť odstrániť všetky pracovné hárky okrem aktívneho v zošite programu Excel. V týchto situáciách môžete použiť nasledujúce makro.

Ako funguje makro

Makro tu prechádza pracovnými hárkami a priraďuje názvy každého hárka k názvu aktívneho hárka. Zakaždým, keď sa makro zacyklí, odstráni všetky nezhodné pracovné hárky. Všimnite si použitie vlastnosti DisplayAlerts v kroku 4. Toto efektívne vypne upozornenia Excelu, takže nemusíte potvrdzovať každé odstránenie.

Pod makro1()
'Krok 1: Deklarujte svoje premenné
    Dim ws As Worksheet
'Krok 2: Začnite prechádzať všetky pracovné hárky
    Pre každé ws In ThisWorkbook.Worksheets
„Krok 3: Skontrolujte názov každého pracovného hárka
    Ak ws.Name <> ThisWorkbook.ActiveSheet.Name Then
„Krok 4: Vypnite upozornenia a odstráňte ich
    Application.DisplayAlerts = False
    ws.Delete
    Application.DisplayAlerts = True
    Koniec Ak
„Krok 5: Prejdite na ďalší pracovný hárok
    Ďalšie ws
End Sub

Makro najskôr deklaruje objekt s názvom ws. Tento krok vytvorí pamäťový kontajner pre každý pracovný hárok, cez ktorý prechádza.

V kroku 2 sa makro začne zacykliť a oznámi Excelu, že vyhodnotí všetky pracovné hárky v tomto zošite. Medzi ThisWorkbook a ActiveWorkbook je rozdiel. Objekt ThisWorkBook odkazuje na zošit, ktorý obsahuje kód. Objekt ActiveWorkBook odkazuje na aktuálne aktívny zošit. Často vracajú rovnaký objekt, ale ak zošit s kódom nie je aktívnym zošitom, vrátia rôzne objekty. V tomto prípade nechcete riskovať vymazanie hárkov v iných zošitoch, preto použijete ThisWorkBook.

V kroku 3 makro jednoducho porovná názov aktívneho hárka s hárkom, ktorý je momentálne v slučke.

Ak sú názvy hárkov v kroku 4 odlišné, makro hárok vymaže. Ako už bolo spomenuté, DisplayAlerts používate na potlačenie akýchkoľvek kontrol potvrdení z Excelu. Ak chcete byť upozornení pred odstránením hárkov, môžete aplikáciu vynechať. DisplayAlerts = False. Vynechaním príkazu DisplayAlerts zaistíte, že sa vám zobrazí správa, čo vám umožní odstúpiť od rozhodnutia vymazať pracovné hárky.

V kroku 5 sa makro vráti späť, aby získalo ďalší hárok. Po vyhodnotení všetkých hárkov sa makro skončí.

Makro programu Excel na odstránenie všetkého okrem aktívneho pracovného hárka

Ak chcete zobraziť varovné správy, vynechajte vyhlásenie DisplayAlerts.

Ako používať makro

Ak chcete implementovať toto makro, môžete ho skopírovať a prilepiť do štandardného modulu:

Aktivujte Editor jazyka Visual Basic stlačením Alt+F11.

Kliknite pravým tlačidlom myši na názov projektu/zošita v okne projektu.

Vyberte Vložiť → Modul.

Zadajte alebo prilepte kód do novovytvoreného modulu.

Keď v makre použijete ThisWorkbook namiesto ActiveWorkbook, nemôžete spustiť makro z osobného zošita makier. prečo? Pretože ThisWorkbook by odkazoval na osobný zošit makier, nie na zošit, na ktorý by sa malo makro vzťahovať.

Leave a Comment

Ako zmeniť pozadie v PowerPointe 2019

Ako zmeniť pozadie v PowerPointe 2019

Naučte sa, ako jednoducho zmeniť pozadie v PowerPointe 2019, aby vaše prezentácie pôsobili pútavo a profesionálne. Získajte tipy na plnú farbu, prechod, obrázky a vzory.

Ako používať štatistické funkcie v Exceli na počítanie položiek v množine údajov

Ako používať štatistické funkcie v Exceli na počítanie položiek v množine údajov

Excel poskytuje štyri užitočné štatistické funkcie na počítanie buniek v hárku alebo zozname: COUNT, COUNTA, COUNTBLANK a COUNTIF. Pre viac informácií o Excel funkciách, pokračujte.

Klávesové skratky pre bežné príkazy zobrazenia Excel 2013

Klávesové skratky pre bežné príkazy zobrazenia Excel 2013

Objavte efektívne klávesové skratky v Exceli 2013 pre zobrazenie, ktoré vám pomôžu zlepšiť produktivitu. Všetky skratky sú začiatkom s Alt+W.

Ako nastaviť okraje stránky v programe Word 2013

Ako nastaviť okraje stránky v programe Word 2013

Naučte sa, ako nastaviť okraje v programe Word 2013 s naším jednoduchým sprievodcom. Tento článok obsahuje užitočné tipy a predvoľby okrajov pre váš projekt.

Ako používať štatistické funkcie na výpočet priemerov, režimov a mediánov v Exceli

Ako používať štatistické funkcie na výpočet priemerov, režimov a mediánov v Exceli

Excel vám poskytuje niekoľko štatistických funkcií na výpočet priemerov, režimov a mediánov. Pozrite si podrobnosti a príklady ich použitia.

Ako zistiť a opraviť chyby vzorcov v Exceli 2016

Ako zistiť a opraviť chyby vzorcov v Exceli 2016

Excel 2016 ponúka niekoľko efektívnych spôsobov, ako opraviť chyby vo vzorcoch. Opravy môžete vykonávať po jednom, spustiť kontrolu chýb a sledovať odkazy na bunky.

Archivácia priečinkov programu Outlook

Archivácia priečinkov programu Outlook

V niektorých prípadoch Outlook ukladá e-mailové správy, úlohy a plánované činnosti staršie ako šesť mesiacov do priečinka Archív – špeciálneho priečinka pre zastarané položky. Učte sa, ako efektívne archivovať vaše položky v Outlooku.

Vytváranie a formátovanie tabuliek v programe Word 2019

Vytváranie a formátovanie tabuliek v programe Word 2019

Word vám umožňuje robiť rôzne zábavné veci s tabuľkami. Učte sa o vytváraní a formátovaní tabuliek vo Worde 2019. Tabuľky sú skvelé na organizáciu informácií.

Výber rozsahu Excel VBA

Výber rozsahu Excel VBA

V článku sa dozviete, ako umožniť používateľovi vybrať rozsah v Excel VBA pomocou dialógového okna. Získajte praktické tipy a príklady na zlepšenie práce s rozsahom Excel VBA.

Výpočet percentuálneho rozptylu so zápornými hodnotami v Exceli

Výpočet percentuálneho rozptylu so zápornými hodnotami v Exceli

Vzorec na výpočet percentuálnej odchýlky v Exceli s funkciou ABS pre správne výsledky aj so zápornými hodnotami.