表格怎么制作五子棋

您好，方法
1、首先在excel表格模式时，画两个单选框将一个按钮，然后参照我的另外一篇百度经验”怎样通过excel计算出九宫格“，双击按钮进入到代码模式。
2、图中红色宽中主要讲述对棋盘的设置；
图中红色所讲述的是，在表1被激活时，单选框1被选中；
3、图中红色所讲述的是，若单选框1被选中时，鼠标所选的单元格被赋值为实心圆，赋值后，更换为单选框2被选中；若当单选框2被选中时，鼠标所选的单元格被赋值为空心圆，赋值后，更换为单选框1被选中。到此时，五子棋的下子程序已经完成了，剩余判断胜负的程序了。
我把判断胜负的程序，分为了4部分；
判断竖直胜利部分；
判断水平胜利部分；
判断左倾斜胜利部分；
判断右倾斜胜利部分；
如何在excel中制作五子棋！
每一部分原理都类似，这里只讲述竖直胜利的情况。
判断竖直胜负的原理：当黑子方走完最后一颗实心黑子时，只要判断以该颗棋子为中心的9颗竖直排列的棋子中，是否有5颗连续为实心黑子，若有，则胜利；
如何在excel中制作五子棋！
7
所有程序：
Private Sub CommandButton1_Click()
Range("E5:AD30")ClearContents
With Range("E5:AD30")Font
Name = "宋体"
FontStyle = "bold"
Size = 12
End With
With ActiveSheetCells
ColumnWidth = 25
RowHeight = 175
End With
End Sub
Private Sub Worksheet_Activate()
OptionButton1Value = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'五子棋部分
If ActiveCellRow < 31 And ActiveCellRow > 4 And ActiveCellColumn < 31 And ActiveCellColumn > 4 Then
If OptionButton1Value = True And ActiveCellValue = "" Then
ActiveCellValue = "●"
OptionButton2Value = True
ElseIf OptionButton2Value = True And ActiveCellValue = "" Then
ActiveCellValue = "○"
OptionButton1Value = True
End If
a = 0
'判断竖胜部分
For i = -4 To 4
If Sheet1Cells(ActiveCellRow, ActiveCellColumn - i) = ActiveCellValue Then
a = a + 1
Else
a = 0
End If
If a = 5 Then
If ActiveCellValue = "●" Then
MsgBox "黑方胜"
Range("E5:AD30")ClearContents
Else
MsgBox "白方胜"
Range("E5:AD30")ClearContents
End If
Exit For
End If
Next
'判断横胜部分
For i = -4 To 4
If Sheet1Cells(ActiveCellRow - i, ActiveCellColumn) = ActiveCellValue Then
a = a + 1
Else
a = 0
End If
If a = 5 Then
If ActiveCellValue = "●" Then
MsgBox "黑方胜"
Range("E5:AD30")ClearContents
Else
MsgBox "白方胜"
Range("E5:AD30")ClearContents
End If
Exit For
End If
Next
'判断左斜胜部分
For i = -4 To 4
If Sheet1Cells(ActiveCellRow - i, ActiveCellColumn - i) = ActiveCellValue Then
a = a + 1
Else
a = 0
End If
If a = 5 Then
If ActiveCellValue = "●" Then
MsgBox "黑方胜"
Range("E5:AD30")ClearContents
Else
MsgBox "白方胜"
Range("E5:AD30")ClearContents
End If
Exit For
End If
Next
'判断右斜胜部分
For i = -4 To 4
If Sheet1Cells(ActiveCellRow + i, ActiveCellColumn - i) = ActiveCellValue Then
a = a + 1
Else
a = 0
End If
If a = 5 Then
If ActiveCellValue = "●" Then
MsgBox "黑方胜"
Range("E5:AD30")ClearContents
Else
MsgBox "白方胜"
Range("E5:AD30")ClearContents
End If
Exit For
End If
Next
End If
End Sub

下五子棋技巧和套路有：先手落子，连接着同类棋子的交汇处，攻击时要提防对方，要做到攻守兼顾。三颗棋子组成三角，形成三条攻击线。
1、在棋盘上与对手下棋，就要严密谨慎，认真细致；而下五子棋时，重要的是先手之争。
2、执黑先行，开局布阵，要选择有利定式，利用先手先机，一举取得优势，最终五连。
3、执白后行，稳固防守，抢占要点，守中带攻，伺机反先，不可单一防守。
4、开局时，是双方二的争夺，要布置二的组合攻击，要求合理布局，力争主动； 中盘时，要组织棋子，聚集力量，集团攻击，要力争抢三，夺取先手，方可争胜。
5、五子棋中，实线与虚线相互交错，攻守点与攻守线相互交织，对局者要眼观六路，审慎而行。
下五子棋的好处：
1、陶冶性情，培养礼仪下五子棋非常讲究礼仪。
静坐对局要求落子无悔、观棋不语、坐姿端正，对培养孩子的定性是一项非常合适的活动。随着孩子心的宁静，学习别的功课时就会事倍功半。
天性活泼的孩子们在刚刚接触五子棋时，可能会出现乱动棋子、抓耳挠腮等现象，但通过老师的指正和周围气氛的感染，他们会慢慢养成这些好习惯。
2、挫折训练，学会直面逆境棋类与音乐绘画等其它艺术类项目最大的不同在于棋类有胜负。
有些孩子在下棋时抱着只能赢不能输的心态，输了棋就大哭起来。棋下输了心情自然不好受。有胜负感，荣誉感，危机感是好事，但是仅有这些是不够的，我们在遇到挫折时要勇敢面对，养成凡事要靠自己，在逆境挫折面前永不放弃，快速调整好心境的良好习惯，而下五子棋恰恰是靠自己面对现实的去战胜对手。

画一个横九竖七的格子棋盘即可。

斗兽棋棋子活动的场所，叫做"棋盘"，在长方形的平面上，有横九竖七共六十三个格子组成，棋子就摆在这些格子内。

棋盘内有两条小河，其规格为23，棋子分为八种：象、狮、虎、豹、狼、狗、猫、鼠。

历史文化：

小时侯玩的“象狮虎豹狼狗猫鼠”游戏，书面语叫做斗兽棋，又叫动物棋。对于二十世纪七八十年代出生的人而言，是他们小时候都可能玩过的这些小游戏。

“象狮虎豹狼狗猫鼠”游戏是中国所特有的一种棋类游戏，游戏中双方各有八种棋子，分别是大象、狮子、老虎、豹子、狼、狗、猫和老鼠（有的地方是十二个棋子，一龙二麟三象四狮五虎六豹七狼八狗九狐十猫十一鼠十二鸡，又称十二金鸡棋）。

所谓棋子者，即在卡片或纸片上写上这些动物的名字，有对阵的两组(颜色分开)。游戏的规则非常简单，大的动物吃小的，同种动物之间可以互吃，但是最后小老鼠可以吃大象 。

百度百科-斗兽棋

---