Gebruik in VBA om ALLE code-uitvoering te beëindigen de Einde opdracht.
| 1 | Einde |
Wanneer de uitvoering van de code komt tot: Einde, zal het de uitvoering onmiddellijk beëindigen en het programma verlaten.
Als je wilt leren hoe je een Sub bij fout afsluit, klik dan op deze link: VBA Bij fout Sub afsluiten
Als je wilt leren hoe je een Sub of Functie afsluit, klik dan op deze link: VBA Exit Sub of Functie
Sluit alle code in VBA
U zult in het voorbeeld zien wat er gebeurt als we de gebruiken Einde commando in VBA. We hebben een Sub gemaakt EndSub, die de heeft Einde commando binnen. Deze Sub heet van CallEndSub. Hier is de code:
| 123456789101112131415161718 | Privé Sub EndSub()Dim ik als geheel getalVoor i = 1 tot 10Als ik = 5 DanMsgBox "De waarde van i is " & iEindeStop alsvolgende iEinde subPrivé suboproepEndSub()Oproep EndSubMsgBox "Beëindig sub"Einde sub |
In de EndSub, voeren we eerst de For Loop in als de waarde van i kleiner is dan 10:
| 123 | Voor i = 1 tot 10volgende i |
Daarna controleren we met het If-commando of de waarde van i gelijk is aan 5. Als de waarde 5 is, retourneren we het berichtvenster met de waarde van i en gebruiken we de opdracht Einde.
| 1234567 | Als ik = 5 DanMsgBox "De waarde van i is " & iEindeStop als |
Als niet aan de voorwaarde wordt voldaan, wordt i met 1 verhoogd en wordt de For-lus opnieuw ingevoerd:
| 1 | volgende i |
In de CallEndSub, noemen we eerst de Sub EndSub:
| 1 | Oproep EndSub |
Daarna retourneren we het berichtvenster:
| 1 | MsgBox "Beëindig sub" |
Als u de CallEndSub, het zal eerst de . noemen EndSub. Als je deze code in de debug-modus uitvoert, zul je zien dat deze 5 keer door de lus gaat. in de 5e iteratie, wordt de waarde van de variabele i 5 en komt de code in de If-body. Nu de MsgBox “De waarde van i is ” & i wordt uitgevoerd en Einde daarna:
Afbeelding 1. VBA-einde
Zoals u kunt zien, wordt de uitvoering van de code gestopt direct na de Einde commando, dus de MsgBox "Beëindig sub" wordt nooit uitgevoerd.
