- Katılım
- 25 May 2018
- Mesajlar
- 1,609
- En iyi yanıt
- 14
- Puanları
- 113
- Konum
- İstanbul
- Web sitesi
- excelarsivi.com
- Ad Soyad
- Murat OSMA
- Office Vers.
- Microsoft 365 TR+EN
Exit For deyimi; sayaçlı döngüleri ( For .. Next veya For Each .. Next ) kullanırken, bazı şartlar gerçekleştiğinde, mevcut döngü tamamlanmadan o döngüden çıkmayı ve bir sonraki ifadeye geçmeyi sağlar, başka bir kod bloğu yok ise prosedürden çıkar.
Basit bir örnek verelim..
Diyelim ki, A sütunundaki hücreler için bir döngü kuracağız ve hücredeki veri 10'dan büyükse o döngüden çıkmasını istiyoruz.
Bunun için bize gerekli kodlarımız bunlar;
Not: Cells(Rows.Count, "A").End(3).Row ibaresi; "A sütunundaki dolu olan son satır numarası" demek.
A sütununda 1'den 20'ye kadar bir sıra numarası olduğunu var sayar isek, o zaman yukarıdaki kodumuz, 1. satırdan 10. satıra kadar Tamam yazıp, sonrasında koşulumuz gerçekleşeceği için Exit For deyimi ile döngüden çıkarak, döngü sonrasındaki ilk satıra gidip oradaki kod satırını çalıştıracaktır.
Exit For deyiminin nasıl çalıştığını bu gif resim ile daha iyi anlayabilirsiniz.

Basit bir örnek verelim..
Diyelim ki, A sütunundaki hücreler için bir döngü kuracağız ve hücredeki veri 10'dan büyükse o döngüden çıkmasını istiyoruz.
Bunun için bize gerekli kodlarımız bunlar;
PHP:
Sub ExcelTurkey()
For i = 1 To Cells(Rows.Count, "A").End(3).Row
If Cells(i, "A").Value > 10 Then Exit For
Cells(i, "B").Value = "Tamam"
Next i
MsgBox "Döngüden çıktım da geldim.", vbInformation, "Www.ExcelTurkey.Com"
End Sub
A sütununda 1'den 20'ye kadar bir sıra numarası olduğunu var sayar isek, o zaman yukarıdaki kodumuz, 1. satırdan 10. satıra kadar Tamam yazıp, sonrasında koşulumuz gerçekleşeceği için Exit For deyimi ile döngüden çıkarak, döngü sonrasındaki ilk satıra gidip oradaki kod satırını çalıştıracaktır.
Exit For deyiminin nasıl çalıştığını bu gif resim ile daha iyi anlayabilirsiniz.

Son düzenleme: