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: