Následující makro prochází každým listem v sešitu a zapisuje název karty každého listu postupně na list, který si vyberete. To by mohlo být užitečné pro rychlý seznam každého listu v sešitu s mnoha listy.
Seznam všech pracovních listů v sešitu
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.
| 123456789101112131415 | 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) = ws.Namex = x + 1Další wsEnd Sub |
