Compartir a través de


Usar para... Instrucciones siguientes

Usar para... Instrucciones siguientes para repetir un bloque de instrucciones un número específico de veces. Para los bucles use una variable contador cuyo valor aumente o disminuya con cada repetición del bucle.

El siguiente procedimiento hace que el equipo haga sonar un bit 50 veces. La instrucción For especifica la variable contador y sus valores de inicio y finalización. La instrucción Next incrementa la variable contador en 1.

Sub Beeps() 
    For x = 1 To 50 
        Beep 
    Next x 
End Sub

Mediante la palabra claveStep, pueda aumentar o disminuir la variable contador en el valor que especifique. En el ejemplo siguiente, la variable j de contador se incrementa en 2 cada vez que se repite el bucle. Cuando finaliza el bucle, total es la suma de 2, 4, 6, 8 y 10.

Sub TwosTotal() 
    For j = 2 To 10 Step 2 
        total = total + j 
    Next j 
    MsgBox "The total is " & total 
End Sub

Para disminuir la variable contador, use un valor Step negativo. Para disminuir la variable contador, debe especificar un valor final que sea menor que el valor inicial. En el siguiente ejemplo, la variable contador myNum disminuye en 2 cada vez que se repite el bucle. Cuando el bucle finaliza, total es la suma de 16, 14, 12, 10, 8, 6, 4 y 2.

Sub NewTotal() 
    For myNum = 16 To 2 Step -2 
        total = total + myNum 
    Next myNum 
    MsgBox "The total is " & total 
End Sub

Nota:

[!NOTA] No es necesario incluir el nombre de la variable contador después de la instrucción Next. En los ejemplos anteriores, el nombre de la variable contador se incluía para facilitar la lectura.

Puede salir de un for... Siguiente instrucción antes de que el contador alcance su valor final mediante la instrucción Exit For . Por ejemplo, cuando se produce un error, use la instrucción Exit For en el bloque de instrucciones True de una instrucción If...Then...Else o bien de una instrucción Select Case que busque específicamente el error. Si no se produce el error, el objeto If... Entonces... La instrucción Else es False y el bucle continuará ejecutándose según lo esperado.

Vea también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.