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.
