Exit Sub in VBA

Wir werden verschiedene Methoden zum Beenden von sub in VBA mit Beispielen vorstellen.

Exit-Sub-Anweisung in VBA verwenden

Während der Arbeit mit Sub in VBA möchten wir es möglicherweise beenden oder die weitere Ausführung stoppen, wenn ein Fehler auftritt oder der Benutzer die falsche Eingabe gemacht hat. Wir können auch das Exit-Sub verwenden, um das Sub jederzeit zu beenden.

In VBA wird jede Zeile einzeln ausgeführt. Wenn wir also das Ergebnis erreicht haben oder die gewünschte Antwort an einem bestimmten Ausführungspunkt nicht so ist, wie wir es uns gewünscht haben, können wir das Sub beenden, um das Sub zu beenden.

Es gibt viele Situationen, in denen wir diese Funktion verwenden können. Lassen Sie uns ein Beispiel durchgehen und versuchen, das Sub in der Mitte des Codes zu verlassen.

Beispielcode:

# VBA
Sub roundFunc()
Dim num As Double
num = 5.468
Exit Sub
MsgBox Application.WorksheetFunction.RoundUp(num, 1)
End Sub

Aus dem obigen Beispiel habe ich den Exit-Subcode vor dem Meldungsfeld hinzugefügt, und wenn wir diesen Code ausführen, wird kein Meldungsfeld angezeigt.

Lassen Sie uns ein weiteres Beispiel mit der Anweisung if-else haben. Wenn die Anweisung true ist, wird der Code bis zum Ende ausgeführt. Andernfalls wird es brechen.

Beispielcode:

# VBA
Sub roundFunc()
Dim num As Double
num = 5.468
If Application.WorksheetFunction.RoundUp(num, 1) = 6 Then
    MsgBox num
Else
    MsgBox "Wrong Number"
    Exit Sub
num = num + num
End If
End Sub

Ausgabe:

Wenn wir mit wichtigen Daten arbeiten und sicherstellen möchten, dass wir das Sub sofort verlassen müssen, wenn ein Fehler auftritt oder eine der Eingaben falsch ist, um sicherzustellen, dass kein Datenverlust auftritt oder die Unternehmensdaten keine falschen Daten enthalten .