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

Як зняти або зняти прапорці відразу всі прапорці в 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-денна гарантія повернення грошей.
вкладка kte 201905

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

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

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

вкладка розробника > макроси > виберіть щойно створений модуль та натисніть параметри > введіть символ для ярлика, наприклад ctrl+j або ctrl+k.
Цей коментар був мінімізований модератором на сайті
Дякую за допомогу в цьому. Це дуже цінується. Однак, будь ласка, зверніть увагу: НЕПРАВИЛЬНО НАПИСАНО У КОДЕ ДЛЯ КРОКУ №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 списки на одному аркуші (щоденні/щотижневі/щомісячні завдання) і я хочу створити кнопку "Очистити все" для кожного списку.
Цей коментар був мінімізований модератором на сайті
Велика допомога! Дякую!
Цей коментар був мінімізований модератором на сайті
Ой, ДЯКУЮ, ЦЕЙ САЙТ РЯТАЄ ЖИТТЯ :)
Цей коментар був мінімізований модератором на сайті
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.
Цей коментар був мінімізований модератором на сайті
Бонжур Ліндас,
Je vous en prie. Heureux que cela aide. Pour toute question, n'hésitez pas à nous contacter. Passe une bonne journée.
Щирість,
Менді
Цей коментар був мінімізований модератором на сайті
Привіт
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

Дякуємо за вашу допомогу
Цей коментар був мінімізований модератором на сайті
Привіт, Зігфрід
Якщо ви хочете перевірити один і вимкнути інший, застосуйте наведений нижче код:
примітки: Поставте прапорець тут, щоб використовувати прапорець 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

Будь ласка, спробуйте, сподіваюся, це допоможе вам!
Цей коментар був мінімізований модератором на сайті
Як очистити всі прапорці на всіх аркушах?
Цей коментар був мінімізований модератором на сайті
Привіт, Рамон

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


Будь ласка, спробуйте, сподіваюся, це допоможе вам!
Цей коментар був мінімізований модератором на сайті
Як я можу зняти всі прапорці на всіх аркушах?
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

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

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