VBA pabaiga

Norėdami baigti VISO kodo vykdymą, VBA naudokite Galas komandą.

1 Galas

Kai ateina kodo vykdymas Galas, jis iškart užbaigs vykdymą ir paliks programą.

Jei norite sužinoti, kaip išeiti iš klaidos klavišo, spustelėkite šią nuorodą: VBA On Error Exit Sub

Jei norite sužinoti, kaip išeiti iš papildomos funkcijos ar funkcijos, spustelėkite šią nuorodą: VBA Išeiti iš antrinės dalies ar funkcijos

Išeikite iš viso kodo VBA

Pavyzdyje pamatysite, kas atsitinka, kai naudojame Galas komandą VBA. Mes sukūrėme sub „EndSub“, kuris turi Galas komandą viduje. Šis sub yra iškviestas iš „CallEndSub“. Čia yra kodas:

123456789101112131415161718 Privatus „Sub EndSub“ ()Dim i As IntegerJei i = nuo 1 iki 10Jei i = 5, tada„MsgBox“ „i reikšmė yra“ ir „i“GalasPabaiga JeiKitas I.Pabaiga SubPrivatus antrinis skambutisEndSub ()Skambinkite „EndSub“„MsgBox“ „Pabaiga“Pabaiga Sub

Viduje konors „EndSub“, pirmiausia įvedame „For Loop“, jei i reikšmė yra mažesnė nei 10:

123 Jei i = nuo 1 iki 10Kitas I.

Po to mes patikriname, ar i reikšmė lygi 5, naudodami komandą If. Jei reikšmė yra 5, grąžiname pranešimo laukelį su i reikšme ir naudojame komandą Galas.

1234567 Jei i = 5, tada„MsgBox“ „i reikšmė yra“ ir „i“GalasPabaiga Jei

Jei sąlyga neįvykdyta, šis teiginys padidina i 1 ir vėl įveda į ciklą For:

1 Kitas I.

Viduje konors „CallEndSub“, pirmiausia vadiname Sub „EndSub“:

1 Skambinkite „EndSub“

Po to grąžiname pranešimo laukelį:

1 „MsgBox“ „Pabaiga“

Jei paleisite „CallEndSub“, pirmiausia jis paskambins „EndSub“. Jei vykdysite šį kodą derinimo režimu, pamatysite, kad jis eis per ciklą 5 kartus. 5 -ametūkst iteraciją, kintamojo i reikšmė tampa 5 ir kodas įvedamas į If kūną. Dabar „MsgBox“ „i reikšmė yra“ ir i yra įvykdytas ir Galas po to:

1 pav. VBA pabaiga

Kaip matote, kodo vykdymas sustabdomas iškart po Galas komanda, todėl „MsgBox“ „Pabaiga“ niekada nevykdoma.

wave wave wave wave wave