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

Как использовать флажок, чтобы скрыть или показать рабочий лист в 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-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 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 checkbox? Большое спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
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
Этот комментарий был сведен к минимуму модератором на сайте
Как скрыть или показать лист с несколькими флажками? Например, лист «MainMenu» необходимо скрыть, если не отмечены checkbox_1, checkbox_2 и checkbox_3.
Этот комментарий был сведен к минимуму модератором на сайте
Привет. Я очень новичок в элементах управления ActiveX. Я пытаюсь установить несколько флажков на одном листе, которые будут скрывать определенные листы, а не все или один и тот же каждый раз. Эти два сценария были моим опытом. Что мне нужно сделать, так это:
CheckBox1 скрывает Sheet2
CheckBox2 скрывает Sheet3
CheckBox3 скрывает Sheet4
CheckBox4 скрывает Sheet5
CheckBox5 скрывает Sheet6
CheckBox6 скрывает Sheet7
CheckBox7 скрывает Sheet8
CheckBox8 скрывает Sheet9
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Джек,
Просто повторите код и измените номера флажков и имена листов. Попробуйте приведенный ниже код.

Private Sub CheckBox1_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Лист2").Visible = CheckBox1.Value

End Sub

Private Sub CheckBox2_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Лист3").Visible = CheckBox2.Value

End Sub

Private Sub CheckBox3_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Лист4").Visible = CheckBox3.Value

End Sub

Private Sub CheckBox4_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Лист5").Visible = CheckBox4.Value

End Sub

Private Sub CheckBox5_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Лист6").Visible = CheckBox5.Value

End Sub

Private Sub CheckBox6_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Лист7").Visible = CheckBox6.Value

End Sub

Private Sub CheckBox7_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Лист8").Visible = CheckBox7.Value

End Sub

Private Sub CheckBox8_Click ()

On Error Resume Next

ThisWorkbook.Sheets("Лист9").Visible = CheckBox8.Value

End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Кристалл,
Большое спасибо... все сработало отлично!
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Кристал,
Есть ли функция, которая бы изменила это; т.е. лист скрыт, если флажок не установлен?
Этот комментарий был сведен к минимуму модератором на сайте
Привет,
Je cherche à afficher des pages avec des case à cocher. Les Chekbox sont toutes sur la meme feuille de calcul.
Я копирую главный код и дублирую его.

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("Хвостовые фрукты и бобовые").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
Этот комментарий был сведен к минимуму модератором на сайте
Привет Скай53,
мне кажется ты не изменился CheckBox1.Value к соответствующему имени флажка во втором коде VBA.
Пожалуйста, измените следующую строку во втором коде:
ThisWorkbook.Sheets("Хвостовые фрукты и бобовые").Visible = CheckBox1.Value
в
ThisWorkbook.Sheets("Хвостовые фрукты и бобовые").Visible = CheckBox2.Value
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL