Как быстро отобразить только активный или выбранные листы в Excel?
Если в вашей рабочей книге несколько листов, и вы хотите быстро отобразить только активный или выбранные листы, скрыв остальные — как это сделать без ручного скрытия каждого по отдельности?
Отобразить только Текущий лист с помощью VBA
Отобразить только выбранные листы с помощью Kutools для Excel 
Отобразить только Текущий лист с помощью VBA
Приведённый ниже код VBA позволяет мгновенно скрыть все листы, кроме активного.
1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Затем нажмите Вставка > Модуль и вставьте приведённый ниже код VBA в новое окно Модуля.
VBA: Отобразить только Текущий лист
Sub Macro1()
'UpdatebyKutoolsforExcel20160409
Dim xSht As Object
For Each xSht In ThisWorkbook.Sheets
If xSht.Name <> ThisWorkbook.ActiveSheet.Name
Then xSht.Visible = False
Next
End Sub3. Нажмите кнопку Выполнить или клавишу F5, чтобы запустить макрос. После этого отображается только текущий лист, а остальные листы скрываются.
Отобразить только выбранные листы с помощью Kutools для Excel
Если у вас установлен Kutools для Excel, вы можете одним щелчком быстро скрыть все неактивные или невыбранные листы.
После бесплатной установкиKutools для Excel выполните следующие действия:
Активируйте нужный лист или выберите несколько листов для отображения, затем нажмите Kutools > Показать и скрыть > Скрыть неактивные листы. См. снимок экрана:
Теперь невыбранные листы скрыты.
Совет: Чтобы отобразить все листы, нажмите Kutools > Показать и скрыть > Показать все листы. См. снимок экрана:
Связанные статьи
- Как скрыть строки в Excel на основе значения ячейки?
- Как создать динамический список с названиями листов в Excel?
- Как переименовать листы в Excel на основе значений ячеек?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек