Indholdsfortegnelse
Opret hyperlinkindeks for alle regneark i projektmappe
Lad os tage makroen til at liste alle ark i en projektmappe et skridt videre og oprette en hyperlinket menu for hvert ark i en projektmappe. Dette er en god tidsbesparelse for en person, der har mange ark og forsøger at lave en menu med hyperlinks til hver manuelt.
For at bruge makroen skal du bare erstatte ordet Sheet1 (det vises to gange) i koden med fanenavnet, hvor du gerne vil have resultaterne. Sørg for, at der ikke er vigtige oplysninger på outputfanen, fordi den rydder dataene, før de skriver til den. Efter makroen køres, oprettes en liste over hvert ark med et hyperlink til hvert ark.
1234567891011121314151617181920 | Sub ListSheets ()Dim ws Som regnearkDim x Som heltalx = 1Ark ("Ark1"). Område ("A: A"). KlarFor hver gang i regnearkArk ("Ark1"). Celler (x, 1) .VælgActiveSheet.Hyperlinks.Add _Anker: = Valg, Adresse: = "", SubAddress: = _ws.Name & "! A1", TextToDisplay: = ws.Namex = x + 1Næste wsAfslut Sub |