VBA'da, aşağıdakileri kullanarak bir Do döngüsünden çıkabilirsiniz: Çıkış Yap emretmek.
| 1 | Çıkış Yap |
Kodun yürütülmesi söz konusu olduğunda Çıkış Yap, kod Do döngüsünden çıkar ve döngüden sonraki ilk satırla devam eder.
For döngüsünden nasıl çıkılacağını öğrenmek istiyorsanız, şu bağlantıya tıklayın: VBA Exit For
Bir Koşul Karşılandığında Döngüden Çık
Aşağıdaki örnekte, belirli bir koşul karşılandığında bir Do döngüsünden nasıl çıkılacağını göreceksiniz. Her yinelemede i değişkeninin değerini döngüye alıp 1 artıracağız. 6'ya gelince döngüden çıkmak ve bir mesaj kutusu döndürmek istiyoruz. İşte kod:
| 1234567891011 | Dim i Tamsayı OlarakBen <10 iken yapben = ben + 1i = 6 iseÇıkış YapBitirDöngüMsgBox "Değer" & i |
İlk olarak i değeri 10'dan küçük ise Do Loop'a giriyoruz:
| 123 | Ben <10 iken yapDöngü |
Döngünün gövdesinde, i değerini 1 artırıyoruz:
| 1 | ben = ben + 1 |
Bundan sonra If komutunu kullanarak i'nin değerinin 6'ya eşit olup olmadığını kontrol ederiz. Değer 6 ise Do döngüsünden çıkıp döngüden sonraki ilk satıra geçiyoruz:
| 123 | i = 6 iseÇıkış YapBitir |
Do döngüsünden çıktıktan sonra yürütülecek kodun ilk satırı, i değerine sahip mesaj kutusudur:
| 1 | MsgBox "Değer" & i |
Bu kodu çalıştırırsanız Hata ayıklama modu, döngüden 6 kez geçeceğini göreceksiniz. 6'daNS yineleme, i değişkeninin değeri 6 olur ve kod If gövdesine girer. Şimdi Do döngüsünün gövdesinden çıkılır. Bundan sonra, MsgBox i değeriyle açılır:
