VBA -slutt

I VBA, for å avslutte ALLE kodeutførelsen, bruk Slutt kommando.

1

Slutt

Når kjøringen av koden kommer til Slutt, vil den umiddelbart fullføre utførelsen og forlate programmet.

Hvis du vil lære å avslutte en Sub on Error, klikker du på denne lenken: VBA On Error Exit Sub

Hvis du vil lære å avslutte en sub eller funksjon, klikker du på denne lenken: VBA Exit Sub eller Function

Avslutt alle koder i VBA

Du vil se på eksemplet hva som skjer når vi bruker Slutt kommando i VBA. Vi opprettet en Sub EndSub, som har Slutt kommando inne. Denne Sub kalles fra CallEndSub. Her er koden:

123456789101112131415161718

Private Sub EndSub ()Dim i As IntegerFor i = 1 til 10Hvis i = 5 DaMsgBox "Verdien av i er" og iSluttSlutt omNeste jegSlutt SubPrivate Sub CallEndSub ()Ring EndSubMsgBox "End Sub"Slutt Sub

I EndSub, angir vi først For Loop hvis verdien av i er mindre enn 10:

123	For i = 1 til 10Neste jeg

Etter det sjekker vi om verdien av i er lik 5, ved hjelp av If -kommandoen. Hvis verdien er 5, returnerer vi meldingsboksen med verdien av i og bruker kommandoen Slutt.

1234567

Hvis i = 5 DaMsgBox "Verdien av i er" og iSluttSlutt om

Hvis betingelsen ikke er oppfylt, øker følgende setning i med 1 og går inn i For -sløyfen igjen:

1

Neste jeg

I CallEndSub, kaller vi først Sub EndSub:

1	Ring EndSub

Etter det returnerer vi meldingsboksen:

1	MsgBox "End Sub"

Hvis du kjører CallEndSub, vil den først ringe til EndSub. Hvis du kjører denne koden i feilsøkingsmodus, vil du se at den vil gå gjennom løkken 5 ganger. I 5^th iterasjon, verdien av variabelen i blir 5 og koden kommer inn i If -kroppen. Nå er MsgBox “Verdien av i er” og i blir henrettet og Slutt etter det:

Bilde 1. VBA -slutt

Som du kan se, stoppes kodeutførelsen rett etter Slutt kommando, så MsgBox “End Sub” blir aldri henrettet.