Como alterar a cor da caixa de texto com base no valor no Excel?
No Excel, podemos aplicar a função de Formatação Condicional para alterar a cor de fundo com base no valor da célula, mas, neste artigo, falarei sobre como alterar a cor da caixa de texto com base no valor da célula ou valor na 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 da 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
Digamos que, se o valor da célula em A1 for maior que o valor da célula em B1, quero que a caixa de texto seja preenchida com a cor vermelha, pelo contrário, a caixa de texto deve ser preenchida com a cor amarela. Consiga este trabalho com as seguintes etapas:
1. Insira uma caixa de texto clicando em Developer > inserção > Caixa de texto (controle ActiveX)e desenhe uma caixa de texto, veja a captura de tela:
2. Em seguida, clique com o botão direito na caixa de texto e selecione Ver código do menu de contexto para abrir o Microsoft Visual Basic para Aplicações janela e, em seguida, substitua o código original pelo seguinte código VBA no módulo em branco:
Código VBA: altere 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
Note: No código acima, Caixa de texto1 é o nome da caixa de texto que você inseriu, A1 e B1 são as duas células nas quais você deseja alterar a cor da caixa de texto, altere-as de acordo com sua necessidade.
3. Em seguida, salve e feche a janela de código e saia do Modo de design, agora, se a célula A1 for maior que B1, ao digitar o texto na caixa de texto, ele será preenchido com a cor vermelha, e se A1 for menor que B1, ao inserir o valor na caixa de texto, será preenchido com a cor amarela, veja a imagem:
Alterar a cor da caixa de texto com base no valor da caixa de texto com código VBA
Se você deseja alterar a cor da caixa de texto com base no valor na caixa de texto, por exemplo, quando o valor na caixa de texto está entre 1 e 10, a cor preenchida da caixa de texto é vermelho, a cor da caixa de texto é verde se o valor estiver entre 11 e 20, se for outros valores, a cor da caixa de texto é amarela. Para lidar com esta tarefa, aplique o código VBA abaixo.
1. Depois de inserir uma caixa de texto, clique com o botão direito e selecione Ver código do menu de contexto para abrir o Microsoft Visual Basic para Aplicações janela e, em seguida, substitua o código original pelo seguinte código VBA no módulo em branco:
Código VBA: altere 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
Note: No código acima, Caixa de Texto 1 é o nome da caixa de texto inserida e você pode alterar os valores e a cor de fundo do código para o seu próprio.
2. Em seguida, salve e feche a janela de código e saia do Modo de design, agora, se você inserir o valor entre 1 e 10 na caixa de texto, sua cor de fundo se tornará vermelha, o valor entre 11 e 20, a cor de fundo da caixa de texto se tornará verde, outros valores, ela se tornará amarela, conforme mostrado a seguir:
Artigos relacionados:
Como inserir uma imagem na caixa de texto?
Como definir um valor padrão em uma caixa de texto?
Como permitir que apenas números sejam inseridos na caixa de texto?
Como aplicar a verificação ortográfica na caixa de texto?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
