Luettelon luominen kaikista aktiivisen työkirjan laskentataulukoista VBA -makron avulla
Haluatko luoda taulukon kaikista aktiivisen työkirjan arkeista? Käytä seuraavaa makroa:
AlinäytösTaulukkolaskut ()
Himmennä rivi niin kauan
Himmennä arkki laskentataulukkona
Himmennä uusi arkki laskentataulukkona
Aseta Neublatt = ActiveWorkbook.Worksheets.Add
Rivi = 1
Jokaiselle ActiveWorkbook.Worksheets -arkille
Jos Sheet.Name New Sheet.Name then
Uusi taulukko.Solut (rivi, 1) = arkki.nimi
Rivi = rivi + 1
Loppu Jos
Seuraava arkki
End Sub
Makro luo aktiiviseen työkirjaan uuden laskentataulukon, johon kaikkien laskentataulukoiden nimet tallennetaan. Vain uusi yleiskatsausarkki jätetään pois luettelosta. Seuraava kuva näyttää, miltä tulos voi näyttää:
Siirry makroon avaamalla VBA -editori Excelissä näppäinyhdistelmällä ALT F11. Valitse tässä editorissa INSERT - MODULE -komento ja kirjoita makro. Aloitat makron Excelistä näppäinyhdistelmällä ALT F8.
