Vo VBA na ukončenie VŠETKÉHO spustenia kódu použite Koniec príkaz.
| 1 | Koniec |
Keď príde na vykonanie kódu Koniec, okamžite dokončí spustenie a opustí program.
Ak sa chcete dozvedieť, ako opustiť Sub pri chybe, kliknite na tento odkaz: VBA Pri chybe Ukončiť Sub
Ak sa chcete dozvedieť, ako ukončiť podradenú funkciu alebo funkciu, kliknite na tento odkaz: Ukončiť vedľajšiu funkciu alebo funkciu VBA
Ukončite všetok kód vo VBA
Na príklade uvidíte, čo sa stane, keď použijeme Koniec príkaz vo VBA. Vytvorili sme Sub EndSub, ktorý má Koniec príkaz dovnútra. Tento Sub sa volá z CallEndSub. Tu je kód:
| 123456789101112131415161718 | Súkromný čiastkový koncový subub ()Dim i As IntegerPre i = 1 až 10Ak i = 5 PotomMsgBox „Hodnota i je“ & iKoniecKoniec AkĎalej iKoniec podSúkromný čiastočný hovorEndSub ()Zavolajte na EndSubMsgBox „End Sub“Koniec pod |
V EndSub, najskôr zadáme For Loop, ak je hodnota i menšia ako 10:
| 123 | Pre i = 1 až 10Ďalej i |
Potom pomocou príkazu If skontrolujeme, či je hodnota i rovná 5. Ak je hodnota 5, vrátime okno so správou s hodnotou i a použijeme príkaz Koniec.
| 1234567 | Ak i = 5 PotomMsgBox „Hodnota i je“ & iKoniecKoniec Ak |
Ak podmienka nie je splnená, nasledujúci príkaz zvýši i o 1 a znova vstúpi do cyklu For:
| 1 | Ďalej i |
V CallEndSub, najskôr voláme Sub EndSub:
| 1 | Zavolajte na EndSub |
Potom vrátime pole Správa:
| 1 | MsgBox „End Sub“ |
Ak spustíte súbor CallEndSub, najskôr zavolá EndSub. Ak spustíte tento kód v režime ladenia, uvidíte, že prejde slučkou 5 krát. V 5th iterácia, hodnota premennej i sa stane 5 a kód vstúpi do tela If. Teraz MsgBox „Hodnota i je“ & i je vykonaný a Koniec potom:
Obrázok 1. Koniec VBA
Ako vidíte, spustenie kódu sa zastaví hneď po Koniec príkaz, takže MsgBox „End Sub“ nie je nikdy vykonaný.
