Napravite popis listova s ​​hipervezom

Anonim

Kako bi bilo da u radnoj knjizi imate popis listova od kojih svaki ima hipervezu na naziv svog lista? Pa, to se može učiniti sa sljedećim kodom -

Sub CreateHyperlinkedSheetList ()

Zatamni kao radni list

Application.ScreenUpdating = Netačno

ActiveSheet.Range ("A: A"). Očistite 'obriši postojeći popis

Za svaki ws u ActiveWorkbook.Worksheets

S ActiveSheet.Range ("A" & Rows.Count) .End (xlUp)

.Offset (1) .Vrijednost = ws.Ime

ActiveSheet.Hyperlinks.Add Anchor: =. Offset (1), Adresa: = "", SubAddress: = _

"'" & ws.Name & "'! A1", TextToDisplay: = ws.Name

Završi s

Sljedeći ws

Application.ScreenUpdating = Istina

Kraj podm

Kopirajte gornji kôd u standardni modul i možete ga dodijeliti gumbu za aktiviranje kad god želite.