Galbūt norėsite paslėpti neaktyvius darbalapius naudodami šią makrokomandą. „Excel“ neleidžia paslėpti visų darbaknygės lapų; turi būti rodomas bent vienas. Tačiau galite paslėpti visus, išskyrus aktyvųjį lapą.
Kaip veikia makrokomandas
Čia esanti makrokomanda eina per darbalapius ir suderina kiekvieno darbalapio pavadinimą su aktyvaus lapo pavadinimu. Kiekvieną kartą, kai makrokomanda sukasi, ji paslepia neprilygstamą darbalapį.
Sub-makro1()
1 veiksmas: deklaruokite savo kintamuosius
Dim ws kaip darbalapis
2 veiksmas: pradėkite peržiūrėti visus darbalapius
Kiekvienam ws Šioje darbaknygėje.Darbo lapuose
„3 veiksmas: patikrinkite kiekvieno darbalapio pavadinimą
Jei ws.Name <> ThisWorkbook.ActiveSheet.Name Tada
4 veiksmas: paslėpkite lapą
ws.Visible = xlSheetHidden
Pabaiga, jei
5 veiksmas: pereikite prie kito darbalapio
Kitas ws
Pabaigos sub
1 veiksmas deklaruoja objektą, vadinamą ws. Šis veiksmas sukuria atminties talpyklą kiekvienam darbalapiui, kurį perkelia makrokomandos kilpa.
2 veiksmas pradeda kilpą, nurodant „Excel“ įvertinti visus šios darbaknygės darbalapius. Atkreipkite dėmesį į skirtumą tarp ThisWorkbook ir ActiveWorkbook. Objektas ThisWorkBook nurodo darbaknygę, kurioje yra kodas. ActiveWorkBook objektas nurodo šiuo metu aktyvią darbaknygę. Jie dažnai grąžina tą patį objektą, bet jei darbaknygė, kurioje veikia kodas, nėra aktyvi darbaknygė, jie grąžina skirtingus objektus. Tokiu atveju nenorite rizikuoti slėpti lapų kitose darbaknygėse, todėl naudokite ThisWorkBook.
3 veiksme makrokomanda tiesiog lygina aktyvaus lapo pavadinimą su lapu, kuris šiuo metu yra susietas.
Jei lapų pavadinimai skiriasi, makrokomanda paslepia lapą 4 veiksme.
5 veiksme grįžtate atgal, kad gautumėte kitą lapą. Įvertinus visus lapus, makrokomandas baigiasi.
Atminkite, kad makrokomandoje naudojate xlsheetHidden. Ši ypatybė taiko numatytąją slėpimo būseną, kurią paprastai gautumėte dešiniuoju pelės mygtuku spustelėjus lapą ir pasirinkus Slėpti. Šioje numatytojoje slėpimo būsenoje vartotojas gali dešiniuoju pelės mygtuku spustelėti bet kurį skirtuką ir pasirinkti Neslėpti, kuris rodo visus paslėptus lapus. Tačiau kita slėpimo būsena yra labiau slapta nei numatytoji. Jei naudosite xlSheetVeryHidden, kad paslėptumėte savo lapus, vartotojai jų iš viso negalės matyti – net jei jie dešiniuoju pelės mygtuku spustelėja skirtuką ir pasirenka Nerodyti. Vienintelis būdas atskleisti tokiu būdu paslėptą lapą yra naudoti VBA.
Kaip naudoti makrokomandą
Norėdami įdiegti šią makrokomandą, galite nukopijuoti ir įklijuoti ją į standartinį modulį:
Suaktyvinkite Visual Basic redaktorių paspausdami Alt + F11.
Dešiniuoju pelės mygtuku spustelėkite projekto / darbaknygės pavadinimą projekto lange.
Pasirinkite Įterpti → Modulis.
Įveskite arba įklijuokite kodą naujai sukurtame modulyje.