Як показати всі аркуші за допомогою vba (з прикладом)

Ви можете використовувати властивість Visible у VBA, щоб відобразити аркуш у книзі Excel.

Щоб відобразити всі аркуші в книзі, ви можете використовувати такий синтаксис:

 Sub UnhideAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Visible = True
    Next ws

End Sub

Використовуючи простий цикл For Every і вказуючи Visible = True , ми повідомляємо Excel відобразити всі аркуші в книзі.

У наступному прикладі показано, як використовувати цей синтаксис на практиці.

Приклад: як відобразити всі аркуші за допомогою VBA

Припустімо, що у нас є книга Excel із чотирма аркушами:

Тепер припустімо, що ми клацаємо правою кнопкою миші Sheet4 , а потім клацаємо Hide :

Скажімо, ми повторюємо цей процес із Sheet2 , щоб єдиними видимими аркушами стали Sheet1 і Sheet3 .

Припустімо, ми хочемо використовувати VBA для відображення всіх аркушів у робочій книзі.

Для цього ми можемо створити такий макрос:

 Sub UnhideAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Visible = True
    Next ws

End Sub

Після виконання цього макросу відобразяться всі аркуші робочої книги:

Примітка . Ви можете знайти повну документацію щодо властивості Visible у VBA тут .

Додаткові ресурси

У наступних посібниках пояснюється, як виконувати інші типові завдання у VBA:

VBA: як знайти останній використаний рядок
VBA: як знайти останній використаний стовпець
VBA: Як заморозити панелі