Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo cambiar el color del cuadro de texto en función del valor en Excel?

En Excel, podemos aplicar la función de Formato condicional para cambiar el color de fondo en función del valor de la celda, pero, en este artículo, voy a hablar sobre cómo cambiar el color del cuadro de texto en función del valor o el valor de la celda en el cuadro de texto.

Cambiar el color del cuadro de texto en función del valor de la celda con el código VBA

Cambiar el color del cuadro de texto en función del valor en el cuadro de texto con código VBA


flecha azul burbuja derecha Cambiar el color del cuadro de texto en función del valor de la celda con el código VBA


Digamos, si el valor de celda en A1 es mayor que el valor de celda en B1, quiero que el cuadro de texto se llene con el color rojo, por el contrario, el cuadro de texto debe llenarse con el color amarillo. Por favor, realice este trabajo con los siguientes pasos:

1. Insertar un cuadro de texto haciendo clic Desarrollador > recuadro > Cuadro de texto (control ActiveX), y luego dibujar un cuadro de texto, ver captura de pantalla:

doc textbox color basado en el valor 1

2. A continuación, haga clic con el botón secundario 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 en función de 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

doc textbox color basado en el valor 2

Nota: En el código anterior, TextBox1 es el nombre de la caja de texto que insertó, A1 y B1 son las dos celdas en las que desea cambiar el color de la caja de texto, cámbielas a su necesidad.

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 rellenará con el color rojo, y si A1 es menor que B1, al ingresar el valor en el cuadro de texto, se rellenará con el color amarillo, ver captura de pantalla:

doc textbox color basado en el valor 3


flecha azul burbuja derecha Cambiar el color del cuadro de texto en función del 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 se encuentra entre 1 y 10, el color del cuadro de texto es rojo, el color del cuadro de texto es verde si el valor está entre 11 y 20. otros valores, el color del cuadro de texto es amarillo. Para hacer frente a esta tarea, aplique el siguiente código de VBA.

1. Después de insertar un cuadro de texto, haga clic con el botón derecho 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 en función del 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

doc textbox color basado en el valor 4

Nota: En el código anterior, Textbox1 es el nombre del cuadro de texto que está insertada, y puede cambiar los valores y el color de fondo dentro del código al suyo.

2. Luego guarde y cierre la ventana de código, y salga del Modo de diseñoAhora, 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 de la caja de texto se volverá verde, otros valores, se volverá amarillo como se muestra en la siguiente captura de pantalla:

doc textbox color basado en el valor 5


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?


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Stefan · 1 years ago
    Nevermind, I figured it out. Instead of making the event which triggers the change "Textbox1_GotFocus()", I made it "Worksheet_SelectionChange(ByVal Target As Range)". Now any time the value in one of the cells changes, the textbox color changes automatically.
  • To post as a guest, your comment is unpublished.
    Stefan · 1 years ago
    For me, when trying to change the textbox color value based on two cell values, the textbox only updates if you type something into the textbox. I need it to update automatically. Guess I'll just have to learn VBA to figure out why.
  • To post as a guest, your comment is unpublished.
    Justin · 2 years ago
    Can someone provide an example workbook so I can see this working? I keep trying but to no avail. Thanks