Sukurkite hipersaitų lapų sąrašą

Kaip būtų, jei lapų sąrašas būtų susietas su atitinkamu lapo pavadinimu darbo knygoje? Na, tai galima padaryti naudojant šį kodą -

Sub CreateHyperlinkedSheetList ()

Dim ws kaip darbalapis

Application.ScreenUpdating = Netiesa

ActiveSheet.Range ("A: A"). Išvalyti 'išvalyti esamą sąrašą

Už kiekvieną ws ActiveWorkbook.Worksheets

Su „ActiveSheet.Range“ („A“ ir „Rows.Count“). Pabaiga („xlUp“)

.Offset (1) .Verta = ws.Pavadinimas

ActiveSheet.Hyperlinks.Add Anchor: =. Poslinkis (1), Adresas: = "", SubAddress: = _

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

Pabaiga su

Kitas ws

Application.ScreenUpdating = Tiesa

Pabaiga Sub

Nukopijuokite aukščiau pateiktą kodą į standartinį modulį ir galite priskirti jį mygtukui, kad jį suaktyvintumėte kada tik norite.