Как скрыть в Excel все листы, кроме указанного или активного?
Чтобы книга оставалась чистой и удобной для навигации, вы можете скрыть все рабочие листы, кроме текущего активного в Excel. В этой статье мы покажем вам два метода скрытия всех листов, кроме указанного или активного в Excel.
Скрыть все листы, кроме указанного, в Excel с кодом VBA
Скрыть все рабочие листы, кроме активного, с помощью Kutools for Excel (всего за несколько кликов)
Скрыть все листы, кроме указанного, в Excel с кодом VBA
Вы можете скрыть все листы, кроме указанного, с кодом VBA в Excel. Пожалуйста, сделайте следующее.
1. В текущей открытой книге перейдите к тому листу, который нужно отображать только, и нажмите другой + F11 одновременно открыть Приложение Microsoft Visual Basic окно.
2. в Приложение Microsoft Visual Basic окна, нажмите Вставить > Модули. Смотрите скриншот:
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 Sub
4. нажмите F5 ключ для запуска кода.
5. После запуска кода появится диалоговое окно с именем активного листа, отображаемым в Диапазон поле, затем щелкните OK .
Затем все листы сразу же скрываются, кроме текущего в вашей книге.
Внимание: Для отображения скрытых листов скопируйте и вставьте следующий код VBA в модуль, а затем нажмите клавишу F5, чтобы запустить код.
Код VBA: показать скрытые листы
Sub SheetUnHidden()
Dim xWs As Worksheet
For Each xWs In Application.ActiveWorkbook.Worksheets
xWs.Visible = True
Next
End Sub
Скрыть все рабочие листы, кроме активного, с помощью Kutools for Excel (только один щелчок)
Вы можете скрыть все листы, кроме указанного или активного, одним щелчком мыши в Excel.
Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.
1. Перейдите на указанный лист, который вы хотите, чтобы он отображался только в текущей книге.
2. Затем нажмите Кутулс > Показать спрятать > Скрыть невыбранные листы.
Тогда все листы в текущей книге будут скрыты, кроме активного.
Внимание: Если вы хотите отобразить все скрытые рабочие листы, нажмите Кутулс > Показать / Скрыть > Показать все листы. Смотрите скриншот:
Если вы хотите получить бесплатную (30-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!