A VBA -ban az ÖSSZES kódfuttatás befejezéséhez használja a Vége parancs.
| 1 | Vége |
Amikor elérkezik a kód végrehajtása Vége, azonnal befejezi a végrehajtást, és kilép a programból.
Ha szeretné megtudni, hogyan lépjen ki egy alhibából, kattintson erre a linkre: VBA On Error Exit Sub
Ha szeretné megtudni, hogyan léphet ki egy al- vagy funkciókból, kattintson erre a linkre: VBA Kilépés al- vagy funkció
Lépjen ki az összes kódból a VBA -ban
A példán látni fogja, mi történik, amikor a Vége parancs a VBA -ban. Létrehoztunk egy alosztályt EndSub, amely rendelkezik a Vége parancsoljon belül. Ezt a Sub -t innen hívják CallEndSub. Itt a kód:
| 123456789101112131415161718 | Private Sub EndSub ()Dim i As IntegerI = 1 és 10 közöttHa i = 5 akkorMsgBox "Az i értéke" & iVégeVége HaKövetkező iEnd SubPrivát alhívásEndSub ()Hívja az EndSub -otMsgBox "End Sub"End Sub |
Ban,-ben EndSub, először akkor írjuk be a For ciklusba, ha az i értéke kevesebb, mint 10:
| 123 | I = 1 és 10 közöttKövetkező i |
Ezt követően az If paranccsal ellenőrizzük, hogy i értéke egyenlő -e 5 -tel. Ha az érték 5, visszaadjuk az i mezőt az i mezővel, és használjuk a parancsot Vége.
| 1234567 | Ha i = 5 akkorMsgBox "Az i értéke" & iVégeVége Ha |
Ha a feltétel nem teljesül, akkor a következő utasítás 1 -gyel növeli az i -t, és újra belép a For ciklusba:
| 1 | Következő i |
Ban,-ben CallEndSub, először a Sub -t hívjuk EndSub:
| 1 | Hívja az EndSub -ot |
Ezt követően visszaadjuk az Üzenet mezőt:
| 1 | MsgBox "End Sub" |
Ha futtatja a CallEndSub, először hívja a EndSub. Ha ezt a kódot hibakeresési módban hajtja végre, látni fogja, hogy ötször megy keresztül a cikluson. Az 5 -benth iteráció esetén az i változó értéke 5 lesz, és a kód bekerül az If törzsbe. Most a MsgBox „Az i értéke” és i végrehajtják és Vége utána:
1. kép. VBA vége
Amint láthatja, a kódfuttatás közvetlenül a Vége parancs, így a MsgBox „End Sub” soha nem hajtják végre.
