Þú gætir viljað fela óvirku vinnublöðin með þessu fjölvi. Excel leyfir þér ekki að fela öll blöð í vinnubók; að minnsta kosti einn verður að birtast. Hins vegar geturðu falið allt nema virka blaðið.
Hvernig macro virkar
Fjölvi hér fer í gegnum vinnublöðin og samsvarar heiti hvers vinnublaðs við nafn virka blaðsins. Í hvert skipti sem makróið fer í lykkjur, felur það hvaða verkstæði sem er ósamþykkt.
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: Fela blaðið
ws.Visible = xlSheetHidden
End If
'Skref 5: Farðu yfir í næsta vinnublað
Næsta ws
End Sub
Skref 1 lýsir yfir hlut sem heitir ws. Þetta skref býr til minnisílát fyrir hvert vinnublað sem makróið fer í gegnum.
Skref 2 byrjar lykkjuna og segir Excel að meta öll vinnublöðin í þessari vinnubók. Athugaðu muninn á 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 hætta á að fela blöð í öðrum vinnubókum, svo þú notar ThisWorkBook.
Í skrefi 3 ber fjölvi einfaldlega saman heiti virka blaðsins við blaðið sem er í lykkju.
Ef nöfnin eru önnur felur fjölvi blaðið í skrefi 4.
Í skrefi 5, þú lykkja til baka til að fá næsta blað. Eftir að öll blöð hafa verið metin lýkur fjölvi.
Athugaðu að þú notar xlsheetHidden í makróinu þínu. Þessi eiginleiki notar sjálfgefið fela ástand sem þú myndir venjulega fá þegar þú hægrismellir á blað og velur Fela. Í þessu sjálfgefna fela ástandi getur notandi hægrismellt á hvaða flipa sem er og valið Sýna, sem sýnir öll falin blöð. En annað feluríki er leynilegra en sjálfgefið. Ef þú notar xlSheetVeryHidden til að fela blöðin þín, munu notendur alls ekki geta séð þau - jafnvel þó þeir hægrismelltu á flipa og velji Sýna. Eina leiðin til að birta blað sem er falið á þennan hátt er að nota VBA.
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.