300 Ejemplos

Recorrer toda la columna

Loop Through Entire Column

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.

Recorrer toda la columna en Excel VBA



Recorrer toda la columna en Excel VBA

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.

NingunoIComo Largo

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.

Columnas (1) .Font.Color = vbBlack

3. Agregue el bucle.

cómo convertir números a fechas en Excel
Parai = 1AFilas Cuenta

PróximoI

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 sean inferiores al valor ingresado en la celda D2. Las celdas vacías se ignoran. Agregue las siguientes líneas de código al bucle.

SiCeldas (i, 1) .ValorY NoIsEmpty (Celdas (i, 1) .Valor)Entonces
Celdas (i, 1) .Font.Color = vbRed
Fin Si

Resultado cuando hace clic en el botón de comando en la hoja (esto puede llevar un tiempo):

Recorrer el resultado de toda la columna

Recorrer el resultado de toda la columna

3/11 Completado! Obtenga más información sobre los bucles>
Ir al capítulo siguiente: Errores macro



^