Jak utworzyć listę wszystkich arkuszy roboczych w aktywnym skoroszycie za pomocą makra VBA?
Czy chcesz utworzyć tabelę wszystkich arkuszy w aktywnym skoroszycie? Użyj następującego makra:
Podrzędne arkusze tabel ()
Ciemny rząd tak długo
Przyciemnij arkusz jako arkusz roboczy
Przyciemnij nowy arkusz jako arkusz roboczy
Ustaw Neublatt = ActiveWorkbook.Worksheets.Add
Rząd = 1
Dla każdego arkusza w ActiveWorkbook.Worksheets
Jeśli Sheet.Name New Sheet.Name Wtedy
Nowy arkusz.Komórki (wiersz, 1) = arkusz.nazwa
Linia = linia + 1
Zakończ, jeśli
Następny arkusz
Napis końcowy
Makro tworzy nowy arkusz w aktywnym skoroszycie, w którym zapisywane są nazwy wszystkich arkuszy. Tylko nowy arkusz przeglądu jest wykluczony z listy. Poniższy rysunek pokazuje, jak może wyglądać wynik:
Aby wprowadzić makro, otwórz edytor VBA w programie Excel za pomocą kombinacji klawiszy ALT F11. W tym edytorze wybierz polecenie WSTAW - MODUŁ i wprowadź makro. Makro uruchamiasz z programu Excel za pomocą kombinacji klawiszy ALT F8.
