create checkerboard with alternating patterns

[Plotweaver]

I'm creating a video game that uses an 8 by 8 grid. I need half of the 64 cells to be black and half white. I'm using conditional formatting to highlight the cells white or black. I've got a randomizer to randomly make the cells either black or white. But, I can't figure out a way so that - no matter the pattern - half are white and half are black. Can you help me devise a formula that will do this? Thanks in advance.

 

[mikerickson]

This will color half the cells randomly.

Sub test()
    Dim GridRange As Range
    Dim ColorHere As Long, RangeCount As Long
    Dim i As Long
    Set GridRange = Range("A1:H8"): rem adjust
    
    With GridRange
        RangeCount = .Cells.Count
        .Interior.ColorIndex = xlNone

        For i = 1 To RangeCount / 2
            ColorHere = WorksheetFunction.RandBetween(1, RangeCount)
            Do Until .Item(ColorHere).Interior.ColorIndex = xlNone
                ColorHere = (ColorHere Mod RangeCount) + 1
            Loop
            .Item(ColorHere).Interior.Color = vbBlack
        Next I

    End With
End Sub

 

[Plotweaver]

Mike:
This runs GREAT! Thanks. Elegant and simple.

BTW... is there a shortcut way to activate the Shuffle? i.e. F9 key for example.

 

[Plotweaver]

Mike:
I just added a Command Button to Run the Shuffle program. Works perfectly well.

Now, a new challenge. The Game involves moving Tokens (Shapes) on the Board. The Token must be the same color as the Cell it rests upon (Black Token on Black cell).

But, I want to randomly select a Token (Shape) to move on the next turn. How do I randomly select a Shape?

 

[Paul Ked]

Hey Plotweaver, I tried to PM you but you've exceeded you message space.

 

[mikerickson]

Mike:
I just added a Command Button to Run the Shuffle program. Works perfectly well.

Now, a new challenge. The Game involves moving Tokens (Shapes) on the Board. The Token must be the same color as the Cell it rests upon (Black Token on Black cell).

But, I want to randomly select a Token (Shape) to move on the next turn. How do I randomly select a Shape?

With ActiveSheet
    Set RandomShape = .Shapes(WorksheetFunction.RandBetween(1, .ShapesCount)
End With

 

[Plotweaver]

Mike:
Thanks. I'll add it and see how well it works.
All the best.
Michael

 

[Plotweaver]

Mike:
I can't get it to work. Here's how I entered it:

Sub select_test()

With ActiveSheet
Set RandomShape = .Shapes(WorksheetFunction.RandBetween(1, .ShapesCount)
End With
End Sub

I had 6 square shapes on the 8 by 8 grid. It gives me Syntax Error.

Any suggestions? Thanks in advance.
Michael

 

[mikerickson]

I was missing a dot and a right paren.

Sub select_test()
    Dim RandomShape As Object

    With ActiveSheet
      Set RandomShape = .Shapes(WorksheetFunction.RandBetween(1, .Shapes.Count))
    End With

    MsgBox RandomShape.Name
End Sub

 

[Plotweaver]

Mike:
Thanks. I understand how difficult it can be to write code precisely right. 'Cause I gave up trying years ago and stuck to designing games.
Michael