For döngüsü

Sub makro4()
Dim i As Integer
Dim j As String
For i = 1 To 10 Step 1
j = j & "+" & i
Next
Range("B8") = j
End Sub

Çıktısı : +1+2+3+4+5+6+7+8+9+10

Sub makro5_1()  ' yöntem 1
Dim i As Integer
Dim j As String
For i = 1 To 10 Step 2
j = j & "+" & i
Next
Range("B9") = j
End Sub

Çıktısı : +1+3+5+7+9

Sub makro5_2()   ' yöntem 2
Dim i As Integer
Dim j As String
For i = 1 To 10
i = i + 1
j = j & "+" & i
Next
Range("B9") = j
End Sub

Çıktısı : +2+4+6+8+10

Sub makro5_3()   ' yöntem 3
Dim i As Integer
Dim j As String
For i = 0 To 10
i = i + 1
j = j & "+" & i
Next
Range("B9") = j
End Sub

Çıktısı : +1+3+5+7+9+11

Sub makro5_3()   ' yöntem 3
Dim i As Integer
Dim j As String
For i = 0 To 10
i = i + 1
j = j & "+" & i
Next
Range("B9") = j
End Sub

Çıktısı : +2+4+6+8+10

Sub makro5_4()  ' yöntem 4
Dim i As Integer
Dim j As String
For i = 2 To 10
j = j & "+" & i
i = i + 1
Next
Range("B9") = j
End Sub

Çıktısı : +2+4+6+8+10

Sub makro5_5()   ' yöntem 5
Dim i As Integer
Dim j As String
For i = 1 To 10
j = j & "+" & i
i = i + 1
Next
Range("B9") = j
End Sub

Çıktısı : +1+3+5+7+9

Ben burdaki artışları anlamadım arkadaşlar yardımcı olabilirmisiniz.

Mesela yöntem 2 de :

Sub makro5_2()   ' yöntem 2
Dim i As Integer
Dim j As String
For i = 1 To 10
i = i + 1
j = j & "+" & i
Next
Range("B9") = j
End Sub

for i = 1 to 10 diyo hemen altında i=i+1 burda i 2 oluyo sonra 1 artıp 3 olması gerekirken 2+4 diye gitmesini anlamadım.

her dongude i otomatik 1 artıyor. fazladan birde " i=i+1" bu ifadede 1 artıyor. her dongude +2 oluyor.

Sub makro5_2() ' yöntem 2
Dim i As Integer
Dim j As String
For i = 1 To 10
i = i + 1
j = j & "+" & i
Next
Range("B9") = j
End Sub


XEJDER dediği gibi doğru.

ek olarak demek istediğim burada şair

For i = 1 To 10 step 2

şekilde yapmış gibi oluyor.