Як створити список усіх аркушів в активній книзі за допомогою макросу VBA
Хочете створити таблицю всіх аркушів активної книги? Використовуйте такий макрос:
Додаткові таблиці таблиць ()
Dim Row As Long
Затемнений аркуш як робочий аркуш
Затемнити новий аркуш як аркуш
Встановіть Neublatt = ActiveWorkbook.Worksheets.Add
Рядок = 1
Для кожного аркуша в ActiveWorkbook.Worksheets
Якщо Sheet.Name Новий Sheet.Name Тоді
Новий аркуш. Клітинки (рядок, 1) = ім'я аркуша
Лінія = рядок + 1
Закінчити Якщо
Наступний аркуш
End Sub
Макрос створює новий аркуш в активній книзі, в якому зберігаються назви всіх аркушів. Зі списку виключено лише новий аркуш огляду. Наступний малюнок показує, як може виглядати результат:
Щоб ввести макрос, відкрийте редактор VBA в Excel за допомогою комбінації клавіш ALT F11. У цьому редакторі виберіть команду INSERT - MODULE і введіть макрос. Ви запускаєте макрос з Excel за допомогою комбінації клавіш ALT F8.
