[VBA] Exercies to do

Agnieszka

1. Compare the differences in For Next Examples

Sub ForNextEx1()

Dim I As Integer
Range("A1") = Amount

I = 2

For I = 2 To 20

Cells(I, 1) = (I * 10) + 1

Next

End Sub

'-------------------------------------------------------

Sub ForNextEx2()

Dim I As Integer
Range("A1") = Amount

I = 2

For I = 2 To 20 Step 3
Cells(I, 1) = (I * 10) + 1

Next

End Sub

'--------------------------------------------------------

Sub ForNextEx3()
Dim X As Integer
Dim Y As Integer

For X = 1 To 10

For Y = 1 To 10
Cells(X, Y) = X * Y
Next

Next

End Sub