Innholdsfortegnelse
Lag hyperkoblingsindeks for alle regneark i arbeidsbok
La oss ta makroen til å liste alle ark i en arbeidsbok et skritt videre og lage en hyperkoblet meny for hvert ark i en arbeidsbok. Dette er en flott tidsbesparelse for noen som har mange ark og prøver å lage en meny med hyperkoblinger til hver enkelt manuelt.
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. Etter at makroen har kjørt, opprettes en liste over hvert ark med en hyperkobling til hvert ark.
| 1234567891011121314151617181920 | Sub ListSheets ()Dim ws Som regnearkDim x Som heltallx = 1Ark ("Ark1"). Område ("A: A"). KlarFor hver uke i regnearkArk ("Ark1"). Celler (x, 1) .VelgActiveSheet.Hyperlinks.Add _Anker: = utvalg, adresse: = "", underadresse: = _ws.Name & "! A1", TextToDisplay: = ws.Namex = x + 1Neste wsSlutt Sub |
