Bilal SERT

For Next d�ng�s�

For..Next döngüsünün incelenmesi.

VBA projelerinizde bazen belirli bir i�lemin farkl� veriler üzerinde tekraren uygulanmas� gerekebilir bu gibi durumlarda döngü komutlar�ndan yararlan�rz. �imdi sizlerle birlikte belirli say�da tekrar edecek i�lemlerde kullanaca��m�z FOR..NEXT döngüsünü inceleyece�iz. Burada kilit nokta inceleyece�imiz yap�n�n tekrarlama i�lemini belirli bir say�da gerçekle�tirmesidir ki baz� durumlarda bu tekrar say�s�n� istersek k�rabililiriz. �imdi k�saca For döngüsünün nas�l yaz�ld��n� aç�klayalal�m. A�a��da verildi�i üzere döngü daha önce tan�mlanm�� olan bir tam say� de�i�kene bir ilk de�er atamas� ile ba�lar sonras�nda bir son de�er ve iste�e ba�l� olarak bir de ad�m de�eri al�r.

FOR degisken=ilkDeger TO sonDeger [STEP adimDe�eri]

di�er komutlar

NEXT

Misal, 1-10 aras�ndaki sayma say�lar�n� Sayfa1 çal��ma sayfas�nda A sütununda yukar�dan a�a��ya yazd�ral�m, bunun için a�a��da verilen sat�rlar� kullanmal�y�z.

Dim i as Integer
For i=1 to 10
  Sayfa1.Cells(i,1).value=i
Next

0 - 100 aras�ndaki çift say�lar� Safya1 çal��ma sayfas�nda A sütununda yukar�dan a�a��ya yazd�ral�m

Dim i as Integer
For i=0 to 100 Step 2
  Sayfa1.Cells(i,1).value=i
Next

99- 1aras�ndaki teksay�lar� Safya1 çal��ma sayfas�nda A sütununda yukar�dan a�a��ya yazd�ral�m

Dim i as Integer
For i=99 to 1 Step -2
  Sayfa1.Cells(i,1).value=i
Next

A-Z aras�ndaki büyük harfleri Safya1 çal��ma sayfas�nda A sütununa bunlar�n ASCII kodlar�n� B sütununa yukar�dan a�a��ya yazd�ral�m

Dim i as Integer
For i=65 to 90
  Sayfa1.Cells(i,1).value=chr(i)
  Sayfa1.Cells(i,2).value=i
Next

Görüldü�ü üzere kullanmas� oldukça basit bir yap�d�r burada yer alan kodlar� ço�altmak elbette mümkün �imdi isterseniz say�lar üzerinde çal��maya devam edelim ve kendisine gönderilen bir say�n�n asal say� olmas� durumunda true aksi durumda false sonucu üreten fonksiyonu yazal�m.


Function asalmi(sayi As Integer) As Boolean
'***************************************************************************************
'Kodlayan           : Bilal SERT
'Tarih / Saat       : 04.07.2014-05:17
'Amaç                : Bir say�n�n asal say� olup olmad���nda karar vermek
'Giri�/Ç�k��         : sayi incelenecek deger / asal ise true de�ilse false
'Ça�r�ld��� yerler : asalSayilariListele()
'Ça��rd�klar�       :
'***************************************************************************************
Dim sayac As Integer, sonuc As Boolean
sonuc = True
'negatif bir sayi gönderilirse gereksiz yere
'kod yazmamak için sayi pozitife dönü�türülüyor
'sonuç olarak yap�lacak i�lemler negatif say�lar içinde ayn�d�r
If sayi < 0 Then sayi = sayi * (-1)
If sayi = 1 Then
    sonuc = False
Else
    For sayac = 2 To sayi - 1
        If sayi Mod sayac = 0 Then
            sonuc = False
            Exit For
        End If
    Next
End If
asalmi = sonuc
End Function

Son olarak ta isterseniz yazd��m�z asalmi() fonksiyonunu kullanarak A sütununda bulunan say�lar (ki varsal�m A sütunu tam say�larla dolu olsun) aras�nda kaç tane asal say� var bunu tespit eden alt program�n kodlar�n� yazal�m. Bu arada alt program konusunu sonra ele alaca��z ama siz bunu �öyle dü�ünün alt program sub ile ba�lay�p end sub ile biten bir araç olup ayn� i�lemleri farkl� veriler üzerinde defaatle yapmak istedi�imizde kulland��m�z bir araçt�r bir nev-i mutfak robotu :)


Sub asalSayilariListele(kacTane As Integer)
'***************************************************************************************
'Kodlayan           : Bilal SERT
'Tarih / Saat       : 04.07.2014-05:17
'Amaç                : �stenilen say�da asal say�y� bulup listelemek
'Giri�/Ç�k��         : kacTane asal say� adedi / yok
'Ça�r�ld��� yerler :
'Ça��rd�klar�       : asalmi()
'***************************************************************************************
'sayici ile belirlenen tane asal say�y� tesit ediyoruz
Dim satir, sayici As Integer
satir= 1: sayici = 0
for satir=1 to 65535
    If asalmi(Sayfa1.Cells(satir, 1)) Then
        sayici = sayici + 1
    End If
    'ilk bo� hücre bulundu�unda döngüden ç�k�l�yor.
    if Sayfa1.Cells(satir,1)="" Then Exit For
Next
End Sub

Yukar�da verilen örnekte Exit For dikkatinizi çekmi�tir umar�m. Bu döndünün sonuna gelinmemi� bile olsa k�r�lmas�n� ve sona erdirilmesini sa�lar. Sizlerde For döngülerinizde belirli �artlar alt�nda döngünün sona ermesini istiyorsan�z Exit For kullanmal�s�n�z. Exit For iç içe döngü kullan�ld��nda ise kullan�ld�� yere göre bir üst döngüye ya da en d�� döngüde kullan�lm�� ise döngü d��na ç�k�lmas�n� sa�lar. �ç içe döngüleri sizlerle birlikte in�aallah ba�ka bir makalede ele alaca��z. Umar�m bir faydas� olmu�tur.

Yard�mc� olmas� dile�iyle.

Yay�nlad���m t�m makaleler

For Next d�ng�s�

Yay�nlad��m t�m makaleler