/ / Recorrido a través del rango definido en Excel VBA

Recorrer un rango definido en Excel VBA

A continuación veremos un programa que bucles a través de un rango definido. Por ejemplo, cuando queremos cuadrar los números en el rango ("A1: A3"). ¿Sabías que también puedes recorrer un rango dinámico?

Situación:

Recorrer un rango definido 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, declaramos dos objetos Range. Llamamos a los objetos Range rng y cell.

Dim rng As Range, cell As Range

2. Inicializamos el objeto Range rng con Range ("A1: A3").

Set rng = Range("A1:A3")

3. Agregue el bucle For Each Next.

For Each cell In rng

Next cell

Nota: aquí se seleccionan aleatoriamente rng y celda, puede usar cualquier nombre. Recuerde referirse a estos nombres en el resto de su código.

4. A continuación, cuadramos cada celda en este rango. Para lograr esto, agregue la siguiente línea de código al bucle:

cell.Value = cell.Value * cell.Value

Resultado al hacer clic en el botón de comando en la hoja:

Bucle a través del rango definido Resultado

5. Si desea verificar cada celda en un rango seleccionado al azar, simplemente reemplace:

Set rng = Range("A1:A3")

con:

Set rng = Selection

6. Ahora, por ejemplo, seleccione Rango ("A1: A2").

Recorrer la selección en Excel VBA

Resultado al hacer clic en el botón de comando en la hoja:

Bucle a través del resultado de la selección

Lea también: