Kako bi bilo, če bi imeli v delovnem zvezku seznam listov, od katerih je vsak povezan s svojim imenom lista? No, to je mogoče storiti z naslednjo kodo -
Sub CreateHyperlinkedSheetList ()
Zatemni kot delovni list
Application.ScreenUpdating = Napačno
ActiveSheet.Range ("A: A"). Počistite 'počisti obstoječi seznam
Za vsako ws v ActiveWorkbook.Worksheets
Z ActiveSheet.Range ("A" & Rows.Count) .End (xlUp)
.Odmik (1) .Vrednost = ws.Ime
ActiveSheet.Hyperlinks.Add Anchor: =. Offset (1), Address: = "", SubAddress: = _
"'" & ws.Name & "'! A1", TextToDisplay: = ws.Name
Končaj s
Naslednji ws
Application.ScreenUpdating = Res
End Sub
Kopirajte zgornjo kodo v standardni modul in jo lahko dodelite gumbu, ki ga sproži, kadar koli želite.