Cum se creează o listă cu toate foile de lucru din registrul de lucru activ utilizând o macrocomandă VBA
Doriți să creați un tabel cu toate foile din registrul de lucru activ? Utilizați următoarea macro:
Sub ShowThesheets ()
Dim Row As Long
Reduceți foaia ca foaie de lucru
Reduceți foaia nouă ca foaie de lucru
Setați Neublatt = ActiveWorkbook.Worksheets.Add
Rând = 1
Pentru fiecare foaie din ActiveWorkbook.Worksheets
Dacă Foaie.Nume Foaie nouă.Nume Apoi
Foaie nouă.Celule (rând, 1) = foaie.nume
Linie = linie + 1
End If
Foaia următoare
Sfârșitul Sub
Macro creează o nouă foaie de lucru în registrul de lucru activ în care sunt salvate numele tuturor foilor de lucru. Doar noua foaie de prezentare generală este exclusă din listă. Următoarea figură arată cum poate arăta rezultatul:
Pentru a introduce macro-ul, deschideți editorul VBA în Excel folosind combinația de taste ALT F11. În acest editor, selectați comanda INSERT - MODULE și introduceți macrocomanda. Porniți macro-ul din Excel folosind combinația de taste ALT F8.
