Excelov makro za brisanje vseh razen aktivnega delovnega lista

Včasih boste morda želeli izbrisati vse razen aktivnega delovnega lista v Excelovem delovnem zvezku. V teh primerih lahko uporabite naslednji makro.

Kako deluje makro

Makro se tukaj vrti po delovnih listih in ujema vsako ime delovnega lista z imenom aktivnega lista. Vsakič, ko se makro zanke, izbriše kateri koli delovni list brez ujemanja. Upoštevajte uporabo lastnosti DisplayAlerts v 4. koraku. To dejansko izklopi Excelova opozorila, tako da vam ni treba potrditi vsakega izbrisa.

Podmakro1()
1. korak: Deklarirajte svoje spremenljivke
    Dim ws As Worksheet
2. korak: Začnite brskati po vseh delovnih listih
    Za vsako ws In ThisWorkbook.Worksheets
3. korak: Preverite ime vsakega delovnega lista
    Če ws.Name <> ThisWorkbook.ActiveSheet.Name Then
4. korak: Izklopite opozorila in izbrišite
    Application.DisplayAlerts = False
    ws.Izbriši
    Application.DisplayAlerts = True
    Konec Če
5. korak: Pojdite na naslednji delovni list
    Naslednji ws
Končni sub

Makro najprej razglasi objekt, imenovan ws. Ta korak ustvari pomnilniško posodo za vsak delovni list, skozi katerega se vrti.

V 2. koraku se makro začne vrteti in pove Excelu, da bo ocenil vse delovne liste v tem delovnem zvezku. Obstaja razlika med ThisWorkbook in ActiveWorkbook. Objekt ThisWorkBook se nanaša na delovni zvezek, ki vsebuje kodo. Objekt ActiveWorkBook se nanaša na trenutno aktivni delovni zvezek. Pogosto vrnejo isti predmet, a če delovni zvezek, ki izvaja kodo, ni aktivni delovni zvezek, vrnejo različne predmete. V tem primeru ne želite tvegati brisanja listov v drugih delovnih zvezkih, zato uporabite ThisWorkBook.

V 3. koraku makro preprosto primerja ime aktivnega lista z listom, ki je trenutno v zanki.

V 4. koraku, če se imena listov razlikujejo, makro izbriše list. Kot že omenjeno, uporabite DisplayAlerts, da preprečite morebitna potrditvena preverjanja iz Excela. Če želite biti opozorjeni, preden izbrišete liste, lahko izpustite aplikacijo. DisplayAlerts = False. Če izpustite stavek DisplayAlerts, boste zagotovili prikazano sporočilo, kar vam bo omogočilo, da se umaknete iz odločitve za brisanje delovnih listov.

V 5. koraku se makro vrne nazaj, da dobi naslednji list. Ko so vsi listi ovrednoteni, se makro konča.

Excelov makro za brisanje vseh razen aktivnega delovnega lista

Če si želite ogledati opozorilna sporočila, izpustite stavek DisplayAlerts.

Kako uporabljati makro

Če želite implementirati ta makro, ga lahko kopirate in prilepite v standardni modul:

Aktivirajte urejevalnik Visual Basic s pritiskom na Alt+F11.

Z desno tipko miške kliknite ime projekta/delovnega zvezka v oknu projekta.

Izberite Vstavi → Modul.

V novo ustvarjeni modul vnesite ali prilepite kodo.

Ko v makru uporabljate ThisWorkbook namesto ActiveWorkbook, makra ne morete zagnati iz osebnega delovnega zvezka z makrami. zakaj? Ker bi se ThisWorkbook nanašal na osebni delovni zvezek makra, ne na delovni zvezek, za katerega bi se moral makro uporabiti.

Leave a Comment

Kako dokazati besedilo v tujem jeziku v Wordu 2016

Kako dokazati besedilo v tujem jeziku v Wordu 2016

V interesu kozmopolitizma vam Word 2016 omogoča delo s tujimi jeziki. Naučite se, kako vnesti in urediti besedilo v tujem jeziku, ter preveriti črkovanje in slovnico.

Filtriranje in razvrščanje podatkov vrtilne tabele v Excelu 2019

Filtriranje in razvrščanje podatkov vrtilne tabele v Excelu 2019

Učinkovito filtriranje in razvrščanje podatkov v vrtilni tabeli Excel 2019 za boljša poročila. Dosežite hitrejše analize z našimi namigi in triki!

Kaj pomenijo sporočila o napakah reševalca v Excelu?

Kaj pomenijo sporočila o napakah reševalca v Excelu?

Reševalec v Excelu je močno orodje za optimizacijo, ki lahko naleti na težave. Razumevanje sporočil o napakah reševalca vam lahko pomaga rešiti težave in optimizirati vaše matematične modele.

Teme za PowerPoint 2019

Teme za PowerPoint 2019

Odkrijte različne <strong>teme PowerPoint 2019</strong> in kako jih lahko uporabite za izboljšanje vaših predstavitev. Izberite najboljšo temo za vaše diapozitive.

Kako uporabljati distribucije hi-kvadrat v Excelu

Kako uporabljati distribucije hi-kvadrat v Excelu

Nekateri statistični ukrepi v Excelu so lahko zelo zmedeni, vendar so funkcije hi-kvadrat res praktične. Preberite vse opise funkcij hi-kvadrat za bolje razumevanje statističnih orodij.

Kako dodati obrobo strani v Word 2013

Kako dodati obrobo strani v Word 2013

V tem članku se naučite, kako dodati <strong>obrobo strani</strong> v Word 2013, vključno z različnimi slogi in tehnikami za izboljšanje videza vaših dokumentov.

Kako delati z več dokumenti v Wordu 2013

Kako delati z več dokumenti v Wordu 2013

Ni vam treba omejiti uporabe urejevalnika besedil na delo z enim samim dokumentom. Učinkovito delajte z več dokumenti v Wordu 2013.

Kako dodati komentarje v predstavitev PowerPoint 2013

Kako dodati komentarje v predstavitev PowerPoint 2013

Sodelovanje pri predstavitvi, ustvarjeni v PowerPointu 2013, je lahko tako preprosto kot dodajanje komentarjev. Odkrijte, kako učinkovito uporabljati komentarje za izboljšanje vaših predstavitev.

Kako spremeniti nastavitve preverjanja črkovanja in slovnice v Wordu 2016

Kako spremeniti nastavitve preverjanja črkovanja in slovnice v Wordu 2016

Ugotovite, kako prilagoditi nastavitve preverjanja črkovanja in slovnice v Wordu 2016, da izboljšate svoje jezikovne sposobnosti.

Kaj so izročki v PowerPointu 2013?

Kaj so izročki v PowerPointu 2013?

PowerPoint 2013 vam ponuja različne načine za izvedbo predstavitve, vključno s tiskanjem izročkov. Izročki so ključnega pomena za izboljšanje vaše predstavitve.