Ako vytvoriť zoznam všetkých pracovných hárkov v aktívnom zošite pomocou makra VBA
Chcete vytvoriť tabuľku všetkých hárkov v aktívnom zošite? Použite nasledujúce makro:
Pod Show Tabuľky ()
Dim Row ako dlhý
Tlmený list ako pracovný list
Stmaviť nový list ako pracovný list
Nastaviť Neublatt = ActiveWorkbook.Worksheets.Add
Riadok = 1
Pre každý list v programe ActiveWorkbook. Pracovné listy
If Sheet.Name New Sheet.Name Then
Nový list. Bunky (riadok, 1) = názov hárka
Riadok = riadok + 1
Koniec Ak
Ďalší list
Koniec pod
Makro vytvorí v aktívnom zošite nový pracovný hárok, do ktorého sa uložia názvy všetkých pracovných hárkov. Zo zoznamu je vylúčený iba nový prehľadový list. Nasledujúci obrázok ukazuje, ako môže výsledok vyzerať:
Ak chcete zadať makro, otvorte editor VBA v programe Excel pomocou kombinácie klávesov ALT F11. V tomto editore zvoľte príkaz VLOŽIŤ - MODUL a zadajte makro. Makro spustíte z Excelu pomocou kombinácie klávesov ALT F8.
