Note: The other languages of the website are Google-translated. Back to English
Войти  \/ 
x
or
x
Регистрация  \/ 
x

or

Как использовать флажок, чтобы скрыть или показать рабочий лист в Excel?

Флажок - полезная функция в Excel. Здесь я покажу вам, как использовать флажок, чтобы скрыть или показать указанный рабочий лист в Excel.

Используйте флажок, чтобы скрыть или показать лист в Excel


Используйте флажок, чтобы скрыть или показать лист в Excel


Предположим, у вас есть флажок с именем checkbox1 в вашей книге. Снимая этот флажок, вы хотите, чтобы определенный рабочий лист был автоматически скрыт в этой книге, и отображал этот рабочий лист, установив флажок. Пожалуйста, добейтесь этого следующим образом.

1. Откройте рабочий лист, содержащий Checkbox1, щелкните правой кнопкой мыши вкладку листа, а затем щелкните Просмотреть код из контекстного меню.

Внимание: Флажок должен быть флажком 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 указанный рабочий лист «Sheet5» будет автоматически скрыт. И вы можете показать это, установив флажок. Смотрите скриншот:


Статьи по теме:


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

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office / Excel 2007-2019 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jack · 1 years ago
    Hi. I'm very new to ActiveX Controls. I am trying to have multiple checkboxes on one sheet that will hide specific sheets and not all of them or the same one every time. These two scenarios have been my experience. What I need to accomplish is:
    CheckBox1 hides Sheet2
    CheckBox2 hides Sheet3
    CheckBox3 hides Sheet4
    CheckBox4 hides Sheet5
    CheckBox5 hides Sheet6
    CheckBox6 hides Sheet7
    CheckBox7 hides Sheet8
    CheckBox8 hides Sheet9

    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi Jack,
      Just repeat the code and change the checkbox numbers and the sheet names. Try the below code.

      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
      • To post as a guest, your comment is unpublished.
        Jack · 1 years ago
        Crystal,
        Thanks so much...it worked perfectly!
  • To post as a guest, your comment is unpublished.
    Syahrul · 2 years ago
    How do I hide or unhide a sheet with multiple checkbox? For example sheet "MainMenu" need to be hide unless checkbox_1, checkbox_2 & checkbox_3 are checked.
  • To post as a guest, your comment is unpublished.
    aitorhdzramos@gmail.com · 3 years ago
    Funciona perfectamente pero, ¿cómo se pueden ocultar varias hojas con el mismo checkbox? Muchas gracias!
    • To post as a guest, your comment is unpublished.
      aitorhdzramos@gmail.com · 3 years ago
      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
  • To post as a guest, your comment is unpublished.
    Kourtney · 3 years ago
    How do you do multiple on the same page? How do i then hide sheet 3 or 4 with a checkbox?
    • To post as a guest, your comment is unpublished.
      aitorhdzramos@gmail.com · 3 years ago
      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