Kuidas luua peidetud tabelite loendit VBA abil
Töövihiku lehed saate nähtamatuks muuta käsuga "Vorminda - leht - peida". Seejärel on tabeli sisule siiski võimalik juurde pääseda valemi abil, kuid tabel pole enam nähtav.
Kui vajate aktiivse töövihiku kõigi peidetud töölehtede loendit, saate kasutada järgmist makro.
AlamloendHiddenTablesOn ()
Hämardage tabelit töölehena, uut tabelit töölehena
Dim CurrentMappe kui töövihik
Dim i As täisarv
Määra CurrentMappe = ActiveWorkbook
Määra NeueTabelle = Töövihikud. Lisage lehed (1)
Iga tabeli kohta CurrentMappe.Worksheets
Kui tabel. Nähtav = vale siis
i = i + 1
NewTable.Cells (i, 1) .Väärtus = Tabel.Nimi
Lõpp Kui
Järgmine tabel
End Sub
Makro vaatab läbi kõik töölehed ja kontrollib atribuuti Nähtav. Kui see pole rahul, on see peidetud arvutustabel. Seejärel kantakse lehe nimi loendisse.
Makro loetleb uues töövihikus tabelis kõigi peidetud töölehtede nimed.
Joonis näitab makro tulemust, kui aktiivses töövihikus on kolm peidetud töölehte: "Varjatud", "Varjatud" ja "Nähtamatu".
Näpunäide. Kui soovite teada, kuidas Excelis makrosid sisestada ja käivitada, leiate siit lühikese kirjelduse:
www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie-makros-in-excel-ein.html
