Kā izveidot slēpto tabulu sarakstu, izmantojot VBA
Jūs varat padarīt darbgrāmatas lapas neredzamas, izmantojot komandu "Format - Sheet - Hide". Pēc tam joprojām ir iespējams piekļūt tabulas saturam, izmantojot formulu, bet tabula vairs nav redzama.
Ja jums ir nepieciešams visu slēpto darblapu saraksts aktīvajā darbgrāmatā, varat izmantot šādu makro:
ApakšsarakstsHiddenTablesOn ()
Dim tabula kā darblapa, NewTable kā darblapa
Dim CurrentMappe kā darbgrāmata
Dim i As Integer
Iestatīt CurrentMappe = ActiveWorkbook
Iestatīt NeueTabelle = Workbooks.Add.Sheets (1)
Katrai tabulai vietnē CurrentMappe.Worksheets
Ja tabula. Redzams = Nepareizs
i = i + 1
NewTable.Cells (i, 1) .Value = Table.Name
Beigas Ja
Nākamā tabula
Beigt apakš
Makro cilpas cauri visām darblapām un pārbauda īpašumu Redzams. Ja tas nav apmierināts, tā ir slēpta izklājlapa. Pēc tam lapas nosaukums tiek pārnests uz sarakstu.
Makro uzskaita visu slēpto darblapu nosaukumus tabulā jaunā darbgrāmatā.
Attēlā parādīts makro rezultāts, kad aktīvajā darbgrāmatā ir trīs slēptās darblapas: "Slēpts", "Slēpts" un "Neredzams".
Padoms. Ja vēlaties uzzināt, kā programmā Excel ievadīt un sākt makro, īsu aprakstu atradīsit šeit:
www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie-makros-in-excel-ein.html
