Stundum gætirðu viljað eyða öllu nema virka vinnublaðinu í Excel vinnubók. Við þessar aðstæður geturðu notað eftirfarandi fjölvi.
Hvernig macro virkar
Fjölvi hér fer í gegnum vinnublöðin og passar nafn hvers vinnublaðs við nafn virka blaðsins. Í hvert skipti sem makróið fer í lykkjur eyðir það hvaða verkefnablaði sem er án samsvörunar. Athugaðu notkun DisplayAlerts eignarinnar í skrefi 4. Þetta slekkur í raun á viðvaranir Excel svo þú þarft ekki að staðfesta hverja eyðingu.
Sub Macro1()
'Skref 1: Lýstu breytunum þínum
Dim ws As Worksheet
'Skref 2: Byrjaðu að fara í gegnum öll vinnublöðin
Fyrir hvern var í þessari vinnubók.Vinnublöð
'Skref 3: Athugaðu heiti hvers vinnublaðs
Ef ws.Name <> ThisWorkbook.ActiveSheet.Name Þá
'Skref 4: Slökktu á viðvörunum og eyddu
Application.DisplayAlerts = False
ws.Eyða
Application.DisplayAlerts = True
End If
'Skref 5: Farðu yfir í næsta vinnublað
Næsta ws
End Sub
Fjölvi lýsir fyrst yfir hlut sem heitir ws. Þetta skref býr til minnisílát fyrir hvert vinnublað sem það fer í gegnum.
Í skrefi 2 byrjar fjölvi að lykkja og segir Excel að það muni meta öll vinnublöð í þessari vinnubók. Það er munur á ThisWorkbook og ActiveWorkbook. ThisWorkBook hluturinn vísar til vinnubókarinnar sem inniheldur kóðann. ActiveWorkBook hluturinn vísar til virku vinnubókarinnar. Þeir skila oft sama hlutnum, en ef vinnubókin sem keyrir kóðann er ekki virka vinnubókin skila þeir mismunandi hlutum. Í þessu tilviki vilt þú ekki eiga á hættu að eyða blöðum í öðrum vinnubókum, svo þú notar ThisWorkBook.
Í skrefi 3 ber fjölvi einfaldlega saman heiti virka blaðsins við blaðið sem er í lykkju.
Í skrefi 4, ef nöfnin eru önnur, eyðir fjölvi blaðinu. Eins og fram hefur komið notarðu DisplayAlerts til að bæla niður allar staðfestingarathuganir frá Excel. Ef þú vilt fá viðvörun áður en þú eyðir blöðunum geturðu sleppt umsókn. DisplayAlerts = False. Að sleppa DisplayAlerts yfirlýsingunni tryggir að þú færð skilaboðin sýnd, sem gerir þér kleift að hverfa frá ákvörðuninni um að eyða vinnublöðum.
Í skrefi 5 fer makróið til baka til að fá næsta blað. Eftir að öll blöðin hafa verið metin lýkur fjölvi.
Slepptu DisplayAlerts yfirlýsingunni til að sjá viðvörunarskilaboð.
Hvernig á að nota macro
Til að útfæra þetta fjölvi geturðu afritað og límt það inn í venjulega einingu:
Virkjaðu Visual Basic Editor með því að ýta á Alt+F11.
Hægrismelltu á heiti verkefnis/vinnubókar í verkefnaglugganum.
Veldu Insert→ Module.
Sláðu inn eða límdu kóðann í nýstofnaða einingu.
Þegar þú notar ThisWorkbook í stað ActiveWorkbook í fjölvi geturðu ekki keyrt fjölva úr persónulegu stórvinnubókinni. Hvers vegna? Vegna þess að ThisWorkbook myndi vísa til persónulegu makróvinnubókarinnar, ekki vinnubókarinnar sem makróið ætti að eiga við.