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

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

Предположим, вам нужно использовать флажок, чтобы скрыть или показать определенные строки или столбцы. Например, когда установлен флажок Active X Control, отображаются определенные строки или столбцы, в противном случае они будут скрыты. В этой статье показано, как использовать флажок, чтобы скрыть / показать строки или столбцы в Excel с подробностями.

Используйте флажок, чтобы скрыть / показать строки или столбцы с кодом VBA


Используйте флажок, чтобы скрыть / показать строки или столбцы с кодом VBA

Следующий код VBA может помочь вам скрыть / показать определенные строки или столбцы с помощью флажка.

1. После установки флажка Active X Control на рабочий лист щелкните его правой кнопкой мыши и выберите Просмотреть код из контекстного меню. Смотрите скриншот:

2. в Microsoft Visual Basic для приложений окна, скопируйте и вставьте следующий код VBA в окно кода.

Код VBA: используйте флажок, чтобы скрыть / показать строки или столбцы

Private Sub CheckBox1_Click()
    [C:D].EntireColumn.Hidden = Not CheckBox1
End Sub

Заметки:

1. В коде VBA [CD]. Весь столбец означает, что столбцы C и D будут скрыты или отображены, если установить или снять соответствующий флажок.

2. Чтобы скрыть или отобразить определенные строки, такие как строка 6: 9, измените [CD]. Весь столбец в [6: 9]. Весь ряд в коде VBA.

3. нажмите другой + Q клавиши одновременно, чтобы закрыть Microsoft Visual Basic для приложений окно.

4. Теперь выключите Режим проектирования под разработчик вкладка, как показано ниже:

С этого момента, когда флажок установлен, отображаются указанные строки или столбцы. Если этот флажок не установлен, указанные строки или столбцы скрыты.


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


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

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

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

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (26)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Есть ли способ использовать флажок «Использовать флажок для скрытия/отображения строк или столбцов с кодом VBA» на защищенном листе?
Этот комментарий был сведен к минимуму модератором на сайте
@ Уэйн:

Private Sub CheckBox1_Click ()
Пароль ActiveSheet.Unprotect:="xxxxx"
Строки("284:351").EntireRow.Hidden = Not CheckBox1
Пароль ActiveSheet.Protect: = "xxxx"
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Похоже, что этот код будет работать только в одном направлении, то есть только скрывать, а не показывать их при нажатии. Есть ли способ исправить это?
Этот комментарий был сведен к минимуму модератором на сайте
У нас такая же проблема, но я обнаружил, что мы используем элементы управления формами, а не элементы управления ActiveX. Код отлично работает в кнопке ActiveX Control Checkbox. Просто отключите режим дизайна, чтобы вы могли установить флажок.
Этот комментарий был сведен к минимуму модератором на сайте
У нас такая же проблема, но найти способ заставить ее работать. Пожалуйста, используйте флажок ActiveX Controls, а не флажок Form Control. Код отлично работает с флажком ActiveX.


Private Sub CheckBox1_Click ()
[C:D].EntireColumn.Hidden = Не CheckBox1
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,

Я пытаюсь использовать этот код, чтобы скрыть/показать на отдельном листе от флажка. Что мне нужно добавить, чтобы это сработало? Заранее спасибо.

Private Sub CheckBox1_Click ()
[C:D].EntireColumn.Hidden = Не CheckBox1
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Добрый день,
Как показано в следующем коде, замените «Лист4» на имя вашего отдельного листа.

Private Sub CheckBox1_Click ()
[Лист4!C:D].EntireColumn.Hidden = Не CheckBox1
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,

Привет, я сделал код, он работает хорошо, но когда я пытаюсь сделать то же самое более чем в одном флажке на одном листе, они работают «вместе», скрывают или отображают строки только в том случае, если все три флажка выбраны.
Я пытаюсь сделать так, чтобы эти три флажка работали независимо друг от друга. И пусть пользователи отмечают только один ящик за раз.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Лу,
Пожалуйста, убедитесь, что созданные вами флажки являются флажками ActiveX Controls. Эти флажки работают независимо на вашем листе.
Спасибо за ваш комментарий.
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,

Есть ли способ скрыть только одну строку. Если я поставлю 6:9, все строки будут скрыты, но если я поставлю только 6, это выйдет как ошибка. Буду признателен за вашу помощь, спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
Пожалуйста, измените вторую строку в коде на:
[6:6].EntireRow.Hidden = Не CheckBox1.
Спасибо за ваш комментарий.
Этот комментарий был сведен к минимуму модератором на сайте
Я пытался показать первые три роли, но это не сработало. Как я могу это сделать, я знаю, что человек, который присылает мне этот файл, хочет знать, как я могу решить это или нет.
Этот комментарий был сведен к минимуму модератором на сайте
Привет май,
Извините, я не понял вашей мысли.
Этот комментарий был сведен к минимуму модератором на сайте
Это сработало, но потом, когда я сохранил файл и снова открыл, он не работает. Я попытался сохранить его как лист Macro excel и как обычную книгу. Что я сделал не так? Я хочу дать его кому-то еще, чтобы использовать и не хочу, чтобы они были сбиты с толку.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Анжела! После добавления кода в книгу нажмите «Файл» > «Сохранить как», выберите, где сохранить файл, в диалоговом окне «Сохранить как» выберите «Книга Excel с поддержкой макросов» (*.xlsm) в раскрывающемся списке «Сохранить как». и, наконец, нажмите Сохранить. Затем отправьте эту книгу Excel с поддержкой макросов другим пользователям.
Этот комментарий был сведен к минимуму модератором на сайте
Очень полезно, но как я могу использовать его, чтобы скрыть только часть электронной таблицы? Я имею в виду, например, ячейки B2: B11, как совместить эти две функции? Спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Что, если бы я хотел использовать 3 разных флажка и хотел, чтобы каждый из них переключал скрытие разных групп строк? Я пробовал и все пересмотрел. Когда я пытаюсь изменить этот код, кажется, что флажки мешают друг другу.
Этот комментарий был сведен к минимуму модератором на сайте
Что, если бы я хотел использовать 3 разных флажка и хотел, чтобы каждый из них переключал скрытие разных групп строк? Я пробовал и все пересмотрел. Когда я пытаюсь изменить этот код, кажется, что флажки мешают друг другу.
Этот комментарий был сведен к минимуму модератором на сайте
Esse código oculta, mas não executa a reexibição quando desmarcar.

Alguém pode дополнительно за благосклонность? Preciso де ум кодиго пункт окультного электронной reexibir colunas indicadas.

Private Sub CheckBox1_Click ()
[C:D].EntireColumn.Hidden = Не CheckBox1
End Sub

Спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Привет Велингтон Мескита,
Этот код VBA может достигать:
Когда установлен флажок1, отображаются столбцы C:D;
Если флажок снят, столбцы C:D скрыты.
Код работает хорошо в моем случае. Какую версию Excel вы используете?
Этот комментарий был сведен к минимуму модератором на сайте
Доброе утро!
Espero Que todos estejam bem!

Это может быть точное оккультное / повторное использование столбца, использующего Control ActiveX, который является единственным или единственным элементом.

Пример: Столбец Tenho с именами: Planejado, Realizado, Анализ по вертикали, Анализ по вертикали, Variação (R$) и Variação (%), no entanto, que poder selecionar Individual as colunas intercalando se necessário. Selecionar somente coluna Realizado e Variação, mesmo não estando na sequencia.

Desde já agradeço,
Веллингтон
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
Извините, я не понимаю, что вы имеете в виду. Не могли бы вы предоставить скриншот ваших данных?
Возможно, вам потребуется приложить снимок экрана или образец файла, чтобы более четко описать проблему, с которой вы столкнулись.
Этот комментарий был сведен к минимуму модератором на сайте
E para ocultar colunas não sequências?
Пример: A e C

Esta situação seria aplicado de que forma para A e C?

"Sub CheckBox1_Click privada ()
[C:D].EntireColumn.Hidden = Нет CheckBox1
Конец подписки "
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
Следующий код VBA может оказать вам услугу. Пожалуйста, попробуйте.
Private Sub CheckBox1_Click()
'Updated by Extendoffice 20220810
    [C:C, A:A].EntireColumn.Hidden = Not CheckBox1
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Bei mir werden die Zellen nicht ausgeblendet, wenn das Kontrollkästchen wieder in aktiv ist.

Mein Ziel ist es mit dem aktiveren des Kontrollkästchen die Zeile 7 einzublenden und wenn ich den Haken wieder entferne sollte Zeile 47 wieder ausgeblendet sein.
Помогите ....
Этот комментарий был сведен к минимуму модератором на сайте
Привет Роуз,
Следующий код VBA может помочь.
Private Sub CheckBox1_Click()
[47:47].EntireRow.Hidden = Not CheckBox1
End Sub
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

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

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