Kuidas oleks, kui lehtede loend oleks igaüks töövihikus vastava lehe nimega hüperlingitud? Noh, seda saab teha järgmise koodiga -
Sub CreateHyperlinkedSheetList ()
Dim ws kui tööleht
Application.ScreenUpdating = Vale
ActiveSheet.Range ("A: A"). Kustuta "kustuta olemasolev loend
Iga tööpäeva jaoks ActiveWorkbookis. Töölehed
ActiveSheet.Range ("A" & Rows.Count) .End (xlUp)
. Offset (1) .Väärtus = ws.Name
ActiveSheet.Hyperlinks.Adk Ankur: =. Nihe (1), Aadress: = "", Alam aadress: = _
"" "& ws.Name &" '! A1 ", TextToDisplay: = ws.Name
Lõpeta
Järgmine ws
Application.ScreenUpdating = Tõsi
End Sub
Kopeerige ülaltoodud kood standardmoodulisse ja saate selle määrata nupule, et see igal ajal käivitada.