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

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

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

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

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


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

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

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

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

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код 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. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код 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 for Excel's Флажки пакетной вставки Утилита может помочь вам быстро установить сразу несколько флажков. Нажмите, чтобы загрузить Kutools for Excel!


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

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

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (14)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо за этот код vba, очень помог.

FYI для людей, которые не заставляют его работать, нажимая F5, просто:

вкладка разработчика > макросы > выберите только что созданный модуль и щелкните параметры > введите символ для ярлыка, например, ctrl+j или ctrl+k.
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо за вашу помощь в этом. Это очень ценится. Однако обратите внимание: В КОДЕ ДЛЯ ШАГА № 2 НЕВЕРНОЕ НАПИСАНИЕ. Код VBA: снимите или снимите все флажки (элементы управления ActiveX):
Подочистить флажок ()
'Обновление от Extendoffcie
Dim c как объект
Для каждого c в ActiveSheet.OLEObjects
Если InStr(1, c.Name, "CheckBox") > 0 Тогда
c.Object.Value = Ложь
End If
Далее
End Sub

ПОЖАЛУЙСТА, ОБРАТИТЕ ВНИМАНИЕ, СЛОВО «Extendoffcie» НАПИСАНО НЕПРАВИЛЬНО. НЕ ДОЛЖНО БЫТЬ"Extendoffice"?? Во всяком случае, просто хотел выложить это там
Этот комментарий был сведен к минимуму модератором на сайте
Что, если бы я хотел использовать кнопку, чтобы активировать макрос для очистки ящиков?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Ариэль,
Чтобы использовать кнопку для активации макроса, сначала вы должны вставить кнопку из раскрывающегося списка «Фигуры», а затем щелкнуть правой кнопкой мыши кнопку, выбрать «Назначить макрос» в контекстном меню, а затем выбрать имя макроса в диалоговом окне «Назначить макрос». . Затем нажмите OK, и код макроса будет связан с кнопкой.
Пожалуйста, попробуйте, надеюсь, это поможет вам!
Этот комментарий был сведен к минимуму модератором на сайте
Как снять флажки только в определенном диапазоне ячеек на активном листе? У меня есть 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 reinitialisation du Formulaire) et je ne trouvais pas (à part avec la méthode "Select" qui 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 ()
Если Флажок2 = Истина Тогда
Флажок1 = Ложь
End If
End Sub
Private Sub CheckBox1_Click ()
Если Флажок1 = Истина Тогда
Флажок2 = Ложь
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


Пожалуйста, попробуйте, надеюсь, это поможет вам!
Этот комментарий был сведен к минимуму модератором на сайте
Как снять все флажки на всех листах?
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL