A continuación, veremos un programa en Excel VBA que recorre toda la primera columna y colorea todos los valores que son inferiores a cierto 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 As Long
2. A continuación, agregue la línea de código que cambia el color de fuente de todas las celdas de la columna A a negro.
Columns(1).Font.Color = vbBlack
3. Agregue el bucle.
For i = 1 To Rows.Count
Next i
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.
If Cells(i, 1).Value < Range("D2").Value And Not IsEmpty(Cells(i, 1).Value) Then
Cells(i, 1).Font.Color = vbRed
End If
Resultado cuando hace clic en el botón de comando en la hoja (esto puede llevar un tiempo):
3/11 Completado! Obtenga más información sobre los bucles>
Capítulo siguiente: Errores de macro