A continuación veremos un programa en Excel VBA que hace un bucle en toda la primera columna y colorea todos los valores inferiores a un determinado valor.
Coloca un botón de comando en tu hoja de trabajo y añade 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 Enteras.
Dim i As Long
2. A continuación, agregue la línea de código que cambia el color de la fuente de todas las celdas de la columna A a negro.
Columnas(1).Fuente.Color = vbNegro
3. Añade el bucle.
Para i = 1 a las filas. Cuenta Siguiente…
Nota: las hojas de trabajo pueden tener hasta 1.048.576 filas en Excel 2007 o posterior. No importa qué versión esté usando, la línea de código de arriba hace un bucle en todas las filas.
4. A continuación, coloreamos todos los valores que son inferiores al valor introducido en la celda D2. Las celdas vacías son ignoradas. Añade 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 Células(i, 1).Fuente.Color = vbRed Finalizar si
Resultado al pulsar el botón de comando en la hoja (esto puede tardar un poco):
