Note: The other languages of the website are Google-translated. Back to English

Як використовувати прапорець, щоб приховати або показати аркуш у Excel?

Прапорець - корисна функція в Excel. Тут я покажу вам, як використовувати прапорець, щоб приховати або показати вказаний аркуш у Excel.

Використовуйте прапорець, щоб приховати або показати аркуш у Excel


Використовуйте прапорець, щоб приховати або показати аркуш у Excel

Припустимо, у вас є прапорець із назвою checkbox1 у вашій книзі. Знімаючи цей прапорець, ви хочете, щоб певний аркуш автоматично ховався в цій книзі, і показувати цей аркуш під час встановлення прапорця. Будь ласка, досягніть цього наступним чином.

1. Відкрийте аркуш, що містить прапорець1, клацніть правою кнопкою миші вкладку аркуша, а потім клацніть Переглянути код з меню, що клацне правою кнопкою миші.

примітки: Під час вставлення прапорець повинен бути прапорцем ActiveX.

2 В Microsoft Visual Basic для додатків вікно, скопіюйте та вставте наведений нижче код VBA у вікно коду. Дивіться знімок екрана:

Код VBA: використовуйте прапорець, щоб приховати або показати вказаний аркуш

Private Sub CheckBox1_Click()
    On Error Resume Next
    ThisWorkbook.Sheets("Sheet5").Visible = CheckBox1.Value
End Sub

примітки: У коді Sheet5 - це назва робочого аркуша, який ви приховаєте або покажете за допомогою прапорця1. Будь ласка, замініть назву робочого аркуша, як вам потрібно.

3. прес інший + Q клавіші одночасно, щоб закрити Microsoft Visual Basic для додатків вікна.

Відтепер, при знятті прапорця1, зазначений робочий аркуш “Аркуш5” буде автоматично прихований. І ви можете показати це, встановивши прапорець. Дивіться знімок екрана:


Статті по темі:


Найкращі інструменти для підвищення продуктивності офісу

Kutools for Excel Вирішує більшість ваших проблем і підвищує вашу продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (11)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Як зробити кілька на одній сторінці? Як приховати аркуш 3 або 4 за допомогою прапорця?
Цей коментар був мінімізований модератором на сайті
Private Sub CheckBox1_Click ()
On Error Resume Next
ThisWorkbook.Sheets("DB2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("V2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("R2018").Visible = CheckBox1.Value
End Sub
Цей коментар був мінімізований модератором на сайті
Funciona perfectamente pero, ¿cómo se pueden ocultar varias hojas con el mismo прапорець? Дуже дякую!
Цей коментар був мінімізований модератором на сайті
Basta con copiar la linea tantas veces como se quiera nombrando la hoja que debe ser ocultada.

Private Sub CheckBox1_Click ()
On Error Resume Next
ThisWorkbook.Sheets("DB2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("V2018").Visible = CheckBox1.Value
ThisWorkbook.Sheets("R2018").Visible = CheckBox1.Value
End Sub
Цей коментар був мінімізований модератором на сайті
Як приховати або показати аркуш із кількома прапорцями? Наприклад, аркуш «Головне меню» потрібно приховати, якщо не встановлено прапорці_1, checkbox_2 та checkbox_3.
Цей коментар був мінімізований модератором на сайті
Привіт. Я дуже новачок у елементах керування ActiveX. Я намагаюся встановити кілька прапорців на одному аркуші, які будуть приховувати певні аркуші, а не всі або кожен раз один і той самий. Ці два сценарії були моїм досвідом. Що мені потрібно зробити, це:
CheckBox1 приховує Аркуш2
CheckBox2 приховує Аркуш3
CheckBox3 приховує Аркуш4
CheckBox4 приховує Аркуш5
CheckBox5 приховує Аркуш6
CheckBox6 приховує Аркуш7
CheckBox7 приховує Аркуш8
CheckBox8 приховує Аркуш9
Цей коментар був мінімізований модератором на сайті
Привіт джек
Просто повторіть код і змініть номери прапорців та назви аркушів. Спробуйте наведений нижче код.

Private Sub CheckBox1_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sheet2").Visible = CheckBox1.Value

End Sub

Private Sub CheckBox2_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sheet3").Visible = CheckBox2.Value

End Sub

Private Sub CheckBox3_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sheet4").Visible = CheckBox3.Value

End Sub

Private Sub CheckBox4_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sheet5").Visible = CheckBox4.Value

End Sub

Private Sub CheckBox5_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sheet6").Visible = CheckBox5.Value

End Sub

Private Sub CheckBox6_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sheet7").Visible = CheckBox6.Value

End Sub

Private Sub CheckBox7_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sheet8").Visible = CheckBox7.Value

End Sub

Private Sub CheckBox8_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Sheet9").Visible = CheckBox8.Value

End Sub
Цей коментар був мінімізований модератором на сайті
кришталь,
Щиро дякую... це спрацювало ідеально!
Цей коментар був мінімізований модератором на сайті
Привіт Кристал,
Чи є функція, яка б змінила це; тобто. аркуш прихований, якщо не встановлено прапорець?
Цей коментар був мінімізований модератором на сайті
Привіт,
Je cherche à afficher des pages avec des case à cocher. Les Chekbox sont toutes sur la même feuille de calcul.
J'ai copié le premier code et l'ai dupliquer.

Private Sub CheckBox1_Click ()
On Error Resume Next
ThisWorkbook.Sheets("Eplucher, laver, désinfecter").Visible = CheckBox1.Value
End Sub

Private Sub CheckBox2_Click ()
On Error Resume Next
ThisWorkbook.Sheets("Tailler fruits et légumes").Visible = CheckBox1.Value
End Sub

Malheureusement, si je ne coche pas la première case ma seconde case ne fonctionne pas. Pourriez-vous m'aider svp
Цей коментар був мінімізований модератором на сайті
Привіт Sky53,
Здається, ти не змінився CheckBox1.Value до відповідного імені прапорця у другому коді VBA.
Змініть наступний рядок у другому коді:
ThisWorkbook.Sheets("Tailler fruits et légumes").Visible = CheckBox1.Value
до
ThisWorkbook.Sheets("Tailler fruits et légumes").Visible = CheckBox2.Value
There are no comments posted here yet

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL