chessboard with vba

[Ort1z98]

hey everyone

I am trying to create a chessboard with a macro from vba. I have to use only for to of ifs to create the macro.

Sub macro6()
For column = 1 To 8
Cells(column, 1).Interior.Color = Black
Next column
End Sub
That is what i have so far. I know is lame but I dont know what to do next
Please help

 

[Michael M]

Maybe

Sub MM1()
For c = 1 To 8
    For r = 1 To 8
        Cells(1, 1).Offset(r - 1, c - 1).Interior.ColorIndex = (r + c) Mod 2 + 1
    Next r
Next c
End Sub

 

[Rick Rothstein]

Another way...

Sub MakeChessBoard()
  With Intersect(Range("A:A,C:C,E:E,G:G").EntireColumn, Range("1:1,3:3,5:5,7:7").EntireRow)
    .Interior.ColorIndex = 1
    .Offset(1, 1).Interior.ColorIndex = 1
  End With
End Sub

 

[Ort1z98]

hey thanks everyone the first one looks fine but I haven´t seen mod in my class yet. Can i substitute that with something else?

 

[Ort1z98]

The second one is great but i need to use loops, like for to or use if as well

 

[Ort1z98]

Thanks for your answer man. Can you help me with this

Sub MM1()
For c = 1 To 8
For r = 1 To 8
Cells(1, 1).Offset(r - 1, c - 1).Interior.ColorIndex = (r + c) Mod 2 + 1
Next r
Next c
End Sub

The answer is ok but i haven´t seen mod in my class yet. I have to use for to and it seems that the answer includes if. Can you please help me with this, its a homework that i need to do for today

Thanks

 

[surendra_kandru]

BY using for and if loop u can create

Sub chessboard()
For Col = 1 To 8
If Col Mod 2 = 1 Then
For Row = 2 To 8 Step 2


Cells(Row, Col).Interior.Color = 255
Next Row


Else
For Row = 1 To 8 Step 2
Cells(Row, Col).Interior.Color = 255
Next Row
End If
Next Col
End Sub

 

[surendra_kandru]

Maybe

Sub MM1()
For c = 1 To 8
    For r = 1 To 8
        Cells(1, 1).Offset(r - 1, c - 1).Interior.ColorIndex = (r + c) Mod 2 + 1
    Next r
Next c
End Sub

I think without using offset we can write like this

Sub MM1()
For c = 1 To 8
For r = 1 To 8
Cells(r, c).Interior.ColorIndex = (r + c) Mod 2 + 1
Next r
Next c
End Sub