Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как снять или снять все флажки сразу в Excel?

Как можно снять или снять флажок всех отмеченных флажков сразу на листе, как показано на следующем скриншоте? В этой статье я расскажу о некоторых быстрых кодах для ее решения.

doc снимите флажки 1

Снимите флажок или снимите флажок со всех флажков с кодом VBA


Вставляйте сразу несколько флажков:

Kutools for ExcelАвтора Пакеты для установки в пакетной упаковке утилита может помочь вам быстро вставить несколько флажков сразу.

док-создать-combobox22

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


arrow синий правый пузырь Снимите флажок или снимите флажок со всех флажков с кодом VBA

Снимите флажок или снимите флажок со всех отмеченных флажков (Элементы управления формой):

Если ваши флажки являются элементами управления формой, вы можете сразу снять их со следующего кода VBA:

1, Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окна.

2. Щелчок Вставить > модуль, и вставьте следующий код в модуль Окно.

Код VBA: снимите или снимите флажок со всех отмеченных флажков (Элементы управления формой):

Sub ClearCheckBoxes()
'Updateby Extendoffice 20161129
    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. Щелчок Вставить > модуль, и вставьте следующий код в модуль Окно.

Код VBA: снимите или снимите флажок со всех отмеченных флажков (элементы управления ActiveX):

Sub clearcheckbox()
'Updateby Extendoffcie 20161129
    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 ключ для запуска этого кода, и все отмеченные флажки были отменены сразу на активной рабочей таблице.


  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905
  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    biqBob · 1 years ago
    many thanks for this vba code, helped greatly.

    FYI for people not getting it to work by hitting F5, simply :

    developer tab > macros > select the module just created and click options > type a character for the shortcut, such as ctrl+j or ctrl+k.