Як приховати всі робочі аркуші, крім зазначеного або активного в Excel?
Для збереження чистоти книги та зручності в ній, можливо, вам захочеться приховати всі аркуші, крім поточного активного в Excel. У цій статті ми покажемо вам два способи приховування всіх аркушів, але вказаного або активного в Excel.
Приховати всі робочі аркуші, крім зазначеного, в Excel із кодом VBA
Сховати всі аркуші, крім активного, за допомогою Kutools для Excel (лише кілька клацань мишкою)
Приховати всі робочі аркуші, крім зазначеного, в Excel із кодом VBA
Ви можете приховати всі робочі аркуші, крім зазначеного, за допомогою коду VBA в Excel. Будь ласка, виконайте наступне.
1. У поточній відкритій книзі перейдіть до аркуша, який ви хочете лише показати, а потім натисніть інший + F11 одночасно відкрити Додаток Microsoft Visual Basic вікна.
2 В Додаток Microsoft Visual Basic вікна, натисніть Insert > Модулі. Дивіться знімок екрана:
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 Потім натисніть Кутулс > Показати сховати > Сховати невиділені аркуші.
Тоді всі аркуші в поточній книзі приховані, крім активної.
примітки: Якщо ви хочете відобразити всі приховані аркуші, натисніть Кутулс > Показати / Приховати > Показати всі аркуші. Дивіться знімок екрана:
Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!