Как одновременно снять или отменить выбор всех флажков в Excel?

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

Снятие или отмена выбора всех отмеченных флажков с помощью кода VBA

Снятие или отмена выбора всех отмеченных флажков с помощью кода VBA

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

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

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

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 for Applications.

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