Como selecionar todas as caixas de seleção usando uma única caixa de seleção no Excel?
As caixas de seleção são muito úteis para nós, usuários do Excel. Com uma lista de caixas de seleção, podemos selecionar algumas opções em uma planilha. Se houver muitas caixas de seleção que precisam ser marcadas de uma só vez, selecioná-las uma por uma será tedioso e demorado. Aqui, posso apresentar a você como selecionar todas as caixas de seleção usando uma única caixa de seleção, ou seja, ao marcar essa caixa de seleção mestre, todas as caixas de seleção da planilha atual serão selecionadas imediatamente.
Selecionar todas as caixas de seleção usando uma única caixa de seleção com código VBA
Selecionar todas as caixas de seleção usando uma única caixa de seleção com código VBA
Para selecionar todas as caixas de seleção de uma planilha usando uma única caixa de seleção mestra, siga os passos abaixo:
1. Primeiro, você pode adicionar uma caixa de seleção e nomeá-la como Selecionar Tudo; esta será sua caixa de seleção mestra, veja a captura de tela:
2. Em seguida, pressione e segure as teclas ALT + F11, e isso abrirá a janela Microsoft Visual Basic for Applications.
3. Clique em Inserir > Módulo e cole o seguinte código na janela Módulo.
Código VBA: selecionar todas as caixas de seleção usando uma única caixa de seleção
Sub SelectAll_Click()
'Update by Extendoffice
Dim xCheckBox As CheckBox
For Each xCheckBox In Application.ActiveSheet.CheckBoxes
If xCheckBox.Name <> Application.ActiveSheet.CheckBoxes("Check Box 1").Name Then
xCheckBox.Value = Application.ActiveSheet.CheckBoxes("Check Box 1").Value
End If
Next
End Sub
4. Depois disso, salve e feche este código, volte para a planilha, clique com o botão direito na caixa de seleção Selecionar Tudo e escolha Atribuir Macro no menu de contexto, veja a captura de tela:
5. Na caixa de diálogo Atribuir Macro, clique na opção SelectAll_Click na caixa de listagem Nome da Macro e depois clique no botão OK para fechar a caixa de diálogo, veja a captura de tela:
6. Agora, quando você marcar a caixa de seleção mestra Selecionar Tudo, todas as outras caixas de seleção da planilha atual serão marcadas de uma só vez.
Observação: No código acima, Caixa de Seleção 1 é o nome da sua caixa de seleção mestra, você pode visualizá-la na Caixa de Nomes clicando nela com o botão direito e alterá-la conforme necessário.
Desbloqueie a Magia do Excel com o Kutools AI
- Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
- Codificação VBA: Escreva e implemente código VBA sem esforço.
- Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
- Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.
Artigos relacionados:
Como vincular uma caixa de seleção a várias células no Excel?
Como inserir rapidamente várias caixas de seleção no Excel?
Como excluir rapidamente várias caixas de seleção no Excel?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins