A continuación, veremos un programa en Excel VBA ese recorre toda la primera columna y colorea todos los valores que son inferiores a un determinado valor.
Coloque un botón de comando en su hoja de trabajo y agregue las siguientes líneas de código:
1. Primero, declare una variable llamada i de tipo Long. Usamos una variable de tipo Long aquí porque las variables Long tienen mayor capacidad que las variables Integer.
Dim i tan largo
2. A continuación, agregue la línea de código que cambia el color de fuente de todas las celdas en la columna A a negro.
Columnas (1) .Font.Color = vbBlack
3. Agregue el bucle.
Para i = 1 a filas.
Siguiente yo
Nota: las hojas de trabajo pueden tener hasta 1.048.576 filas en Excel 2007 o posterior. Independientemente de la versión que esté utilizando, la línea de código de arriba recorre todas las filas.
4. A continuación, coloreamos todos los valores que son inferiores al valor ingresado en la celda D2. Las celdas vacías se ignoran. Agregue las siguientes líneas de código al bucle.
Si Cells (i, 1) .Value <Range ("D2"). Value And Not IsEmpty (Cells (i, 1) .Value) Entonces
Celdas (i, 1) .Font.Color = vbRed
Terminara si
Resultado cuando hace clic en el botón de comando en la hoja (esto puede llevar un tiempo):
