Haluat ehkä piilottaa ei-aktiiviset laskentataulukot tällä makrolla. Excel ei anna sinun piilottaa kaikkia työkirjan arkkeja; vähintään yksi on näytettävä. Voit kuitenkin piilottaa kaikki paitsi aktiivisen taulukon.
Kuinka makro toimii
Tässä oleva makro kiertää laskentataulukoita ja sovittaa jokaisen laskentataulukon nimen aktiivisen taulukon nimeen. Joka kerta, kun makro silmukoi, se piilottaa kaikki vertaansa vailla olevat laskentataulukot.
Alamakro1()
'Vaihe 1: Ilmoita muuttujasi
Dim ws As Worksheet
'Vaihe 2: Aloita kaikkien laskentataulukoiden selaaminen
Jokaiselle ws:lle ThisWorkbook.Worksheets
'Vaihe 3: Tarkista jokaisen laskentataulukon nimi
Jos ws.Name <> ThisWorkbook.ActiveSheet.Name Then
Vaihe 4: Piilota arkki
ws.Visible = xlSheetHidden
Loppu Jos
'Vaihe 5: Siirry seuraavaan laskentataulukkoon
Seuraava ws
Lopeta ala
Vaihe 1 ilmoittaa objektin nimeltä ws. Tämä vaihe luo muistisäiliön kullekin laskentataulukolle, jonka läpi makro käy läpi.
Vaihe 2 aloittaa silmukan ja käskee Exceliä arvioimaan kaikki tämän työkirjan laskentataulukot. Huomaa ero ThisWorkbookin ja ActiveWorkbookin välillä. ThisWorkBook-objekti viittaa työkirjaan, joka sisältää koodin. ActiveWorkBook-objekti viittaa tällä hetkellä aktiiviseen työkirjaan. Ne palauttavat usein saman objektin, mutta jos koodia käyttävä työkirja ei ole aktiivinen työkirja, ne palauttavat eri objekteja. Tässä tapauksessa et halua piilottaa arkkeja muihin työkirjoihin, joten käytät ThisWorkBookia.
Vaiheessa 3 makro yksinkertaisesti vertaa aktiivisen taulukon nimeä taulukkoon, jota parhaillaan silmukoidaan.
Jos arkkien nimet ovat erilaiset, makro piilottaa taulukon vaiheessa 4.
Vaiheessa 5 palaat takaisin saadaksesi seuraavan arkin. Kun kaikki taulukot on arvioitu, makro päättyy.
Huomaa, että käytät makrossasi xlsheetHidden. Tämä ominaisuus käyttää oletusarvoista piilotustilaa, jonka saat tavallisesti, kun napsautat taulukkoa hiiren kakkospainikkeella ja valitset Piilota. Tässä oletuspiilotustilassa käyttäjä voi napsauttaa hiiren kakkospainikkeella mitä tahansa välilehteä ja valita Näytä, joka näyttää kaikki piilotetut taulukot. Mutta toinen piilotila on oletusarvoa salaisempi. Jos piilotat taulukot xlSheetVeryHidden-toiminnolla, käyttäjät eivät näe niitä ollenkaan – vaikka he napsauttaisivat välilehteä hiiren kakkospainikkeella ja valitsevat Näytä. Ainoa tapa paljastaa tällä tavalla piilotettu taulukko on käyttää VBA:ta.
Kuinka käyttää makroa
Voit ottaa tämän makron käyttöön kopioimalla ja liittämällä sen vakiomoduuliin:
Aktivoi Visual Basic Editor painamalla Alt+F11.
Napsauta hiiren kakkospainikkeella projektin/työkirjan nimeä projektiikkunassa.
Valitse Lisää → Moduuli.
Kirjoita tai liitä koodi äskettäin luotuun moduuliin.