Lang L: none (table-of-contents)
Töövihiku kõigi töölehtede hüperlingi indeksi loomine
Võtame makro, et loetleda töövihiku kõik lehed veel üks samm edasi ja luua hüperlingitud menüü igale töövihiku lehele. See on suurepärane aja kokkuhoid kellelegi, kellel on palju lehti ja kes üritab igale lehele käsitsi hüperlinkide menüü koostada.
Makro kasutamiseks asendage koodis sõna Sheet1 (seda kuvatakse kaks korda) vahekaardi nimega, kus soovite tulemusi. Veenduge, et väljundkaardil pole olulist teavet, kuna see kustutab andmed enne sellele kirjutamist. Pärast makro käivitamist luuakse iga lehe loend, millel on igale lehele hüperlink.
1234567891011121314151617181920 | Alamloendilehed ()Dim ws töölehenaDim x täisarvunax = 1Arvutustabelid ("leht 1"). Vahemik ("A: A"). SelgeIga ws töölehtedelLehed ("Sheet1"). Lahtrid (x, 1). ValigeActiveSheet.Hyperlinks.Add _Ankur: = valik, aadress: = "", alam aadress: = _ws.Name & "! A1", TextToDisplay: = ws.Namex = x + 1Järgmine wsEnd Sub |