Как скрыть все листы, кроме указанного или активного, в Excel?
Для поддержания рабочей книги в чистоте и удобной навигации вы можете захотеть скрыть все листы, кроме текущего активного, в Excel. В этой статье мы покажем вам два метода скрытия всех листов, кроме указанного или активного, в Excel.
Скрытие всех листов, кроме указанного, в Excel с помощью кода VBA
Скрытие всех листов, кроме активного, с помощью Kutools для Excel (всего несколько кликов)
Скрытие всех листов, кроме указанного, в Excel с помощью кода VBA
Вы можете скрыть все листы, кроме указанного, с помощью кода VBA в Excel. Пожалуйста, выполните следующие действия.
1. В текущей открытой книге переключитесь на лист, который хотите оставить видимым, а затем одновременно нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic Application.
2. В окне Microsoft Visual Basic Application нажмите Вставить > Модуль. См. скриншот:
3. Затем скопируйте и вставьте приведенный ниже код VBA в редактор кода.
Код VBA: скрыть все листы, кроме указанного
Sub SheetHidden()
Dim xWs As Worksheet
Dim xName As String
xName = Application.InputBox("Range", xTitleId, Application.ActiveSheet.Name, Type: = 2)
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xName Then
xWs.Visible = xlSheetHidden
End If
Next
End Sub4. Нажмите клавишу F5, чтобы запустить код.
5. После запуска кода появится диалоговое окно с отображением имени активного листа в поле Диапазон, затем нажмите кнопку ОК.
Затем все листы будут немедленно скрыты, кроме текущего в вашей книге.
Примечание: Чтобы показать скрытые листы, пожалуйста, скопируйте и вставьте следующий код VBA в Модуль, а затем нажмите клавишу F5, чтобы запустить код.
Код VBA: показать скрытые листы
Sub SheetUnHidden()
Dim xWs As Worksheet
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Visible = True
Next
End SubСкрытие всех листов, кроме активного, с помощью Kutools для Excel (один клик)
Вы можете скрыть все листы, кроме указанного или активного, всего одним кликом в Excel.
1. Перейдите к указанному листу, который вы хотите оставить видимым только в текущей книге.
2. Затем нажмите Kutools > Показать и скрыть > Скрыть неактивные листы.
Теперь все листы в текущей книге скрыты, кроме активного.
Примечание: Если вы хотите показать все скрытые листы, пожалуйста, нажмите Kutools > Показать / Скрыть > Показать все листы. См. скриншот:
Kutools для Excel - Усильте Excel более чем 300 необходимыми инструментами. Наслаждайтесь постоянно бесплатными функциями ИИ! Получите прямо сейчас
Лучшие инструменты для повышения продуктивности в 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек