VBA'da, bir hatayla karşılaşıldığında kodunuzu Sub a Sub'dan çıkmak üzere programlayabilirsiniz. Bunu yapmak için kullanın Hatada Git ve Alt Çıkış.
Error Goto, VBA'ya kodunuzun belirli bir bölümüne “Git” için bir hatayla karşılaşıldığında bunu söyler. Eski:
| 1 | Hatada ErrorHandler'a Git |
Bu bölümün içinden VBA'ya alt prosedürden çıkmak için Sub'dan Çıkmasını söyleyebilirsiniz:
| 12 | Hata İşleyicisi:Alt Çıkış |
Bu kod satırlarını çalışırken görmek için okumaya devam edin…
VBA'da Hata Üzerine Bir Sub'dan Çıkın
Bu örnekte, sıfıra bölerek bir hata üreteceğiz:
| 1 | ben = 5 / 0 |
Aşağıdaki tam koda bakın. VBA hatayı okuduğunda, kodun ErrorHandler bölümüne gider ve çıkar:
| 123456789101112131415 | Alt TestError ()Dim i Tamsayı OlarakHatada ErrorHandler'a Gitben = 5 / 0'benimle bir şey yapMsgBox iAlt ÇıkışHata İşleyicisi:MsgBox "Hata olursa Sub'dan çıkın"Alt ÇıkışAlt Bitiş |
Hata işlemeyi belirtmek için önce şunu belirtmeniz gerekir: Hatada Git Beyan. Bir Sub'ın başında bildirilmelidir:
| 1 | Hatada ErrorHandler'a Git |
Bundan sonra hata işleme kodunu bildirmeniz gerekir. Genellikle kodun sonunda bulunur:
| 123 | Hata İşleyicisi:MsgBox "Hata olursa Sub'dan çıkın"Alt Çıkış |
ErrorHandler'ın üstüne “Exit Sub” ekliyoruz çünkü sadece bir hata varsa ErrorHandler kodunu çalıştırmak istiyoruz.
| 12345 | Alt ÇıkışHata İşleyicisi:MsgBox "Hata olursa Sub'dan çıkın"Alt ÇıkışAlt Bitiş |
Sub çalıştırırsanız sıfıra bölmeden dolayı hata verecektir. O anda hata işleme kodu yürütülecektir. Mesaj kutusu görünür ve Sub'dan çıkılır.
Resim 1. VBA On Error Exit Sub
VBA'da kod yürütmeyi nasıl sonlandıracağınızı öğrenmek istiyorsanız, şu bağlantıya tıklayın: VBA End
Bir Sub veya Fonksiyondan nasıl çıkılacağını öğrenmek istiyorsanız, şu bağlantıya tıklayın: VBA Exit Sub veya Function
