¿Cómo cambiar el formato de un textbox en función de la palabra que contiene?
Hola me gustaría saber como cambiar el color de un textbox en función de la palabra que aparezca en el mismo. Las opciones son Red, Yellow y Green. Y lo que he programado es lo siguiente (lo cual no me funciona, creo que pongo mal la condición):
If Hoja21.TextBox9.Value = red Then
Hoja21.TextBox9.BackColor = RGB(192, 0, 0)
ElseIf Hoja21.TextBox9.Value = yellow Then
Hoja21.TextBox9.BackColor = RGB(255, 192, 0)
ElseIf Hoja21.TextBox9.Value = yellow Then
Hoja21.TextBox9.BackColor = RGB(79, 98, 40)
Else
Hoja21.TextBox9.BackColor = RGB(0, 0, 0)
End If
´
Muchas gracias!
1 Respuesta
Respuesta de Luis Mondelo
1
Te mando mi solución con esta macro del evento change del textbox1
Private Sub TextBox1_Change() If TextBox1.Value = "red" Then TextBox1.BackColor = &HFF& ElseIf TextBox1.Value = "yellow" Then TextBox1.BackColor = &HFFFF& ElseIf TextBox1.Value = "green" Then TextBox1.BackColor = &HFF00& End If End Sub
recuerda finalizar
