Acil Yardım!! Makro bilen arkadaşlar

14 Ara 2017
6
0
1
For i = 1 To 11
Sayfa1.Cells(i, 1).Select
If (i Mod 2) <> 0 Then
ActiveCell.Interior.Color = vbRed
Else
ActiveCell.Interior.Color = vbBlue
End If
Next i

bu kod bloğunun ne işe yaradığını bir kaç cümlede açıklayabilir misiniz rica etsem.