Yazeka
Arama sonuçlarına göre oluşturuldu
Temel sözdizimi:
For counter = start To end [Step increment] 'kod bloğu' Next counter
Burada:
- 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.
Örnek kullanımlar:
- 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
- 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
- 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
5 kaynaktan alınan bilgiyle göre: