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ía que también puede recorrer un gama dinámica ?
cómo agregar una fila total a una tabla en Excel
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.
NingunorngComoRango, celdaComoDistancia
2. Inicializamos el objeto Range rng con Range ('A1: A3').
Colocarrng = Rango ('A1: A3')3. Agregue el bucle For Each Next.
Para CadaceldaEnrngpróximocelda
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.ValueResultado 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:
Colocarrng = Rango ('A1: A3')con:
Colocarrng = Selección6. Ahora, por ejemplo, seleccione Rango ('A1: A2').
Resultado al hacer clic en el botón de comando en la hoja:
Ir al capítulo siguiente: Errores macro