Какво ще кажете да имате списък с листове, всеки от които е хипервръзка към съответното име на листа в работната книга? Е, това може да стане със следния код -
Sub CreateHyperlinkedSheetList ()
Затъмнете като работен лист
Application.ScreenUpdating = False
ActiveSheet.Range ("A: A"). Изчистете „изчистете съществуващия списък
За всеки ws в ActiveWorkbook.Worksheets
С ActiveSheet.Range ("A" & Rows.Count). End (xlUp)
.Offset (1) .Value = ws.Name
ActiveSheet.Hyperlinks.Add Anchor: =. Offset (1), Address: = "", SubAddress: = _
"'" & ws.Name & "'! A1", TextToDisplay: = ws.Name
Край с
Следващата ws
Application.ScreenUpdating = Вярно
End Sub
Копирайте горния код в стандартен модул и можете да го присвоите на бутон, който да го задейства, когато пожелаете.