VBA-FOR EACH Döngüsü

For each bir nesnenin tüm elemanlarına ulaşmak ve o elemanların içinde dönmemizi sağlayan bir döngüdür.

Belli bir hücre aralığındaki tüm hücrelere istedğimiz bir metni yazdıralım:

 

Sub isimyazdır()

Dim rng As Range

For Each rng In Range("a1:a20")

rng.Value = "excelyardimcim@blogspot.com"

Next rng

End Sub

vba for each

 

Şimdi biraz daha farklı bir örnek üzerinden gidelim:

For each döngüsüyle 1'den 20 ye kadar sayıları sıralamak

Sub arttır()

 

Dim rng As Range

 

Dim sayac As Integer

 

sayac = 1

 

For Each rng In Range("a1:a20")

 

rng.Value = sayac      'ilk hücreme sayacın ilk değeri olan "1" i yazdırdık

 

sayac = sayac + 1       'her bir hücreden sonra sayacın değerini 1 arttırıyoruz. 

 

Next rng

 

End Sub

 

vba for aech

Not: Formül içine yorum yazmak isterseniz yukarıda yaptığım gibi yorumun başına tek tırnak koyarsanız formül bozulmaz.