La instrucción For… Next se utiliza para repetir un grupo de instrucciones un número de veces específico.
Para ello se utiliza primero una variable que irá contando cada una de las repeticiones.
El ejemplo en Excel contiene datos del stock disponible en cada mes del año del SUV Chevrolet modelo Captiva. Lo que se busca es saber cuál es la cantidad de vehículos que quedan en stock al finalizar el año.
Se utilizará la instrucción For…Next para obtener información sobre el stock disponible acumulado. Para ello se ha insertado un botón que permita calcular la cantidad de vehículos que quedan en stock al final del año.
Los datos a utilizar en el ejemplo son:
(Para mayor visualización de la imagen, hacer click en la misma)
Para poder hallar la cantidad de vehículos, primero se inserta un botón, al cual se le asignó el nombre “Calcular Stock” y se inserta el siguiente código:
Private Sub CommandButton1_Click()
Stock = Range("F4")
For X = 4 To 15
Cells(X, 7) = Stock
Stock = Stock + Cells(X + 1, 6)
Next
MsgBox "El stock acumulado es de" & " " & Stock & " " & "vehículos"
End Sub
En el código, la celda F4 es representada por “Stock”.
Se coloca X=4, porque comienza la repetición en la fila 4.
En la celda G4 va el valor de “Stock”. Luego se suma la cantidad de la celda F5 con el resultado de G4, es decir: X + 1 y el resultado aparece en la celda G5, o sea, en la columna 6 (x+1,6). Al valor hallado como “Stock” en la celda G5 se le suma el valor de la celda F6 y así se va sumando sucesivamente hasta llegar a la celda G15.
Al finalizar la serie de instrucciones, se visualiza el mensaje con la cantidad de vehículos acumulado al final del año.
El resultado que muestra es el siguiente:
(Para mayor visualización de la imagen, hacer click en la misma)
Rocío Abad Vergara