Exit (instrucción)
Sale de un bloque de código Do…Loop, For…Next, Function, Sub o Property.
Sintaxis
Exit Do
Exit For
Exit Function
Exit Property
Exit Sub
La sintaxis de la instrucción Exit tiene las formas siguientes:
| Instrucción | Descripción |
|---|---|
| Exit Do | Proporciona una manera de salir de un do... Loop instrucción. Solo puede usarse dentro de la instrucción Do...Loop. Exit Do transfiere el control a la instrucción que sigue a la instrucción Loop. Cuando se usa en instrucciones Do...Loop anidadas, Exit Do transfiere el control al bucle anidado en un nivel superior al bucle en el que tiene lugar la instrucción Exit Do. |
| Exit For | Permite salir de un bucle For. Solo se puede usar en un for... Siguiente o Para cada... Siguiente bucle. Exit For transfiere el control a la instrucción que sigue a la instrucción Next. Cuando se usa en bucles For anidados, Exit For transfiere el control al bucle que está anidado en el nivel superior al bucle en el que tiene lugar la instrucción Exit For. |
| Exit Function | Sale inmediatamente del procedimientoFunction en el que aparece. La ejecución continúa con la instrucción que sigue a la instrucción que llamó al procedimiento Function. |
| Exit Property | Sale inmediatamente del procedimiento Property en el que aparece. La ejecución continúa con la instrucción que sigue a la instrucción que llamó al procedimiento Property. |
| Exit Sub | Sale inmediatamente del procedimiento Sub en el que aparece. La ejecución continúa con la instrucción que sigue a la instrucción que llamó al procedimiento Sub. |
Comentarios
No confunda la instrucciones Exit con las instrucciones End. Exit no define el final de la estructura.
Ejemplo
Este ejemplo usa la instrucción Exit para salir de un bucle For...Next, Do...Loop y de un procedimiento Sub.
Sub ExitStatementDemo()
Dim I, MyNum
Do ' Set up infinite loop.
For I = 1 To 1000 ' Loop 1000 times.
MyNum = Int(Rnd * 1000) ' Generate random numbers.
Select Case MyNum ' Evaluate random number.
Case 7: Exit For ' If 7, exit For...Next.
Case 29: Exit Do ' If 29, exit Do...Loop.
Case 54: Exit Sub ' If 54, exit Sub procedure.
End Select
Next I
Loop
End Sub
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.