Come deselezionare o deselezionare tutte le caselle di controllo contemporaneamente in Excel?

Come potresti deselezionare o deselezionare tutte le caselle di controllo selezionate contemporaneamente in un foglio di lavoro come mostrato nella seguente schermata? In questo articolo, parlerò di alcuni codici rapidi per risolverlo.

Deseleziona o deseleziona tutte le caselle di controllo selezionate con codice VBA

Deseleziona o deseleziona tutte le caselle di controllo selezionate con codice VBA

Deseleziona o deseleziona tutte le caselle di controllo selezionate (Controlli modulo):

Se le tue caselle di controllo sono controlli del modulo, puoi deselezionarle immediatamente con il seguente codice VBA:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.

Codice VBA: deseleziona o deseleziona tutte le caselle di controllo selezionate (Controlli modulo):

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. Quindi premere F5 chiave per eseguire questo codice e tutte le caselle di controllo selezionate sono state deselezionate contemporaneamente nel foglio di lavoro attivo.

Deseleziona o deseleziona tutte le caselle di controllo selezionate (controlli ActiveX):

Se le caselle di controllo sono controlli ActiveX, applica il seguente codice VBA:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.

Codice VBA: deseleziona o deseleziona tutte le caselle di controllo selezionate (controlli 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. Quindi premere F5 chiave per eseguire questo codice e tutte le caselle di controllo selezionate sono state deselezionate contemporaneamente nel foglio di lavoro attivo.

Inserire più caselle di controllo nelle selezioni contemporaneamente

Kutools for Excel's Caselle di controllo inserimento batch può aiutarti a inserire rapidamente più caselle di controllo contemporaneamente. Fai clic per scaricare Kutools per Excel!