No VBA (Visual Basic for Applications), a instrução `Exit` é usada para interromper a execução de um bloco de código antes que ele atinja o seu final natural. A forma como você utiliza `Exit` depende do tipo de bloco de código que você deseja sair. Aqui estão alguns exemplos de como usar a instrução `Exit`:
Sub ExemploSub()
Dim i As Integer
For i = 1 To 10
If i = 5 Then
Exit Sub ' Sai do procedimento quando i for igual a 5
End If
Debug.Print i
Next i
' Código aqui não será executado se Exit Sub for acionado
End Sub
Function ExemploFunction() As String
Dim i As Integer
For i = 1 To 10
If i = 5 Then
ExemploFunction = "Saída Antecipada" ' Define o valor de retorno antes de sair
Exit Function ' Sai da função
End If
Next i
ExemploFunction = "Final" ' Define um valor de retorno padrão
End Function
Sub ExemploExitFor()
Dim i As Integer
For i = 1 To 10
If i = 5 Then
Exit For ' Sai do loop quando i for igual a 5
End If
Debug.Print i
Next i
' Após Exit For, execução continua aqui
End Sub
Sub ExemploExitDo()
Dim i As Integer
i = 0
Do While i < 10
i = i + 1
If i = 5 Then
Exit Do ' Sai do loop quando i for igual a 5
End If
Debug.Print i
Loop
' Após Exit Do, execução continua aqui
End Sub
- Exit Sub: Use em um procedimento Sub para sair do procedimento antes de finalizar.
- Exit Function: Use em uma função para sair e retornar um valor antes de finalizar.
- Exit For: Use para sair de um loop `For` antes de ele completar todas as iterações.
- Exit Do: Use para sair de um loop `Do` antes da condição de término ser verdadeira.
Esses comandos são úteis para controlar o fluxo de execução e para sair de loops ou procedimentos quando uma certa condição é atendida.