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.
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.