Sukurkite visų darbaknygės darbalapių nuorodų indeksą
Paimkime makrokomandą, kad išvardytumėte visus darbaknygės lapus dar vienu žingsniu, ir sukurkite hipersaitų meniu kiekvienam darbo knygos lapui. Tai puikus laiko taupymas tiems, kurie turi daug lapų ir bando rankiniu būdu sudaryti hipersaitų meniu.
Norėdami naudoti makrokomandą, tiesiog pakeiskite žodį „Sheet1“ (jis rodomas du kartus) į kodą skirtuko pavadinimu, kuriame norite gauti rezultatus. Įsitikinkite, kad išvesties skirtuke nėra jokios svarbios informacijos, nes prieš rašant į jį, duomenys išvalomi. Paleidus makrokomandą, sukuriamas kiekvieno lapo sąrašas su hipersaitu į kiekvieną lapą.
| 1234567891011121314151617181920 | Antriniai sąrašai ()Dim ws kaip darbalapisDim x As Integerx = 1Skaičiuoklės („Sheet1“). Diapazonas („A: A“). AiškuUž kiekvieną ws darbalapiuoseLakštai („Sheet1“). Ląstelės (x, 1). PasirinkiteActiveSheet.Hyperlinks.Add _Inkaras: = Pasirinkimas, Adresas: = "", SubAddress: = _ws.Name & "! A1", TextToDisplay: = ws.Namex = x + 1Kitas wsPabaiga Sub |
