Entä jos sinulla on luettelo arkkeista, joista jokainen on linkitetty työkirjan taulukon nimeen? Tämä voidaan tehdä seuraavalla koodilla -
Sub CreateHyperlinkedSheetList ()
Dim ws laskentataulukkona
Application.ScreenUpdating = Väärä
ActiveSheet.Range ("A: A"). Tyhjennä 'tyhjennä olemassa oleva luettelo
Jokaista ws ActiveWorkbook.Worksheets
ActiveSheet.Range ("A" & Rows.Count) .End (xlUp)
Offset (1). Arvo = ws.Name
ActiveSheet.Hyperlinks.Add Anchor: =. Offset (1), Address: = "", SubAddress: = _
"" "& ws.Name &" '! A1 ", TextToDisplay: = ws.Name
Lopeta
Seuraava ws
Application.ScreenUpdating = Totta
End Sub
Kopioi yllä oleva koodi vakiomoduuliin ja voit määrittää sen painikkeelle käynnistääksesi sen milloin haluat.