Kā būtu, ja darbgrāmatā būtu saraksts ar lapām, kurām katrai ir hipersaite uz attiecīgo lapu nosaukumu? To var izdarīt ar šādu kodu -
Sub CreateHyperlinkedSheetList ()
Dim ws kā darblapa
Application.ScreenUpdating = Nepareizi
ActiveSheet.Range ("A: A"). Notīrīt 'notīrīt esošo sarakstu
Par katru ws ActiveWorkbook.Worksheets
Ar ActiveSheet.Range ("A" un Rows.Count) .End (xlUp)
. Offset (1). Vērtība = ws.Name
ActiveSheet.Hipersaites. Pievienot enkuru: =. Nobīde (1), Adrese: = "", Apakšadrese: = _
"" "& ws.Name &" '! A1 ", TextToDisplay: = ws.Name
Beigt ar
Nākamais ws
Application.ScreenUpdating = Patiess
Beigt apakš
Kopējiet iepriekš minēto kodu standarta modulī un varat to piešķirt pogai, lai to aktivizētu, kad vien vēlaties.