Innholdsfortegnelse
Følgende makro går gjennom hvert ark i en arbeidsbok og skriver fanenavnet på hvert ark sekvensielt til et ark du velger. Dette kan være nyttig for en rask liste over hvert ark i en arbeidsbok med mange ark.
Liste over alle regneark i en arbeidsbok
For å bruke makroen, bare erstatt ordet Ark1 (det vises to ganger) i koden med fanenavnet der du vil ha resultatene. Sørg for at det ikke er noen viktig informasjon på utdatafanen fordi den sletter dataene før du skriver til den.
| 123456789101112131415 | Sub ListSheets ()Dim ws Som regnearkDim x Som heltallx = 1Ark ("Ark1"). Område ("A: A"). KlarFor hver uke i regnearkArk ("Ark1"). Celler (x, 1) = ws.Namex = x + 1Neste wsSlutt Sub |
