Como alterar o valor ou a cor de uma célula específica quando a caixa de verificação estiver marcada no Excel?
Este artigo aborda a alteração do valor ou da cor de uma célula especificada através de uma caixa de verificação. Por exemplo, quando uma determinada caixa de verificação é marcada, o valor ou Cor de Fundo de uma célula especificada será alterado automaticamente. Siga os métodos abaixo passo a passo para resolver esta situação.
Alterar o valor de uma célula especificada quando a caixa de verificação está marcada com fórmula
Alterar o valor de uma célula especificada quando a caixa de verificação está marcada com código VBA
Alterar a cor de uma célula especificada quando a caixa de verificação está marcada com código VBA
Alterar o valor de uma célula especificada quando a caixa de verificação está marcada com fórmula
Suponha que pretende preencher a célula A1 com o valor «test» sempre que a Caixa de Seleção 1 estiver marcada e que fique em branco assim que for desmarcada. Proceda da seguinte forma.
Primeiro, terá de associar a caixa de verificação a uma célula específica e, em seguida, aplicar uma fórmula para o conseguir.
1. Para associar a caixa de verificação a uma determinada célula, selecione-a, introduza a referência da célula na Barra de Fórmulas e prima Enter. Aqui, associo a Caixa de Verificação 1 à célula C2 ao introduzir =C2 na Barra de Fórmulas após selecionar a caixa de verificação.
Para a Caixa de Seleção do Controlo ActiveX, clique com o botão direito do rato e selecione Propriedades no menu de contexto. Na caixa de diálogo Propriedades, introduza a célula associada no campo LinkedCell e feche a caixa de diálogo. Veja a imagem:
2. Selecione a célula cujo valor pretende alterar (neste caso, A1) e introduza a fórmula =IF(C2,«Test»,«») na Barra de Fórmulas, seguido de premir a tecla Enter. Veja a imagem:
Nota: Na fórmula, C2 é a célula associada à Caixa de Seleção 1 e «Test» é o valor que pretende apresentar na célula A1 quando a caixa de seleção estiver marcada.
Pode observar os resultados nas imagens seguintes após marcar ou desmarcar a respetiva caixa de seleção.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Alterar o valor de uma célula especificada quando a caixa de verificação está marcada com código VBA
Também pode alterar o valor de uma célula especificada quando a caixa de verificação estiver marcada, utilizando código VBA. Siga os passos abaixo.
1. Clique com o botão direito do rato no separador da folha que contém a célula cujo valor pretende alterar com base na caixa de verificação e, em seguida, clique em Ver Código no menu de contexto.
2. Na janela do Microsoft Visual Basic for Applications, copie e cole o seguinte código VBA na janela Código.
Código VBA: Alterar o valor de uma célula especificada quando a caixa de verificação está 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
Nota: No código, ChekBox1 é o nome da Caixa de Seleção (Controlos ActiveX). Pode alterá-lo conforme necessário.
3. Prima simultaneamente as teclas Alt + Q para fechar a janela do Microsoft Visual Basic for Applications.
4. Selecione uma célula em branco (A1) cujo valor pretende alterar com base na caixa de verificação e marque a CaixaDeVerificação1 na sua folha de cálculo. Aparecerá uma caixa de diálogo Kutools para Excel; introduza o valor que pretende preencher na célula selecionada e clique no botão OK. Veja a imagem:
O valor especificado será imediatamente exibido na célula selecionada. Ao desmarcar a caixa de verificação, a célula ficará em branco.
Nota: Este código irá pedir-lhe repetidamente que introduza o valor de texto sempre que marcar a Caixa de Seleção.
Alterar a cor de uma célula especificada quando a caixa de verificação está marcada com código VBA
Esta secção mostra-lhe como alterar a cor de uma célula específica quando a caixa de verificação está marcada, utilizando código VBA.
1. Clique com o botão direito do rato no Separador da Folha que contém a célula cuja cor pretende alterar com base na caixa de verificação e, em seguida, clique em Ver Código no menu de contexto.
2. Na janela do Microsoft Visual Basic for Applications, copie e cole o seguinte código VBA na janela Código.
Código VBA: Alterar a cor de uma célula especificada quando a caixa de verificação está 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
Nota: No código,ChekBox1é o nome da Caixa de Seleção (Controlos ActiveX). Pode alterá-lo conforme necessário.
3. Selecione uma célula cuja cor de fundo pretende alterar e marque a caixa de verificação. Repare que a cor de preenchimento da célula selecionada muda imediatamente para vermelho. Ao desmarcar a caixa de verificação, a célula volta a ficar sem cor de fundo. Veja as imagens:
Artigos relacionados:
- Como realçar uma célula ou linha com base numa caixa de verificação no Excel?
- Como inserir uma marcação de data numa célula quando a caixa de verificação estiver marcada no Excel?
- Como marcar automaticamente uma caixa de verificação com base no valor de uma célula no Excel?
- Como filtrar dados com base numa caixa de verificação no Excel?
- Como ocultar a caixa de verificação quando a linha correspondente está oculta no Excel?
- Como criar uma lista suspensa com várias caixas de verificação no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos