Visual Basic CHESS TABLE help

[Jovan123]

Hi, can you please help me with this task
I want to write a program that takes input of drawing chessboard n x n in excel table (and colors every other field black)

I wrote this code that works:
Option ExplicitSub main()
Dim n As Integer
Dim x As Integer
Dim y As Integer
n = InputBox("Enter number")

For x = 1 To n
For y = 1 To n
Cells(1, 1).Offset(x - 1, y - 1).Interior.ColorIndex = (x + y) Mod 2 + 1
Next y
Next x
End Sub


My question is how i can do this without Offset(x - 1, y - 1).Interior.ColorIndex = (x + y) Mod 2 + 1
and with this code Cells(x,y). Interior.Color = RGB(o,o,o) for each color (black and white)?

Thanks!

 

[davesweep]

Hi,

Not exactly what you're after, but this could help

Sub a()
Dim iNumber As Integer
Dim rBoard As Range, rCell As Range
 
iNumber = InputBox("")

Set rBoard = Range(Cells(1, 1), Cells(iNumber, iNumber))

For Each rCell In rBoard
If Application.WorksheetFunction.IsOdd(rCell.Row + rCell.Column) = True Then rCell.Interior.Color = RGB(255, 255, 255) Else rCell.Interior.Color = RGB(0, 0, 0)
Next

End Sub

 

[RoryA]

You could use something like:

   For x = 1 To n
      For y = 1 To n
         Cells(x, y).Interior.Color = Choose((x + y) Mod 2 + 1, RGB(0, 0, 0), RGB(255, 255, 255))
      Next y
   Next x

 

[mikerickson]

Perhaps

Dim i As Long, j As Long
Dim cellColor As Long
For i = 1 To 8
    For j = 1 To 8
        cellColor = RGB(255, 255, 255) * ((i + j) Mod 2)
        Cells(i, j).Interior.Color = cellColor
    Next j
Next i

or, if that is wrong way round

cellColor = RGB(255, 255, 255) * ((i + j + 1) Mod 2)

 

[Jovan123]

Thanks a lot!

 

[Jovan123]

Can you explain me what this part means or does "Choose((x + y) Mod 2 + 1" ? i`m absolute begginer

 

[RoryA]

(x + y) Mod 2
returns either 0 or 1 depending on whether the column + row is even or odd.
Adding 1 returns either 1 or 2 and the Choose function uses this number to return either the first or second RGB colour value.

 

[Jovan123]

Thanks!