Innehållsförteckning
Skapa hyperlänkindex för alla kalkylblad i arbetsboken
Låt oss ta makrot för att lista alla blad i en arbetsbok ett steg längre och skapa en hyperlänkad meny för varje ark i en arbetsbok. Detta är en bra tidsbesparare för någon som har många blad och försöker göra en meny med hyperlänkar till var och en manuellt.
För att använda makrot, ersätt bara ordet Sheet1 (det visas två gånger) i koden med fliknamnet där du vill ha resultaten. Se till att det inte finns någon viktig information på utdatafliken eftersom den rensar data innan du skriver till den. Efter att makrot har körts skapas en lista över varje ark med en hyperlänk till varje ark.
1234567891011121314151617181920 | Sub ListSheets ()Dim ws Som arbetsbladDim x Som heltalx = 1Sheets ("Sheet1"). Range ("A: A"). ClearFör varje ws i kalkylbladArk ("Ark1"). Celler (x, 1) .VäljActiveSheet.Hyperlinks.Add _Ankare: = Urval, Adress: = "", Subadress: = _ws.Name & "! A1", TextToDisplay: = ws.Namex = x + 1Nästa wsAvsluta Sub |