Como usar a instrução exit if em vba (com exemplo)

Não há instrução Exit If integrada no VBA, mas você pode facilmente simular uma usando uma instrução If com uma instrução GoTo .

O exemplo a seguir mostra como fazer isso na prática.

Exemplo: como usar a instrução Exit IF em VBA

Digamos que queremos criar uma macro que peça ao usuário para inserir um número inteiro menor que 10 e depois usar uma instrução IF para fazer o seguinte:

• Se o número inteiro inserido for menor que 10, multiplique-o por 2 e exiba o resultado na célula A1 .
• Se o número inteiro inserido não for menor que 10, saia da instrução IF e produza uma mensagem de erro.

Podemos usar a seguinte sintaxe para fazer isso:

 SubMultiplySomeValue ()

Dim inputInteger As Integer
     
'get integer from user
inputInteger = InputBox(" Please enter an integer less than 10 ")

'check if integer is less than 10
If inputInteger < 10 Then
Range(" A1 ").Value = inputInteger * 2
Else
GoTo FlagMessage
End If

FlagMessage:
MsgBox “ This number is not less than 10 ”
    
End Sub

Ao executarmos esta macro, seremos solicitados a inserir um número inteiro menor que 10:.

Suponha que insiramos o valor 5 e pressionemos OK :

Como este número inteiro é menor que 10, o subprocedimento multiplicará o valor que inserimos por 2 e exibirá o resultado na célula A1 :

No entanto, suponha que insiramos o valor 15 :

Receberíamos a seguinte caixa de mensagem no Excel:

O valor que inserimos não seria multiplicado por 2 e nenhum resultado seria exibido na célula A1 .

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

Como sair do Sub em caso de erro no VBA
Como usar IFERROR em VBA
Como deletar arquivos usando VBA