Como alterar o valor ou a cor de uma célula específica quando a caixa de seleção é marcada no Excel?
Este artigo discute como alterar o valor ou a cor de uma célula específica usando uma caixa de seleção. Por exemplo, quando uma determinada caixa de seleção é marcada, o valor ou a cor de fundo de uma célula específica será alterado automaticamente. Siga os métodos abaixo passo a passo para lidar com isso.
Alterar o valor de uma célula específica quando a caixa de seleção é marcada com fórmula
Alterar o valor de uma célula específica quando a caixa de seleção é marcada com código VBA
Alterar a cor de uma célula específica quando a caixa de seleção é marcada com código VBA
Alterar o valor de uma célula específica quando a caixa de seleção é marcada com fórmula
Suponha que você precise que a célula A1 seja preenchida com o valor “teste” quando a caixa de seleção 1 for marcada. E esvaziar a célula ao desmarcar a caixa de seleção. Por favor, faça o seguinte.
Você precisa vincular a caixa de seleção a uma determinada célula primeiro e, em seguida, aplicar uma fórmula para alcançar isso.
1. Para vincular a caixa de seleção a uma determinada célula, por favor, selecione-a, depois insira = referência da célula na Barra de Fórmulas e pressione a tecla Enter. Aqui eu vinculo a caixa de seleção 1 à célula C2 inserindo =C2 na Barra de Fórmulas após selecionar a caixa de seleção.
Para a caixa de seleção Controle ActiveX, clique com o botão direito nela e selecione Propriedades no menu de contexto. Na caixa de diálogo Propriedades, insira a célula vinculada no campo LinkedCell e, em seguida, feche a caixa de diálogo. Veja a captura de tela:
2. Selecione a célula que você precisa alterar o valor (aqui eu seleciono A1), depois insira a fórmula =SE(C2,"Teste","") na Barra de Fórmulas e pressione a tecla Enter. Veja a captura de tela:
Observação: Na fórmula, C2 é a célula vinculada da caixa de seleção 1, “Teste” é o valor que você precisa exibir na célula A1 quando a caixa de seleção estiver marcada.
Você pode ver os resultados conforme as capturas de tela mostradas abaixo após marcar ou desmarcar a caixa de seleção correspondente.
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.
Alterar o valor de uma célula específica quando a caixa de seleção é marcada com código VBA
Você também pode alterar o valor de uma célula específica quando a caixa de seleção é marcada com código VBA. Por favor, faça o seguinte.
1. Clique com o botão direito na Guia da Planilha com o valor da célula que você precisa alterar com base na caixa de seleção, depois clique em Visualizar Código no menu de contexto.
2. Na janela Microsoft Visual Basic for Applications, copie e cole o código VBA abaixo na janela Código.
Código VBA: Alterar o valor de uma célula específica quando a caixa de seleção é marcada
Private Sub CheckBox1_Click()
Dim xRng As Range
Dim xCell As Range, xStr As String
Set xRng = Selection
If CheckBox1.Value = True Then
xStr = InputBox("Please enter a value：", "Kutools for Excel")
xRng.Value = xStr
If xStr = "" Then CheckBox1.Value = False
Else
xRng.Value = ""
End If
End Sub
Observação: No código, ChekBox1 é o nome da Caixa de Seleção (Controles ActiveX). Você pode alterá-lo conforme necessário.
3. Pressione simultaneamente as teclas Alt + Q para fechar a janela Microsoft Visual Basic for Applications.
4. Selecione uma célula em branco (A1) que você deseja alterar o valor com base na caixa de seleção e marque a caixa de seleção1 na sua planilha. Agora, uma caixa de diálogo Kutools para Excel aparece, insira o valor que você deseja preencher na célula em branco selecionada e, em seguida, clique no botão OK. Veja a captura de tela:
Então, o valor especificado é exibido imediatamente na célula selecionada. E ao desmarcar a caixa de seleção, a célula ficará em branco.
Observação: Este código irá lembrá-lo de inserir o valor de texto repetidamente sempre que você marcar a caixa de seleção.
Alterar a cor de uma célula específica quando a caixa de seleção é marcada com código VBA
Esta seção mostrará como alterar a cor de uma célula específica quando a caixa de seleção é marcada com código VBA.
1. Clique com o botão direito na Guia da Planilha com a cor da célula que você precisa alterar com base na caixa de seleção, depois clique em Visualizar Código no menu de contexto.
2. Na janela Microsoft Visual Basic for Applications, copie e cole o código VBA abaixo na janela Código.
Código VBA: Alterar a cor de uma célula específica quando a caixa de seleção é marcada
Sub CheckBox1_Click()
Dim xRng As Range
Set xRng = Selection
If CheckBox1.Value = True Then
xRng.Interior.Color = vbRed
Else
xRng.Interior.Color = xlNone
End If
End Sub
Observação: No código, ChekBox1 é o nome da Caixa de Seleção (Controles ActiveX). Você pode alterá-lo conforme necessário.
3. Selecione uma célula que você precisa alterar a cor de fundo, depois marque a caixa de seleção. Você pode ver que a cor de preenchimento da célula selecionada foi alterada para vermelho. E a célula selecionada será preenchida sem cor de fundo após desmarcar a caixa de seleção. Veja as capturas de tela:
Artigos relacionados:
- Como destacar célula ou linha com caixa de seleção no Excel?
- Como inserir carimbo de data em uma célula se marcar uma caixa de seleção no Excel?
- Como fazer a caixa de seleção ser marcada com base no valor da célula no Excel?
- Como filtrar dados com base na caixa de seleção no Excel?
- Como ocultar caixa de seleção quando a linha está oculta no Excel?
- Como criar uma lista suspensa com 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