Как показать все листы с помощью vba (с примером)

Вы можете использовать свойство Visible в VBA для отображения листа в книге Excel.

Чтобы отобразить все листы книги, вы можете использовать следующий синтаксис:

 Sub UnhideAllSheets()

Dim ws As Worksheet

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

End Sub

Используя простой цикл For Each и указав Visible = True , мы сообщаем Excel, что нужно отобразить все листы в книге.

В следующем примере показано, как использовать этот синтаксис на практике.

Пример: как отобразить все листы с помощью VBA

Предположим, у нас есть книга Excel с четырьмя листами:

Теперь предположим, что мы щелкаем правой кнопкой мыши Sheet4 и затем нажимаем «Скрыть» :

Допустим, мы повторяем этот процесс с Листом2 , так что теперь единственными видимыми листами являются Лист1 и Лист3 .

Допустим, мы хотим использовать 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: как заморозить панели