Čo keby ste mali v zošite zoznam hárkov, z ktorých každý bude hypertextovo prepojený s príslušným názvom listu? To sa dá urobiť pomocou nasledujúceho kódu -
Sub CreateHyperlinkedSheetList ()
Dim ws As worksheet
Application.ScreenUpdating = False
ActiveSheet.Range ("A: A"). Vymazať 'vymazať existujúci zoznam
Za každé ws v ActiveWorkbook.Worksheets
S ActiveSheet.Range ("A" & Rows.Count) .End (xlUp)
.Offset (1) .Hodnota = ws.Name
ActiveSheet.Hyperlinks.Add Anchor: =. Offset (1), Address: = "", SubAddress: = _
"'" & ws.Name & "'! A1", TextToDisplay: = ws.Name
Ukončiť s
Ďalej ws
Application.ScreenUpdating = True
Koniec pod
Skopírujte vyššie uvedený kód do štandardného modulu a môžete ho priradiť tlačidlu, aby sa spustil kedykoľvek budete chcieť.