Как да генерирате списък със скритите таблици с помощта на VBA
Можете да направите листата на работна книга невидими с командата "Форматиране - лист - скриване". След това все още е възможно достъп до съдържанието на таблицата чрез формула, но таблицата вече не се вижда.
Ако имате нужда от списък на всички скрити работни листове в активната работна книга, можете да използвате следния макрос:
Sub ListHiddenTablesOn ()
Dim Table като работен лист, NewTable като работен лист
Dim CurrentMappe като работна книга
Dim i As Integer
Задайте CurrentMappe = ActiveWorkbook
Задайте NeueTabelle = Работни книги. Добавете таблици (1)
За всяка таблица в CurrentMappe.Worksheets
Ако Table.Visible = False Тогава
i = i + 1
NewTable.Cells (i, 1) .Value = Таблица.Име
Край Ако
Следващата маса
End Sub
Макросът преминава през всички работни листове и проверява свойството Видимо. Ако не е удовлетворен, това е скрита електронна таблица. След това името на листа се прехвърля в списъка.
Макросът изброява имената на всички скрити работни листове в таблица в нова работна книга.
Фигурата показва резултата от макроса, когато в активната работна книга има три скрити работни листа: „Скрит“, „Скрит“ и „Невидим“.
Съвет: Ако искате да знаете как да въвеждате и стартирате макроси в Excel, тук ще намерите кратко описание:
www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie-makros-in-excel-ein.html
