A continuación veremos un programa que recorre un rango definido. Por ejemplo, cuando queremos elevar al cuadrado los números en Rango ("A1: A3"). ¿Sabías que también puedes recorrer un rango dinámico?
Situación:
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.
Atenuar como rango, celda como rango
2. Inicializamos el objeto Range rng con Range ("A1: A3").
Establecer rng = Rango ("A1: A3")
3. Agregue el bucle For Each Next.
Para cada celda en rng
Siguiente celda
Nota: rng y cell se eligen al azar aquí, puede usar cualquier nombre. Recuerde hacer referencia a estos nombres en el resto de su código.
4. A continuación, cuadramos cada celda de 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:
5. Si desea verificar cada celda en un rango seleccionado al azar, simplemente reemplace:
Establecer rng = Rango ("A1: A3")
con:
Establecer rng = Selección
6. Ahora, por ejemplo, seleccione Rango ("A1: A2").
Resultado al hacer clic en el botón de comando en la hoja: