Vytvořte index hypertextových odkazů ze všech listů v sešitu
Podívejme se na makro a seznam všech listů v sešitu o krok dále a vytvořme nabídku hypertextových odkazů pro každý list v sešitu. Toto je skvělý spořič času pro někoho, kdo má mnoho listů a pokouší se vytvořit nabídku hypertextových odkazů na každý z nich ručně.
Chcete -li použít makro, nahraďte slovo List1 (zobrazí se dvakrát) v kódu názvem karty, kde chcete výsledky. Ujistěte se, že na kartě výstupu nejsou žádné důležité informace, protože před jejich zapsáním vymaže jejich data. Po spuštění makra se vytvoří seznam každého listu s hypertextovým odkazem na každý list.
| 1234567891011121314151617181920 | Dílčí seznamy ()Dim ws As WorksheetDim x As Integerx = 1Listy („List1“). Rozsah („A: A“). JasnéZa každé ws v pracovních listechListy („List1“). Buňky (x, 1). VyberteActiveSheet.Hyperlinks.Add _Kotva: = výběr, adresa: = "", podadresa: = _ws.Name & "! A1", TextToDisplay: = ws.Namex = x + 1Další wsEnd Sub |
