Exceli makro, et kustutada kõik peale aktiivse töölehe

Mõnikord võite soovida kustutada Exceli töövihikust kõik peale aktiivse töölehe. Nendes olukordades saate kasutada järgmist makrot.

Kuidas makro töötab

Siinne makro liigub läbi töölehtede, sobitades iga töölehe nime aktiivse lehe nimega. Iga kord, kui makro loob silmuseid, kustutab see kõik sobimatud töölehed. Pange tähele atribuudi DisplayAlerts kasutamist 4. sammus. See lülitab Exceli hoiatused tõhusalt välja, nii et te ei pea iga kustutamist kinnitama.

Alammakro1()
1. samm: deklareerige oma muutujad
    Dim ws töölehena
2. samm: alustage kõigi töölehtede sirvimist
    For Every Ws In ThisWorkbook.Worksheets
3. samm: kontrollige iga töölehe nime
    Kui ws.Name <> ThisWorkbook.ActiveSheet.Name Siis
4. samm: lülitage hoiatused välja ja kustutage
    Application.DisplayAlerts = Vale
    ws.Delete
    Application.DisplayAlerts = Tõene
    Lõpeta Kui
5. samm: liikuge järgmise töölehe juurde
    Järgmine ws
Lõpeta alam

Makro deklareerib esmalt objekti nimega ws. See samm loob iga töölehe jaoks mälumahuti, mida see läbib.

2. toimingus alustab makro silmust, öeldes Excelile, et see hindab kõiki selle töövihiku töölehti. ThisWorkbookil ja ActiveWorkbookil on erinevus. Objekt ThisWorkBook viitab koodi sisaldavale töövihikule. Objekt ActiveWorkBook viitab hetkel aktiivsele töövihikule. Sageli tagastavad nad sama objekti, kuid kui koodi käitav töövihik pole aktiivne töövihik, tagastavad nad erinevad objektid. Sel juhul ei taha te riskida lehtede kustutamisega teistes töövihikutes, seega kasutate ThisWorkBook.

3. sammus võrdleb makro lihtsalt aktiivse lehe nime lehega, mida praegu silmustatakse.

Kui lehtede nimed on 4. sammus erinevad, kustutab makro lehe. Nagu mainitud, kasutate rakendust DisplayAlerts, et maha suruda kõik Exceli kinnitused. Kui soovite enne lehtede kustutamist hoiatust saada, võite rakenduse rakenduse vahele jätta. DisplayAlerts = vale. DisplayAlertsi avalduse väljajätmine tagab teile kuvatava sõnumi, mis võimaldab teil töölehtede kustutamise otsusest taganeda.

5. sammus pöördub makro järgmise lehe saamiseks tagasi. Pärast kõigi lehtede hindamist makro lõpeb.

Exceli makro, et kustutada kõik peale aktiivse töölehe

Hoiatusteadete nägemiseks jätke DisplayAlertsi avaldus välja.

Kuidas makrot kasutada

Selle makro rakendamiseks saate selle kopeerida ja kleepida standardmoodulisse:

Aktiveerige Visual Basic Editor, vajutades Alt+F11.

Paremklõpsake projekti aknas projekti/töövihiku nimel.

Valige Lisa → Moodul.

Tippige või kleepige kood vastloodud moodulisse.

Kui kasutate makros ActiveWorkbooki asemel ThisWorkbooki, ei saa te makrot isiklikust makro töövihikust käivitada. Miks? Kuna ThisWorkbook viitaks isiklikule makro töövihikule, mitte töövihikule, millele makro peaks kehtima.


Kustutage oma PowerPointi slaididelt pliiatsi ja esiletõstja joonised

Kustutage oma PowerPointi slaididelt pliiatsi ja esiletõstja joonised

Kui olete esitluse ajal PowerPointi slaididele joonistamiseks kasutanud pliiatsit või markerit, saate joonised järgmise esitluse jaoks salvestada või need kustutada, nii et järgmisel näitamisel alustate puhaste PowerPointi slaididega. Pliiatsi ja markeri jooniste kustutamiseks järgige neid juhiseid: joonte kustutamine […]

Stiili teegi sisu rakenduses SharePoint 2010

Stiili teegi sisu rakenduses SharePoint 2010

Style'i teek sisaldab CSS-faile, XSL-faile ja eelmääratletud mallilehtede, lehepaigutuste ja juhtelementide poolt kasutatavaid pilte rakenduses SharePoint 2010. CSS-failide leidmiseks avaldamissaidi stiiliteegist: valige saidi toimingud → vaade. Kogu saidi sisu. Ilmub saidi sisu. Style raamatukogu asub […]

Vormindage numbreid tuhandetes ja miljonites Exceli aruannetes

Vormindage numbreid tuhandetes ja miljonites Exceli aruannetes

Ärge uputage oma publikut tohutute numbritega. Microsoft Excelis saate parandada oma armatuurlaudade ja aruannete loetavust, vormindades numbrid tuhandetes või miljonites.

Kuidas SharePointi saite jagada ja jälgida

Kuidas SharePointi saite jagada ja jälgida

Siit saate teada, kuidas kasutada SharePointi suhtlusvõrgustiku tööriistu, mis võimaldavad üksikisikutel ja rühmadel suhelda, koostööd teha, jagada ja ühendada.

Kuidas teisendada kuupäevi Excelis Juliani vormingutesse

Kuidas teisendada kuupäevi Excelis Juliani vormingutesse

Julia kuupäevi kasutatakse tootmiskeskkondades sageli ajatemplina ja partiinumbri kiirviitena. Seda tüüpi kuupäevade kodeerimine võimaldab jaemüüjatel, tarbijatel ja teenindusagentidel tuvastada toote valmistamise aja ja seega toote vanuse. Juliuse kuupäevi kasutatakse ka programmeerimises, sõjaväes ja astronoomias. Erinevad […]

Accessi veebirakenduse loomine

Accessi veebirakenduse loomine

Veebirakenduse saate luua rakenduses Access 2016. Mis siis ikkagi on veebirakendus? Noh, veeb tähendab, et see on võrgus ja rakendus on lihtsalt "rakenduse" lühend. Kohandatud veebirakendus on veebipõhine andmebaasirakendus, millele pääseb ligi brauseri abil pilvest. Loote ja hooldate veebirakendust töölaua versioonis […]

SharePoint 2010 kiirkäivitusriba

SharePoint 2010 kiirkäivitusriba

Enamik SharePoint 2010 lehti kuvab lehe vasakus servas kiirkäivitusribal navigeerimislinkide loendi. Kiirkäivitusribal kuvatakse lingid saidi esiletoodud sisule (nt loendid, teegid, saidid ja avaldamislehed). Kiirkäivitusribal on kaks väga olulist linki: link kogu saidi sisu: […]

Mida tähendavad Exceli lahendaja veateated?

Mida tähendavad Exceli lahendaja veateated?

Lihtsate ülesannete puhul leiab Exceli lahendaja tavaliselt kiiresti eesmärgifunktsiooni jaoks optimaalsed Lahendaja muutuja väärtused. Kuid mõnel juhul on Solveril raskusi sihtfunktsiooni optimeerivate Solveri muutuja väärtuste leidmisega. Sellistel juhtudel kuvab Solver tavaliselt teate või veateate, mis kirjeldab või arutab probleemi, mida […]

Kuidas eemaldada Exceli Pivot-liigendtabelist arvutatud väljad ja üksused

Kuidas eemaldada Exceli Pivot-liigendtabelist arvutatud väljad ja üksused

Saate hõlpsasti eemaldada arvutatud välju ja üksusi Exceli liigendtabelist. Arvutatud välja eemaldamiseks klõpsake liigendtabelis lahtrit. Seejärel klõpsake vahekaardi Analüüsi käsku Fields, Items & Sets ja valige kuvatavast alammenüüst Arvutatud väli. Kui Excel kuvab dialoogiboksi Arvutatud välja lisamine, valige […]

Kuidas SharePointis sildistada

Kuidas SharePointis sildistada

Sildid on märksõnad, mille määrate sisule. Lehtede sildistamine teistega jagamiseks on sotsiaalne järjehoidja ning see on veebis väga populaarne ja SharePointis lihtne. Kui olete kunagi kasutanud saiti nagu Delicious, teate juba, kuidas sotsiaalne järjehoidja töötab. Kuna rohkem inimesi määrab samu silte, muutuvad sildid viisiks […]