Перейти к основному содержанию

Как переключаться между скрытыми и видимыми листами в Excel?

Предположим, у вас есть листы с важными данными, которые вы не хотите, чтобы другие видели, скрытие листов может быть простым способом защиты данных в Excel. Но иногда вам нужно показать скрытые листы, а затем скрыть их снова, обычно вам нужно отображать их один за другим, если вы обычно применяете эту операцию, это будет хлопотно и отнимет много времени. В этой статье я познакомлю вас с некоторыми быстрыми способами переключения рабочих листов между скрытыми и невидимыми.

Переключайте листы между скрытыми и невидимыми с помощью кода VBA

Переключайте листы между скрытыми и невидимыми с помощью Kutools for Excel


стрелка синий правый пузырь Переключайте листы между скрытыми и невидимыми с помощью кода VBA

Предположим, у вас есть книга, в которой Sheet1, Sheet2 и Sheet3 скрыты, следующий код VBA поможет вам быстро отобразить их, а второй щелчок снова скроет их. Пожалуйста, сделайте следующее:

1. Нажмите Застройщик > Визуальный Бейсик, И новый Microsoft Visual Basic для приложений появится окно, щелкните Вставить > Модули, а затем введите следующий код в модуль.

Sub ToggleHideUnhideDataSheets()
Application.ScreenUpdating = False
Dim wb As Workbook
Dim ShtNames() As Variant
Set wb = ActiveWorkbook
ShtNames = Array("Sheet1", "Sheet2", "Sheet3")
For i = 0 To UBound(ShtNames)
wb.Sheets(ShtNames(i)).Visible = Not wb.Sheets(ShtNames(i)).Visible
Next i
Application.ScreenUpdating = True
End Sub

В приведенном выше коде ShtNames = Array («Лист1», «Лист2», «Лист3») является переменной, вы можете изменить имена скрытых листов по своему усмотрению.

2, Затем нажмите F5 клавишу для запуска кода, и были отображены скрытые листы, если вы хотите снова скрыть их, нажмите F5 ключ еще раз.


стрелка синий правый пузырь Переключайте листы между скрытыми и невидимыми с помощью Kutools for Excel

Доступно Переключить видимость скрытых листов Функция Kutools for Excel, вы можете легко переключать листы между скрытыми и скрытыми, щелкая команду «Рабочие листы».

Kutools for Excel включает более 300 удобных инструментов Excel. Бесплатная пробная версия без ограничений в течение 30 дней. Получить сейчас.

Когда вы установили Kutools for Excel, вы можете сделать следующие шаги:

1. Откройте книгу, которая должна содержать несколько скрытых листов.

2. Нажмите Кутулс > Worksheets, см. снимок экрана:

документ-переключение-скрытые-листы1

Когда вы нажимаете Worksheets один раз, все скрытые листы были отображены, если вы хотите снова скрыть их, нажмите кнопку Worksheets команду со вторым временем. Смотрите скриншоты:

документ-переключение-скрытые-листы2
-1
документ-переключение-скрытые-листы3
-1
документ-переключение-скрытые-листы2

Внимание: Эта функция также применима к прерывистым скрытым листам.

Если вы хотите узнать больше об этой функции, нажмите Переключить видимость скрытых листов.


Связанная статья:

Переключение между скрытыми и видимыми столбцами в Excel

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Works great, but how would you modify this to use the sheet's CodeNames instead of "Sheet" names?

That way user can still change the Tab name and Tab order as needed.

Thanks!
This comment was minimized by the moderator on the site
At the end of the code you forgot to put Application.ScreenUpdating = True to turn back on the screen updating. :-)
This comment was minimized by the moderator on the site
[quote]At the end of the code you forgot to put Application.ScreenUpdating = True to turn back on the screen updating. :-)By Greg[/quote] Thanks for your feedback. We will change it soon. :lol:
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations