Skip to main content

Como alterar o valor ou a cor de uma célula específica quando a caixa de seleção é marcada no Excel?

Author: Siluvia Last Modified: 2025-06-04

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.

enter a formula into the Formula Bar after selecting the checkbox

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:

select Properties and set options

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:

Select the cell to change its value and enter a formula

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.

the value is changed based on the checkbox is checked or unchecked

a screenshot of kutools for excel ai

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.
Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!

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

click View Code and insert the code into the sheet module

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:

enter the value you want to be populated in the selected blank cell

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.

the specified value is displayed if check the checkbox, otherwise, blank shown

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

click View Code and inser the code into the sheet module

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:

fill color of the selected cell is change if check the chekbox, otherwise, no fill color


Artigos relacionados:

Melhores Ferramentas de Produtividade para Office

🤖 Assistente AI do KUTOOLS: Revolucione a análise de dados com base em: Execução Inteligente | Gerar Código | Criar Fórmulas Personalizadas | Analisar Dados e Gerar Gráficos | Invocar Funções Aprimoradas
Recursos Populares: Encontrar, Destacar ou Marcar Duplicatas | Excluir Linhas em Branco | Combinar Colunas ou Endereço sem Perder Dados | Arredondar...
Super PROC: PROC com Múltiplos Critérios | PROC com Múltiplos Valores | Procura em várias planilhas | Correspondência Fuzzy...
Lista Suspensa Avançada: Crie rapidamente uma Lista Suspensa | Lista Suspensa Dependente | Lista Suspensa com Múltipla Seleção...
Gerenciador de Colunas: Adicionar um Número Específico de Colunas | Mover Colunas | Alternar Estado de Visibilidade das Colunas Ocultas | Comparar Intervalo & Colunas...
Recursos em Destaque: Grade de foco | Visualização de Design | Barra de fórmulas aprimorada | Gerenciador de Pasta de trabalho & Planilha | Biblioteca de AutoTexto | Selecionador de Data | Mesclar Dados | Criptografar/Descriptografar Células | Enviar Email por Lista | Super Filtro | Filtro Especial (filtrar negrito/itálico/tachado...)...
Top15 Conjuntos de Ferramentas:12 Ferramentas de Texto (Adicionar Texto, Excluir Caracteres Específicos, ...) | Mais de50 Tipos de Gráficos (Gráfico de Gantt, ...) | Mais de40 Fórmulas Práticas (Calcular a idade com base na data de nascimento, ...) |19 Ferramentas de Inserção (Inserir Código QR, Inserir Imagem a partir do Caminho, ...) |12 Ferramentas de Conversão (Converter em Palavras, Conversão de Moeda, ...) |7 Ferramentas de Mesclar & Dividir (Mesclar Linhas Avançado, Dividir Células, ...) | ... e muito mais

Potencialize suas habilidades no Excel com o Kutools para Excel e experimente uma eficiência sem igual. O Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...


O Office Tab traz interface com abas para o Office e facilita muito o seu trabalho

  • Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas abas na mesma janela, em vez de abrir novas janelas.
  • Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!