- 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.
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.