Във VBA за прекратяване на ВСИЧКО изпълнение на код използвайте Край команда.
| 1 | Край |
Когато изпълнението на кода дойде Край, той незабавно ще завърши изпълнението и ще напусне програмата.
Ако искате да научите как да излезете от Sub при грешка, щракнете върху тази връзка: VBA On Error Exit Sub
Ако искате да научите как да излезете от под -функция или функция, щракнете върху тази връзка: VBA изход от под -функция или функция
Излезте от целия код във VBA
Ще видите на примера какво се случва, когато използваме Край команда във VBA. Създадохме Sub EndSub, който има Край команда вътре. Този Sub се извиква от CallEndSub. Ето кода:
| 123456789101112131415161718 | Частен Sub EndSub ()Dim i As IntegerЗа i = 1 до 10Ако i = 5, тогаваMsgBox "Стойността на i е" & iКрайКрай АкоСледва iEnd SubЧастно подвикванеEndSub ()Обадете се на EndSubMsgBox "End Sub"End Sub |
В EndSub, първо въвеждаме For Loop, ако стойността на i е по -малка от 10:
| 123 | За i = 1 до 10Следва i |
След това проверяваме дали стойността на i е равна на 5, като използваме командата If. Ако стойността е 5, връщаме полето със съобщението със стойността i и използваме командата Край.
| 1234567 | Ако i = 5, тогаваMsgBox "Стойността на i е" & iКрайКрай Ако |
Ако условието не е изпълнено, следното изявление увеличава i с 1 и отново влиза в цикъла For:
| 1 | Следва i |
В CallEndSub, първо наричаме Sub EndSub:
| 1 | Обадете се на EndSub |
След това връщаме полето за съобщения:
| 1 | MsgBox "End Sub" |
Ако стартирате CallEndSub, първо ще извика EndSub. Ако изпълните този код в режим на отстраняване на грешки, ще видите, че той ще премине през цикъла 5 пъти. В 5th итерация, стойността на променливата i става 5 и кодът влиза в тялото If. Сега MsgBox „Стойността на i е“ & i се изпълнява и Край след това:
Изображение 1. Край на VBA
Както можете да видите, изпълнението на кода се спира веднага след Край команда, така че MsgBox „End Sub“ никога не се изпълнява.
