Kaip sukurti paslėptų lentelių sąrašą naudojant VBA
Darbo knygos lapus galite padaryti nematomus naudodami komandą „Formatas - lapas - slėpti“. Tada vis dar galima pasiekti lentelės turinį naudojant formulę, tačiau lentelė nebematoma.
Jei jums reikia visų aktyvioje darbaknygėje esančių paslėptų darbalapių sąrašo, galite naudoti šią makrokomandą:
Antrinis sąrašasSlėptos lentelės įjungtos ()
Pritemdyti lentelę kaip darbalapį, naują lentelę kaip darbalapį
„Dim CurrentMappe As Workbook“
Dim i As Integer
Nustatykite CurrentMappe = ActiveWorkbook
Nustatykite NeueTabelle = Workbooks.Add.Sheets (1)
Kiekvienai „CurrentMappe“ lentelėje. Darbo lapai
Jei lentelė.Matoma = Netiesa Tada
i = i + 1
NewTable.Cells (i, 1) .Value = Table.Name
Pabaiga Jei
Kitas stalas
Pabaiga Sub
Makrokomanda peržiūri visus darbalapius ir tikrina ypatybę Matomas. Jei jis nepatenkintas, tai paslėpta skaičiuoklė. Tada lapo pavadinimas perkeliamas į sąrašą.
Makrokomandoje pateikiami visų paslėptų darbalapių pavadinimai lentelėje naujoje darbaknygėje.
Paveikslėlyje parodytas makrokomandos rezultatas, kai aktyvioje darbaknygėje yra trys paslėpti darbalapiai: „Paslėpta“, „Paslėpta“ ir „Nematoma“.
Patarimas: Jei norite sužinoti, kaip įvesti ir paleisti makrokomandas „Excel“, trumpą aprašymą rasite čia:
www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie-makros-in-excel-ein.html
