Sisällysluettelo
Seuraava makro kiertää työkirjan jokaisen taulukon läpi ja kirjoittaa kunkin arkin välilehden nimen peräkkäin valitsemallesi arkille. Tästä voi olla hyötyä pika -luettelossa työkirjan jokaisesta arkista, jossa on monia arkkeja.
Listaa kaikki työkirjan laskentataulukot
Jos haluat käyttää makroa, korvaa sana Sheet1 (se näkyy kahdesti) koodissa välilehden nimellä, josta haluat tulokset. Varmista, että tulostusvälilehdessä ei ole tärkeitä tietoja, koska se tyhjentää tiedot ennen niiden kirjoittamista.
| 123456789101112131415 | Alaluettelot ()Dim ws laskentataulukkonaDim x kokonaislukunax = 1Arkit ("Sheet1"). Alue ("A: A"). SelkeäJokaiselle viikolle laskentataulukoissaSheets ("Sheet1"). Solut (x, 1) = ws.Namex = x + 1Seuraava wsEnd Sub |
