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

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

Como você poderia desmarcar ou desmarcar todas as caixas de seleção marcadas de uma vez em uma planilha, conforme mostrado a seguir? Neste artigo, falarei sobre alguns códigos rápidos para resolvê-lo.

doc desmarque as caixas de seleção 1

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


seta azul bolha direita Desmarque ou desmarque todas as caixas de seleção marcadas com o código VBA

Desmarque ou desmarque todas as caixas de seleção (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. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: desmarque ou desmarque 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. Então aperte F5 para executar este código, e todas as caixas de seleção foram desmarcadas de uma vez na planilha ativa.


Desmarque ou desmarque todas as caixas de seleção marcadas (controles ActiveX):

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

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: desmarque ou desmarque 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. Então aperte F5 para executar este código, e todas as caixas de seleção foram desmarcadas de uma vez na planilha ativa.


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

Kutools for Excel's Caixas de seleção de inserção de lote O utilitário pode ajudá-lo a inserir rapidamente várias caixas de seleção de uma vez. Clique para baixar o Kutools para Excel!


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório
Comentários (14)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
muito obrigado por este código vba, ajudou muito.

FYI para pessoas que não estão conseguindo trabalhar pressionando F5, simplesmente:

guia desenvolvedor > macros > selecione o módulo recém-criado e clique em opções > digite um caractere para o atalho, como ctrl+j ou ctrl+k.
Este comentário foi feito pelo moderador no site
Obrigado por sua ajuda com isso. Isso é muito apreciado. No entanto, observe: A ORTOGRAFIA ESTÁ ERRADA NO CÓDIGO DA ETAPA #2. Código VBA: Desmarque ou desmarque todas as caixas de seleção marcadas (Controles ActiveX):
Sub clearcheckbox()
'Atualização por Extendoffcie
Dim c como objeto
Para cada c em ActiveSheet.OLEObjects
If InStr(1, c.Name, "CheckBox") > 0 Then
c.Object.Value = Falso
Se acabar
Seguinte
End Sub

OBSERVE QUE A PALAVRA "Extendoffcie" NÃO ESTÁ SOLETRADA CORRETAMENTE. NÃO DEVERIA SER"Extendoffice"?? De qualquer forma, só queria colocar isso lá fora
Este comentário foi feito pelo moderador no site
E se eu quisesse usar um botão para ativar a macro para limpar as caixas?
Este comentário foi feito pelo moderador no site
Olá, Ariel,
Para usar um botão para ativar a macro, primeiro, você deve inserir um botão da lista suspensa Formas e, em seguida, clicar com o botão direito do mouse no botão, escolher Atribuir Macro no menu de contexto e selecionar o nome da macro na caixa de diálogo Atribuir Macro . Em seguida, clique em OK e o código da macro será vinculado ao botão.
Por favor, tente, espero que possa ajudá-lo!
Este comentário foi feito pelo moderador no site
Como faço para desmarcar apenas as caixas em um intervalo de células específico na planilha ativa? Eu tenho 3 listas em uma folha (tarefas diárias/semanais/mensais) e queria fazer um botão "Limpar tudo" para cada lista.
Este comentário foi feito pelo moderador no site
Grande ajuda! obrigada!
Este comentário foi feito pelo moderador no site
OMG OBRIGADO, ESTE SITE É UM SALVADOR DE VIDA :)
Este comentário foi feito pelo moderador no site
Merci beaucoup d'avoir partagé le code pour décocher des elementos "CheckBox", que é mais saudável! :o)En effet, en codant un formulaire de saisie fait dans une fouille, je cherchais à trouver un moyen de décocher les cases (en guise de reinitialisation du formulaire) et je ne trouvais pas (à parte com o método "Select" qui est, comme nous le savons tous, à bannir), tout simplement car :=> la proprieté ".CheckBoxes" n'existe pas en proprieté 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.
Este comentário foi feito pelo moderador no site
Bonjour Lindas,
Je vous en prie. Heureux que cela aide. Pour toute question, n'hésitez pas à nous contacter. Passe une bonne journée.
sinceramente,
Mandy
Este comentário foi feito pelo moderador no site
Olá,
beim öffnen der date sollten zwei voneinander abhängige CheckBox1 u. CheckBox2 não está ativo

Sub CheckBox2_Click privada ()
Se CheckBox2 = Verdadeiro Então
CheckBox1 = Falso
Se acabar
End Sub
Sub CheckBox1_Click privada ()
Se CheckBox1 = Verdadeiro Então
CheckBox2 = Falso
Se acabar
End Sub

obrigado pela ajuda
Este comentário foi feito pelo moderador no site
Olá, Siegfried
Se você quiser verificar um e desabilitar outro, por favor, aplique o código abaixo:
Nota: A caixa de seleção aqui você deve usar a caixa de seleção Controle ActiveX.
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

Por favor, tente, espero que possa ajudá-lo!
Este comentário foi feito pelo moderador no site
Como limpar todas as caixas de seleção em todas as planilhas?
Este comentário foi feito pelo moderador no site
Olá, Ramon

Para desmarcar todas as caixas de seleção em todas as planilhas, aplique os códigos abaixo:
Desmarque todas as caixas de seleção de todas as planilhas (controles de formulário):
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


Desmarque todas as caixas de seleção de todas as planilhas (Controles 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


Por favor, tente, espero que isso possa ajudá-lo!
Este comentário foi feito pelo moderador no site
Como eu desmarcaria todas as caixas de seleção em todas as planilhas?
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL