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 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% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (26)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Чи є спосіб використовувати прапорець «Використовувати прапорець, щоб приховати/показати рядки чи стовпці з кодом 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
Цей коментар був мінімізований модератором на сайті
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
There are no comments posted here yet

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

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