For Next

For counter = start To end [Step increment]
    'kod bloğu'
Next counter
Kopyala

• counter: Döngü sayacı değişkeni 3.
• start: Sayacın başlangıç değeri 3.
• end: Sayacın bitiş değeri 3.
• increment: Sayacın her döngüde artırılacağı değer, varsayılan olarak 1'dir 3.

1. Sayıları saymak: İlk sütundaki sayıları 1'den 10'a kadar yazdırmak için 1:

   Sub CountNumbers()
       For i = 1 To 10
           Cells(i, 1) = i
       Next i
   End Sub
   Kopyala

2. Sayıları toplamak: Bir sütundaki sayıların toplamını bulmak için 1:

   Sub SumNumbers()
       Dim total As Double
       For i = 1 To 10
           total = total + Cells(i, 1)
       Next i
       Cells(11, 1) = total
   End Sub
   Kopyala

3. Hücre rengini değiştirmek: Çift sayıları kırmızı renkle vurgulamak için 1:

   Sub HighlightEvenNumbers()
       For i = 1 To 10
           If Cells(i, 1) Mod 2 = 0 Then
               Cells(i, 1).Font.Color = RGB(255, 0, 0) 'font rengini kırmızı olarak değiştir
           End If
       Next i
   End Sub
   Kopyala