Bucle a través del rango definido

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

Situación:

Coloca un botón de comando en tu hoja de trabajo y añade las siguientes líneas de código:

1. Primero, declaramos dos objetos de rango. 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»).

Establecer rng = Rango(«A1:A3»)

3. Añade el bucle «Para cada siguiente».

Para cada célula en el rng La siguiente celda

Nota: el rng y la celda son elegidos al azar aquí, puedes usar cualquier nombre. Recuerda referirte a estos nombres en el resto de tu código.

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

celda.Valor = celda.Valor * celda.Valor

Resultado cuando se hace clic en el botón de comando de la hoja:

5. Si quieres comprobar cada celda en un rango seleccionado al azar, simplemente reemplázala:

Establecer rng = Rango(«A1:A3»)

con:

Set rng = Selección

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

Resultado cuando se hace clic en el botón de comando de la hoja:

Deja un comentario