Come utilizzare l'istruzione exit if in vba (con esempio)

Non esiste un’istruzione Exit If incorporata in VBA, ma puoi facilmente simularne una utilizzando un’istruzione If con un’istruzione GoTo .

L’esempio seguente mostra come eseguire questa operazione nella pratica.

Esempio: come utilizzare l’istruzione Exit IF in VBA

Supponiamo di voler creare una macro che chieda all’utente di inserire un numero intero inferiore a 10 e quindi utilizzare un’istruzione IF per eseguire le seguenti operazioni:

• Se il numero intero inserito è inferiore a 10, moltiplicalo per 2 e visualizza il risultato nella cella A1 .
• Se il numero intero immesso non è inferiore a 10, uscire dall’istruzione IF e produrre un messaggio di errore.

Possiamo usare la seguente sintassi per fare ciò:

 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

Quando eseguiamo questa macro, ci verrà richiesto di inserire un numero intero inferiore a 10:.

Supponiamo di inserire il valore 5 e quindi premere OK :

Poiché questo numero intero è inferiore a 10, la sottoprocedura moltiplicherà il valore immesso per 2 e visualizzerà il risultato nella cella A1 :

Supponiamo però di inserire invece il valore 15 :

Riceveremmo la seguente finestra di messaggio in Excel:

Il valore immesso non verrebbe moltiplicato per 2 e nessun risultato verrebbe visualizzato nella cella A1 .

Risorse addizionali

I seguenti tutorial spiegano come eseguire altre attività comuni in VBA:

Come uscire da Sub in caso di errore in VBA
Come utilizzare IFERROR in VBA
Come eliminare file utilizzando VBA