A continuación vamos a ver un programa en Excel VBA que recorre toda la primera columna y colores todos los valores que son inferiores a un cierto valor.

Loop Through Entire Column in Excel VBA

Loop Through Entire Column in Excel VBA

Coloque un botón de comando en la hoja de trabajo y añadir las líneas de código siguientes:

  1. En primer lugar, declarar una variable llamada i de tipo Long. Podemos utilizar una variable de tipo Long aquí porque las variables largos tienen mayor capacidad que variables enteras.

Dim i As Long

  1. A continuación, añadir la línea de código que cambia el color de la fuente de todas las células en la columna A a negro.

Columns(1).Font.Color = vbBlack

  1. Añadir el bucle.

For i = 1 To Rows.Count

Next i

Nota: las hojas de trabajo pueden tener un máximo de 1.048.576 filas en Excel 2007 o posterior.

No importa qué versión está utilizando, la línea de código anterior bucles a través de todas las filas.

  1. A continuación, colorear todos los valores que son más bajos que el valor introducido en la celda D2. se ignoran celdas vacías. Añadir las siguientes líneas de código para el bucle.

If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then

Cells(i, 1).Font.Color = vbRed

End If

Como resultado al hacer clic en el botón de comando en la hoja (esto puede tardar un rato):

Loop Through Entire Column Result

Loop Through Entire Column Result