Как сгенерировать список скрытых таблиц с помощью VBA
Вы можете сделать листы рабочей книги невидимыми с помощью команды «Форматировать - Лист - Скрыть». После этого по-прежнему можно получить доступ к содержимому таблицы с помощью формулы, но таблица больше не отображается.
Если вам нужен список всех скрытых листов в активной книге, вы можете использовать следующий макрос:
Sub ListHiddenTablesOn ()
Развернуть таблицу как рабочий лист, создать новую таблицу как рабочий лист
Dim CurrentMappe as Workbook
Dim i как целое число
Установите CurrentMappe = ActiveWorkbook
Установите NeueTabelle = Workbooks.Add.Sheets (1)
Для каждой таблицы в CurrentMappe.Worksheets
Если Table.Visible = False, то
я = я + 1
NewTable.Cells (i, 1) .Value = Table.Name
Конец, если
Следующая таблица
Конец подписки
Макрос просматривает все листы и проверяет свойство Видимый. Если это не устраивает, это скрытая электронная таблица. Затем название листа переносится в список.
Макрос перечисляет имена всех скрытых листов в таблице в новой книге.
На рисунке показан результат макроса, когда в активной книге есть три скрытых листа: «Скрытый», «Скрытый» и «Невидимый».
Совет: Если вы хотите узнать, как вводить и запускать макросы в Excel, вы найдете здесь краткое описание:
www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie-makros-in-excel-ein.html
