Cum se generează o listă a tabelelor ascunse folosind VBA
Puteți face foile unui registru de lucru invizibile cu comanda „Format - Foaie - Ascundere”. Apoi, este încă posibil să accesați conținutul tabelului utilizând o formulă, dar tabelul nu mai este vizibil.
Dacă aveți nevoie de o listă cu toate foile de lucru ascunse în registrul de lucru activ, puteți utiliza următoarea macro:
Sub ListHiddenTablesOn ()
Dim Tabel ca foaie de lucru, NewTable ca foaie de lucru
Reduceți CurrentMappe ca registru de lucru
Dim i Integer
Setați CurrentMappe = ActiveWorkbook
Set NeueTabelle = Workbooks.Add.Sheets (1)
Pentru fiecare tabel din CurrentMappe.Worksheets
Dacă Table.Visible = False Atunci
i = i + 1
NewTable.Cells (i, 1) .Value = Table.Name
End If
Următorul tabel
Sfârșitul Sub
Macrocomanda parcurge toate foile de lucru și verifică proprietatea Vizibil. Dacă nu este satisfăcut, este o foaie de calcul ascunsă. Apoi numele foii este transferat pe listă.
Macrocomanda listează numele tuturor foilor de lucru ascunse într-un tabel dintr-un nou registru de lucru.
Figura arată rezultatul macro-ului atunci când există trei foi de lucru ascunse în registrul de lucru activ: „Ascuns”, „Ascuns” și „Invizibil”.
Sfat: dacă doriți să știți cum să introduceți și să porniți macrocomenzi în Excel, veți găsi o scurtă descriere aici:
www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie-makros-in-excel-ein.html