Прескочи на основното съдържание

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

Автор: Xiaoyang Последна промяна: 2013-10-31

Ако приемем, че имате някои листове с важни данни, които не искате другите да виждат, скриването на работни листове може да бъде лесен начин за защита на данните в Excel. Но понякога трябва да покажете скритите листове и след това да ги скриете отново, обикновено трябва да ги показвате един по един, ако обикновено прилагате тази операция, това ще бъде неприятно и отнема много време. В тази статия ще ви представя някои бързи начини за превключване на работните листове между скрити и некрити.

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

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


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

Да предположим, че имате работна книга с Sheet1, Sheet2 и Sheet3 са скрити, следният VBA код може да ви помогне бързо да ги покажете и второто щракване ще ги скрие отново. Моля, направете следното:

1. Щракнете Софтуерен Инженер > Visual Basic, и нов 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("Sheet1", "Sheet2", "Sheet3") е променлива, можете да промените имената на скритите работни листове според нуждите си.

2. След това натиснете F5 за стартиране на кода и скритите листове са се показали, ако искате да ги скриете отново, моля натиснете F5 ключ още веднъж.


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

с Превключване на видимостта на скритите работни листове функция на Kutools за Excel, можете лесно да превключвате листове между скрити и нескрити, като щракнете върху командата Работни листове.

Kutools за Excel включва повече от 300 удобни инструмента на Excel. Безплатно изпробване без ограничение за 30 дни. Махни го сега.

Когато сте инсталирали Kutools за Excel, можете да направите следните стъпки:

1. Отворете работната книга, която трябва да съдържа някои скрити работни листове.

2. Щракнете Kutools > Работни листове, вижте екранна снимка:

doc-toggle-hidden-sheets1

Когато кликнете върху Работни листове команда веднъж, всички скрити листове са били показани, ако искате да ги скриете отново, щракнете върху Работни листове команда с втори път. Вижте екранни снимки:

doc-toggle-hidden-sheets2
-1
doc-toggle-hidden-sheets3
-1
doc-toggle-hidden-sheets2

Забележка: Тази функция се прилага и за непостоянни скрити листове.

Ако искате да научите повече за тази функция, моля щракнете Превключване на видимостта на скритите работни листове.


Свързана статия:

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

Най-добрите инструменти за продуктивност в офиса

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

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 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