Як зняти або зняти прапорці відразу всі прапорці в Excel?

Як ви могли зняти або зняти позначки з усіх прапорців відразу на аркуші, як показано на наступному знімку екрана? У цій статті я розповім про деякі швидкі коди для її вирішення.

doc зніміть прапорці 1

Зніміть або зніміть усі прапорці з кодом VBA

Зніміть або зніміть усі прапорці з кодом VBA

Зніміть або зніміть прапорці з усіх прапорців (елементи керування формою):

Якщо ваші прапорці є елементами керування формою, ви можете зняти їх відразу за допомогою такого коду VBA:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код VBA: Зніміть або зніміть усі прапорці (елементи керування формою):

Sub ClearCheckBoxes()
'Updateby Extendoffice
    Dim chkBox As Excel.CheckBox
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.CheckBoxes
            chkBox.Value = xlOff
    Next chkBox
    Application.ScreenUpdating = True
End Sub

3. Потім натисніть F5 для запуску цього коду, і всі позначені прапорці відразу зняті на активному аркуші.

Зніміть або зніміть усі прапорці (елементи керування ActiveX):

Якщо прапорцями є елементи керування ActiveX, застосуйте наведений нижче код VBA:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код VBA: Зніміть або зніміть прапорці з усіх прапорців (елементи керування ActiveX):

Sub clearcheckbox()
'Updateby Extendoffcie
    Dim c As Object
    For Each c In ActiveSheet.OLEObjects
        If InStr(1, c.Name, "CheckBox") > 0 Then
            c.Object.Value = False
        End If
    Next
End Sub

3. Потім натисніть F5 клавішу для запуску цього коду, і всі позначені прапорці відмінено відразу на активному аркуші.

Вставляйте відразу кілька прапорців у виділеннях

Kutools для Excel's Прапорці вставки партії Утиліта може допомогти вам швидко вставити кілька прапорців одночасно. Клацніть, щоб завантажити Kutools для Excel!

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

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

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

Детальніше ... Завантажити безкоштовно... Придбати ...

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

Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...

Коментарі (14)

Поки немає оцінок. Оцініть першим!

biqBob

про 4 років тому

# 25238

Цей коментар був мінімізований модератором на сайті

велике спасибі за цей код vba, дуже допоміг.

До Вашої інформації для людей, які не запрацюють, натиснувши F5, просто:

вкладка розробника > макроси > виберіть щойно створений модуль та натисніть параметри > введіть символ для ярлика, наприклад ctrl+j або ctrl+k.

відповісти

Р. Ротман biqBob

про 2 років тому

# 25239

Цей коментар був мінімізований модератором на сайті

Дякую за допомогу в цьому. Це дуже цінується. Однак, будь ласка, зверніть увагу: НЕПРАВИЛЬНО НАПИСАНО У КОДЕ ДЛЯ КРОКУ №2. Код VBA: зніміть або зніміть усі позначені прапорці (елементи керування ActiveX):
Підставити прапорець()
'Оновлення за допомогою Extendoffcie
Dim c як об’єкт
Для кожного c в ActiveSheet.OLEobjects
Якщо InStr(1, c.Name, "CheckBox") > 0 Тоді
c.Object.Value = False
End If
Далі
End Sub

Зверніть увагу, що СЛОВО "Extendoffcie" НАПИСАНО НЕ ПРАВИЛЬНО. НЕ ПОВИННО БУТИ"Extendoffice"?? У всякому разі, просто хотів викласти це там

відповісти

Аріель

про 3 років тому

# 31682

Цей коментар був мінімізований модератором на сайті

Що робити, якщо я хочу за допомогою кнопки активувати макрос, щоб очистити поля?

відповісти

скайян Аріель

про 3 років тому

# 31683

Цей коментар був мінімізований модератором на сайті

Привіт, Аріель,
Щоб використовувати кнопку для активації макросу, спочатку потрібно вставити кнопку зі спадного списку «Фігури», потім клацнути правою кнопкою миші кнопку, вибрати «Призначити макрос» у контекстному меню, а потім вибрати назву макросу в діалоговому вікні «Призначити макрос». . Потім натисніть кнопку ОК, і код макросу буде пов’язано з кнопкою.
Будь ласка, спробуйте, сподіваюся, це допоможе вам!

Переглянути вкладення (1 / 5)

відповісти

доповідь

червень

про 2 років тому

# 33393

Цей коментар був мінімізований модератором на сайті

Як зняти прапорці лише з певного діапазону комірок на активному аркуші? У мене є 3 списки на одному аркуші (щоденні/щотижневі/щомісячні завдання) і я хочу створити кнопку "Очистити все" для кожного списку.

відповісти

Рейка

про 1 рік тому

# 36759

Цей коментар був мінімізований модератором на сайті

Велика допомога! Дякую!

відповісти

про 1 рік тому

# 36814

Цей коментар був мінімізований модератором на сайті

Ой, ДЯКУЮ, ЦЕЙ САЙТ РЯТАЄ ЖИТТЯ :)

відповісти

Ліндс

про 1 рік тому

# 37278

Цей коментар був мінімізований модератором на сайті

Merci beaucoup d'avoir partage le code pour décocher des éléments "CheckBox", cela m'a sauvé! :o)En effet, en codant un formulaire de saisie fait dans une feuille, je cherchais à trouver un moyen de décocher les case (en guise de réinitialisation du formulaire) et je ne trouvais pas (à part avec la méthode"Select" est, comme nous le savons tous, à bannir), tout simplement car :=> la propriété ".CheckBoxes" n'existe pas en propriété d'une "Worksheet" !=> l'Objet "CheckBoxes" ne figure pas non plus dans l'explorateur d'objets !C'est lunaire cette histoire...Alors merci énormément.Bien à vous.

відповісти

Мендічжоу Ліндс

близько 10 місяців тому

# 37279

Цей коментар був мінімізований модератором на сайті

Бонжур Ліндас,
Je vous en prie. Heureux que cela aide. Pour toute question, n'hésitez pas à nous contacter. Passe une bonne journée.
Щирість,
Менді

відповісти

доповідь

Пфлегер Зігфрід

близько 4 місяців тому

# 39962

Цей коментар був мінімізований модератором на сайті

Привіт
beim öffnen der datei sollten zwei voneinander abhängige CheckBox1 u. CheckBox2 не активовано

Private Sub CheckBox2_Click ()
Якщо CheckBox2 = True Тоді
CheckBox1 = False
End If
End Sub
Private Sub CheckBox1_Click ()
Якщо CheckBox1 = True Тоді
CheckBox2 = False
End If
End Sub

Дякуємо за вашу допомогу

відповісти

скайян Пфлегер Зігфрід

близько 4 місяців тому

# 39993

Цей коментар був мінімізований модератором на сайті

Привіт, Зігфрід
Якщо ви хочете перевірити один і вимкнути інший, застосуйте наведений нижче код:
примітки: Поставте прапорець тут, щоб використовувати прапорець ActiveX Control.

Private Sub CheckBox2_Click()
If CheckBox2 = True Then
CheckBox1.Enabled = False
Else
CheckBox1.Enabled = True
End If
End Sub
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
CheckBox2.Enabled = False
Else
CheckBox2.Enabled = True
End If
End Sub

Будь ласка, спробуйте, сподіваюся, це допоможе вам!

відповісти

доповідь

Рамон Торрес

близько 1 місяця тому

# 41951

Цей коментар був мінімізований модератором на сайті

Як очистити всі прапорці на всіх аркушах?

відповісти

скайян Рамон Торрес

близько 1 місяця тому

# 42031

Цей коментар був мінімізований модератором на сайті

Привіт, Рамон

Щоб зняти всі прапорці на всіх аркушах, застосуйте наведені нижче коди:
Зніміть прапорці з усіх аркушів (Елементи керування формою):

Sub Uncheckallcheckboxes()
    Dim sh As Worksheet
    For Each sh In Sheets
        On Error Resume Next
            sh.CheckBoxes.Value = False
        On Error GoTo 0
    Next sh
End Sub

Зніміть прапорці з усіх аркушів (Елементи керування ActiveX):

Sub uncheck_all_ActiveX_checkboxes()
    Dim ws As Worksheet
    Dim xbox As OLEObject
    For Each ws In ThisWorkbook.Worksheets
        For Each xbox In ws.OLEObjects
            ws.OLEObjects(xbox.Name).Object.Value = False
        Next
    Next
End Sub

Будь ласка, спробуйте, сподіваюся, це допоможе вам!

відповісти

доповідь

Рамон Торрес

близько 1 місяця тому

# 41952

Цей коментар був мінімізований модератором на сайті

Як я можу зняти всі прапорці на всіх аркушах?

відповісти

There are no comments posted here yet

Залишайте свої коментарі

Публікація як гість

Увійти

Ім'я (обов'язково)

E-mail (обов'язково)

Оцініть цю публікацію:

скидання

0 Персонажі

Я згоден з Терміни та умови