Checkers Board

[Zack Barresse]

want to create a checkers board in excel? well now you can! put the following code into a standard module and call from any blank sheet.



Sub createCheckers()

Rows("1:8").Select
Selection.RowHeight = 45
ActiveWindow.Zoom = 100
Range("A1:G8").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=(MOD(COLUMN()+ROW(),2))=0"
Selection.FormatConditions(1).Interior.ColorIndex = 56
Selection.Interior.ColorIndex = 3
ActiveWorkbook.DisplayDrawingObjects = xlHide
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
.DisplayZeros = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Application
.ShowStartupDialog = False
.DisplayFormulaBar = False
.DisplayStatusBar = False
.ShowWindowsInTaskbar = False
End With
Range("A1").Select

End Sub



playing pieces coming soon!

[Anne Troy]

Cool!

Let me know if you need some graphics for that.

[Zack Barresse]

you know, graphics wouldn't hurt a bit. i'm not sure how automated i want to get with this. it'd make a fun pet project though. once complete, it'd be nice to put the "With ActiveWindow" and "With Application" portions in like a workbook_open, then the reverse on the workbook_close. so people aren't left without going, "omg!". if that was me, i'd be like :barf

(i just wanted to use that emoticon :-) )

[Anne Troy]

And it's another thing that could be submitted to that site, ya know?

[Anne Troy]

By the way.
This isn't off-topic.
Let's put it up after we have code submission capability.

[Mark O'Brien]

This could be an interesting little project. However, let's get started on the proper footing. A checkers board is 8x8. We should use the range A1 to H8.

[Zack Barresse]

This could be an interesting little project. However, let's get started on the proper footing. A checkers board is 8x8. We should use the range A1 to H8.

:giggle

wow! thanks Mark! it's just really nice that i can laugh at myself. i don't know what else i'd do with myself really. so i can't count, . . . nobody's perfect :roll:

does it count that i got the rows right at least? :dunno

[Mark O'Brien]

:giggle
does it count that i got the rows right at least? :dunno
Sure, since I forgot to put a smiley in that last post. :heehee I mean :thumb