VBA'da, TÜM kod yürütmesini sonlandırmak için Son emretmek.
1 | Son |
Kodun yürütülmesi söz konusu olduğunda Son, yürütmeyi hemen bitirecek ve programdan ayrılacaktır.
Bir Sub on Error'dan nasıl çıkılacağını öğrenmek istiyorsanız, şu bağlantıya tıklayın: VBA On Error Exit Sub
Bir Sub veya Fonksiyondan nasıl çıkılacağını öğrenmek istiyorsanız, şu bağlantıya tıklayın: VBA Exit Sub veya Function
VBA'daki tüm Kodlardan çıkın
Kullandığımızda ne olduğunu örnekte göreceksiniz. Son VBA'da komut. Bir Alt oluşturduk EndSubsahip olan Son içeri buyurun. Bu Sub denir ÇağrıEndSub. İşte kod:
123456789101112131415161718 | Özel Alt EndSub()Dim i Tamsayı Olaraki = 1 ila 10 içinEğer ben = 5 O zamanMsgBox "i'nin değeri " & iSonBitirsonraki benAlt BitişÖzel Alt ÇağrıEndSub()EndSub'ı arayınMsgBox "Alt Bitir"Alt Bitiş |
İçinde EndSubi'nin değeri 10'dan küçükse önce For Loop'a giriyoruz:
123 | i = 1 ila 10 içinsonraki ben |
Bundan sonra If komutunu kullanarak i'nin değerinin 5'e eşit olup olmadığını kontrol ederiz. Değer 5 ise mesaj kutusuna i değeri ile döneriz ve komutu kullanırız. Son.
1234567 | Eğer ben = 5 O zamanMsgBox "i'nin değeri " & iSonBitir |
Koşul karşılanmazsa, aşağıdaki ifade i'yi 1 artırır ve For döngüsüne tekrar girer:
1 | sonraki ben |
İçinde ÇağrıEndSub, önce Sub'ı çağırıyoruz EndSub:
1 | EndSub'ı arayın |
Bundan sonra Mesaj kutusuna dönüyoruz:
1 | MsgBox "Alt Bitir" |
çalıştırırsanız ÇağrıEndSub, ilk olarak arayacak EndSub. Bu kodu debug modunda çalıştırırsanız 5 kez döngüden geçeceğini göreceksiniz. 5'teNS yineleme, i değişkeninin değeri 5 olur ve kod If gövdesine girer. Şimdi MsgBox “i'nin değeri ” & i yürütülür ve Son daha sonrasında:
Resim 1. VBA Sonu
Gördüğünüz gibi, kod yürütme işlemi tamamlandıktan hemen sonra durdurulur. Son komut, yani MsgBox "End Sub" asla yürütülmez.