Como alterar a cor da caixa de texto com base no valor no Excel?
No Excel, podemos utilizar a formatação condicional para alterar a cor de fundo com base no valor de uma célula. Neste artigo, porém, explicarei como alterar a cor de uma caixa de texto com base no valor de uma célula ou no valor contido na própria caixa de texto.
Alterar a cor da caixa de texto com base no valor da célula com código VBA
Alterar a cor da caixa de texto com base no valor na caixa de texto com código VBA
Alterar a cor da caixa de texto com base no valor da célula com código VBA
Imagine que, se o valor da célula A1 for superior ao da célula B1, a caixa de texto fique com fundo vermelho; caso contrário, fique com fundo amarelo. Siga os passos abaixo para realizar esta tarefa:
1. Insira uma caixa de texto clicando em Programador > Inserir > Caixa de Texto (Controlo ActiveX) e, em seguida, desenhe uma caixa de texto, conforme ilustrado na imagem:
2. Em seguida, clique com o botão direito na caixa de texto e selecione Ver Código no menu de contexto para abrir a janela do Microsoft Visual Basic para Aplicações e substitua o código original pelo seguinte código VBA no módulo em branco:
Código VBA: Alterar a cor da caixa de texto com base nos valores das células:
Private Sub TextBox1_Change()
If ActiveSheet.Range("A1").Value > ActiveSheet.Range("B1").Value Then
Me.TextBox1.BackColor = vbRed
Else
Me.TextBox1.BackColor = vbYellow
End If
End Sub
Nota: No código acima, TextBox1 é o nome da caixa de texto que inseriu, e A1 e B1 são as duas células com base nas quais pretende alterar a cor da caixa de texto. Ajuste-as conforme necessário.
3. Depois, guarde e feche a janela do código e saia do Modo de Design. Agora, se a célula A1 for maior do que B1, ao escrever texto na caixa de texto, esta será preenchida com cor vermelha; se A1 for inferior a B1, ao introduzir um valor na caixa de texto, esta será preenchida com cor amarela, conforme mostrado na imagem:
Alterar a cor da caixa de texto com base no valor na caixa de texto com código VBA
Se pretender alterar a cor da caixa de texto com base no valor nela introduzido — por exemplo, vermelho quando o valor estiver entre 1 e 10, verde se estiver entre 11 e 20, e amarelo para quaisquer outros valores — aplique o código VBA indicado abaixo para realizar esta tarefa.
1. Após inserir uma caixa de texto, clique nela com o botão direito e selecione Ver Código no menu de contexto para abrir a janela do Microsoft Visual Basic para Aplicações e substitua o código original pelo seguinte código VBA no módulo em branco:
Código VBA: Alterar a cor da caixa de texto com base no valor na caixa de texto:
Private Sub TextBox1_Change()
On Error Resume Next
Select Case TextBox1.Value
Case 1 To 10:
TextBox1.BackColor = vbRed
Case 11 To 20:
TextBox1.BackColor = vbGreen
Case Else:
TextBox1.BackColor = vbYellow
End Select
End Sub
Nota: No código acima, Textbox1 é o nome da caixa de texto que inseriu, podendo alterar os valores e a cor de fundo no código conforme necessário.
2. Depois, guarde e feche a janela do código e saia do Modo de Design. Agora, ao introduzir um valor entre 1 e 10 na caixa de texto, a sua cor de fundo tornar-se-á vermelha; se o valor estiver entre 11 e 20, a cor de fundo da caixa de texto ficará verde; para quaisquer outros valores, ficará amarela, conforme ilustrado na imagem seguinte:
<
Artigos relacionados:
Como inserir uma imagem numa caixa de texto?
Como definir um valor predefinido numa caixa de texto?
Como permitir apenas a introdução de números numa caixa de texto?
Como aplicar a verificação ortográfica a uma caixa de texto?
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