Як створити список прихованих таблиць за допомогою VBA
Ви можете зробити аркуші робочої книги невидимими за допомогою команди «Формат - аркуш - сховати». Тоді ще можна отримати доступ до вмісту таблиці за допомогою формули, але таблиця більше не відображається.
Якщо вам потрібен список усіх прихованих аркушів у активній книзі, ви можете скористатися таким макросом:
Підпорядкований списокСховані таблиціOn ()
Затемнити таблицю як аркуш, NewTable як робочий аркуш
Затемнити поточну карту як робочу книгу
Dim i як ціле число
Встановити CurrentMappe = ActiveWorkbook
Встановити NeueTabelle = Робочі книги. Додати таблиці (1)
Для кожної таблиці в поточних аркушах
Якщо Table.Visible = False Тоді
i = i + 1
NewTable.Cells (i, 1) .Value = Table.Name
Закінчити Якщо
Наступна таблиця
End Sub
Макрос перебирає всі робочі аркуші та перевіряє властивість Видимий. Якщо це не задовольняє, це прихована електронна таблиця. Потім ім'я аркуша переноситься до списку.
Макрос перелічує назви всіх прихованих аркушів у таблиці в новій книзі.
На малюнку показаний результат макросу, коли в активній книзі є три приховані аркуші: "Приховані", "Приховані" та "Невидимі".
Порада: Якщо ви хочете дізнатися, як вводити та запускати макроси в Excel, тут ви знайдете короткий опис:
www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie-makros-in-excel-ein.html
