¿Cómo cambiar el color del cuadro de texto según el valor en Excel?
En Excel, podemos aplicar la función de formato condicional para cambiar el color de fondo según el valor de la celda, pero, en este artículo, hablaré sobre cómo cambiar el color del cuadro de texto según el valor de la celda o el valor del cuadro de texto.
Cambie el color del cuadro de texto según el valor de la celda con el código VBA
Cambie el color del cuadro de texto según el valor en el cuadro de texto con código VBA
Cambie el color del cuadro de texto según el valor de la celda con el código VBA
Digamos que si el valor de la celda en A1 es mayor que el valor de la celda en B1, quiero que el cuadro de texto se llene de color rojo, por el contrario, el cuadro de texto debe llenarse de color amarillo. Consiga este trabajo con los siguientes pasos:
1. Inserte un cuadro de texto haciendo clic en Developer > recuadro > Cuadro de texto (control ActiveX), y luego dibuja un cuadro de texto, mira la captura de pantalla:
2. Luego haga clic derecho en el cuadro de texto y seleccione Ver código desde el menú contextual para abrir el Microsoft Visual Basic para aplicaciones ventana, y luego reemplace el código original con el siguiente código VBA en el módulo en blanco:
Código de VBA: cambie el color del cuadro de texto según los valores de celda:
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: En el código anterior, cuadro de texto1 es el nombre del cuadro de texto que insertó, A1 y B1 son las dos celdas en las que desea cambiar el color del cuadro de texto, cámbielas según sus necesidades.
3. Luego guarde y cierre la ventana de código y salga del Modo de diseño, ahora, si la celda A1 es mayor que B1, cuando escriba texto en el cuadro de texto, se llenará de color rojo, y si A1 es menor que B1, al ingresar el valor en el cuadro de texto, se rellenará con color amarillo, ver captura de pantalla:
Cambie el color del cuadro de texto según el valor en el cuadro de texto con código VBA
Si desea cambiar el color del cuadro de texto en función del valor en el cuadro de texto, por ejemplo, cuando el valor en el cuadro de texto está entre 1 y 10, el color de relleno del cuadro de texto es rojo, el color del cuadro de texto es verde si el valor está entre 11 y 20, si es otros valores, el color del cuadro de texto es amarillo. Para hacer frente a esta tarea, aplique el siguiente código VBA.
1. Después de insertar un cuadro de texto, haga clic derecho en él y seleccione Ver código desde el menú contextual para abrir el Microsoft Visual Basic para aplicaciones ventana, y luego reemplace el código original con el siguiente código VBA en el módulo en blanco:
Código de VBA: cambie el color del cuadro de texto según el valor en el cuadro 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: En el código anterior, Cuadro de texto1 es el nombre del cuadro de texto que está insertado, y puede cambiar los valores y el color de fondo dentro del código a los suyos.
2. Luego guarde y cierre la ventana de código y salga del Modo de diseño, ahora, si ingresa el valor entre 1 y 10 en el cuadro de texto, su color de fondo se volverá rojo, el valor entre 11 y 20, el color de fondo del cuadro de texto se volverá verde, otros valores, se volverá amarillo como se muestra en la siguiente captura de pantalla:
Artículos relacionados:
¿Cómo insertar una imagen en el cuadro de texto?
¿Cómo establecer un valor predeterminado en un cuadro de texto?
¿Cómo permitir que solo se ingresen números en el cuadro de texto?
¿Cómo aplicar el corrector ortográfico en el cuadro de texto?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!