Como desmarcar ou deselecionar todas as caixas de seleção de uma vez no Excel?

Como você poderia desmarcar ou deselecionar todas as caixas de seleção marcadas de uma vez em uma planilha, conforme mostrado na captura de tela a seguir? Neste artigo, vou falar sobre alguns códigos rápidos para resolver isso.

Desmarque ou deselecione todas as caixas de seleção marcadas com código VBA

Desmarque ou deselecione todas as caixas de seleção marcadas com código VBA

Desmarque ou deselecione todas as caixas de seleção marcadas (Controles de Formulário):

Se suas caixas de seleção forem controles de formulário, você pode desmarcá-las de uma vez com o seguinte código VBA:

1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Desmarque ou deselecione todas as caixas de seleção marcadas (Controles de Formulário):

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. Em seguida, pressione a tecla F5 para executar este código, e todas as caixas de seleção marcadas serão desmarcadas de uma vez na planilha ativa.

Desmarque ou deselecione todas as caixas de seleção marcadas (Controles ActiveX):

Se as caixas de seleção forem Controles ActiveX, aplique o seguinte código VBA:

1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Desmarque ou deselecione todas as caixas de seleção marcadas (Controles 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. Em seguida, pressione a tecla F5 para executar este código, e todas as caixas de seleção marcadas terão sido desmarcadas de uma vez na planilha ativa.

Inserir várias caixas de seleção nas seleções de uma vez

O utilitário Kutools para Excel Inserir Caixas de Seleção em Lote pode ajudá-lo a inserir rapidamente várias caixas de seleção de uma vez. Clique para baixar Kutools para Excel!