Vytvorte hypertextový odkaz zo všetkých pracovných hárkov v zošite
Vezmime si makro na zoznam všetkých hárkov v zošite o krok ďalej a pre každý list v zošite vytvoríme hypertextové prepojenie. Je to veľká úspora času pre niekoho, kto má veľa hárkov a pokúša sa vytvoriť ponuku hypertextových odkazov na každý z nich ručne.
Ak chcete použiť makro, nahraďte slovo Hárok1 (zobrazí sa dvakrát) v kóde názvom karty, na ktorom chcete dosiahnuť výsledky. Uistite sa, že na karte výstupu nie sú žiadne dôležité informácie, pretože predtým, než na ne napíšete, vymažú ich údaje. Po spustení makra sa vytvorí zoznam každého hárka s hypertextovým prepojením na každý hárok.
| 1234567891011121314151617181920 | Pod zoznamy listov ()Dim ws As worksheetDim x As Integerx = 1Tabuľky („List1“). Rozsah („A: A“). JasnéZa každé ws v pracovných listochTabuľky („List1“). Bunky (x, 1). VyberteActiveSheet.Hyperlinks.Add _Kotva: = výber, adresa: = "", podadresa: = _ws.Name & "! A1", TextToDisplay: = ws.Namex = x + 1Ďalšie wsKoniec pod |
