Как да скрия всички работни листове с изключение на посочения или активен в Excel?
За да поддържате работната книга чиста и лесна за навигация, може да искате да скриете всички работни листове с изключение на текущия активен в Excel. В тази статия ще ви покажем два метода за скриване на всички работни листове, освен определен или активен в Excel.
Скриване на всички работни листове освен посочения в Excel с VBA код
Скрийте всички работни листове, освен активния с Kutools за 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 за Excel (само едно щракване)
Можете да скриете всички листове с изключение на посочения или активен само с едно щракване в Excel.
Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.
1. Влезте в посочения лист, който искате да се показва само в текущата работна книга.
2. След това кликнете Kutools > Покажи скрий > Скриване на неизбрани листове.
Тогава всички листове в текущата работна книга са скрити, с изключение на активния.
Забележка: Ако искате да покажете всички скрити работни листове, моля щракнете Kutools > Покажи / скрий > Показване на всички листове. Вижте екранна снимка:
Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!