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: [C: D]. EntireColumn означає, що стовпці C і D будуть приховані або показані, встановивши або знявши відповідний прапорець.

2. Для приховування або відображення певних рядків, таких як рядок 6: 9, будь ласка, змініть [C: D]. Весь стовпець до [6: 9]. EntireRow у коді VBA.

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

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

Відтепер, коли прапорець встановлений, відображаються вказані рядки або стовпці. Якщо його не позначено, зазначені рядки або стовпці приховані.


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


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

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

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (24)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Чи є спосіб використовувати прапорець «Використовувати прапорець, щоб приховати/показати рядки чи стовпці з кодом VBA» на захищеному аркуші?
Цей коментар був мінімізований модератором на сайті
@Wayne:

Private Sub CheckBox1_Click ()
ActiveSheet.Unprotect Password:="xxxxx"
Rows("284:351").EntireRow.Hidden = Not CheckBox1
ActiveSheet.Protect Password:="xxxx"
End Sub
Цей коментар був мінімізований модератором на сайті
Здається, що цей код буде рухатися лише в одному напрямку, тобто лише приховувати, а не показувати їх при натисканні. Чи є спосіб виправити це?
Цей коментар був мінімізований модератором на сайті
У нас така ж проблема, але я дізнався, що ми використовуємо елементи керування формою, а не елементи керування ActiveX. Код ідеально працює в кнопці прапорця ActiveX Control. Просто вимкніть режим конструктора, щоб поставити прапорець.
Цей коментар був мінімізований модератором на сайті
У нас така ж проблема, але ми знаходимо спосіб змусити її працювати. Будь ласка, використовуйте прапорець 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
Цей коментар був мінімізований модератором на сайті
Добрий день,
Як показано в наведеному нижче коді, будь ласка, замініть "Sheet4" на свою назву окремого аркуша.

Private Sub CheckBox1_Click ()
[Sheet4!C:D].EntireColumn.Hidden = Не CheckBox1
End Sub
Цей коментар був мінімізований модератором на сайті
привіт,

Привіт, я зробив код, він працює добре, але коли я намагаюся зробити те саме в кількох прапорцях на одному аркуші, вони працюють «разом», лише приховують або показують рядки, якщо вибрано всі три прапорці.
Я намагаюся зробити так, щоб ці три прапорці працювали незалежно один від одного. І нехай користувачі позначають лише одну коробку за раз.
Цей коментар був мінімізований модератором на сайті
Привіт Лу,
Переконайтеся, що створені вами прапорці є прапорцями ActiveX Controls. Ці прапорці працюють незалежно у вашому робочому аркуші.
Дякую за ваш коментар.
Цей коментар був мінімізований модератором на сайті
Здравствуйте,

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

Alguém pode complementar por favor? Preciso de um código para ocultar e 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!

Tenho uma situação onde preciso ocultar/reexibir a coluna utilizando o Control ActiveX quando solecionado o item.

Приклад: Tenho coluna com os nomes: Planejado, Realizado, Analise Vertical, Análise Vertical, Variação (R$) і Variação (%), no entanto, que poder selecionar individual as colunas intercalando se necessário. Selectionar somente a coluna Realizado e Variação, mesmo não estando na sequencia.

Desde já agradeço,
Велінгтон
Цей коментар був мінімізований модератором на сайті
привіт,
Вибачте, я не розумію, що ви маєте на увазі. Не могли б ви надати знімок екрана своїх даних?
Можливо, вам знадобиться додати знімок екрана або зразок файлу, щоб більш чітко описати проблему, з якою ви зіткнулися.
Цей коментар був мінімізований модератором на сайті
E para ocultar colunas não sequências?
Приклад: A і C

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

"Sub CheckBox1_Click privada ()
[C:D].EntireColumn.Hidden = No CheckBox1
Закінчити суб"
Цей коментар був мінімізований модератором на сайті
привіт,
Наступний код VBA може зробити вам послугу. Будь ласка, спробуйте.
Private Sub CheckBox1_Click()
'Updated by Extendoffice 20220810
    [C:C, A:A].EntireColumn.Hidden = Not CheckBox1
End Sub
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця