步骤1：准备工作表
1. 创建游戏区域：
o 在单元格区域（如B2:AK30）设置一个矩形区域，调整行高和列宽为正方形（如行高20像素，列宽3字符）。
o 设置背景色为深色（如黑色），作为游戏画布。
2. 初始化界面：
o 在单元格中标注“得分：”和“游戏结束”提示区（如A1和A3）。
步骤2：编写VBA代码
按Alt+F11打开VBA编辑器，插入新模块并粘贴以下代码：
'----- 全局变量声明 -----
Dim Snake() As Range '蛇身数组
Dim Direction As String '移动方向（Up/Down/Left/Right）
Dim Food As Range '食物位置
Dim Score As Integer '得分
Dim GameOver As Boolean '游戏状态
'----- 初始化游戏 -----
Sub StartGame()
'清除原有数据
Range("B2:AK30").Interior.Color = vbBlack
Range("A3").Value = ""
'初始化蛇（长度为3，起始位置为D5:D7）
Set Snake(1) = Range("D5")
Set Snake(2) = Range("D6")
Set Snake(3) = Range("D7")
ReDim Snake(1 To 3)
For Each cell In Snake
cell.Interior.Color = vbGreen
Next
'生成食物
GenerateFood
'初始方向向右
Direction = "Right"
Score = 0
GameOver = False
'启动游戏循环
Do While Not GameOver
MoveSnake
Application.Wait Now + TimeValue("00:00:0.2") '控制速度（0.2秒/帧）
Loop
End Sub
'----- 蛇的移动逻辑 -----
Sub MoveSnake()
'计算新头部位置
Dim Head As Range
Set Head = Snake(UBound(Snake))
Select Case Direction
Case "Up": Set NewHead = Head.Offset(-1, 0)
Case "Down": Set NewHead = Head.Offset(1, 0)
Case "Left": Set NewHead = Head.Offset(0, -1)
Case "Right": Set NewHead = Head.Offset(0, 1)
End Select
'碰撞检测
If Intersect(NewHead, Range("B2:AK30")) Is Nothing Then '撞墙
GameOver = True
Range("A3").Value = "游戏结束！得分：" & Score
Exit Sub
ElseIf NewHead.Interior.Color = vbGreen Then '撞自己
GameOver = True
Range("A3").Value = "游戏结束！得分：" & Score
Exit Sub
ElseIf NewHead.Address = Food.Address Then '吃到食物
Score = Score + 10
Range("A1").Value = "得分：" & Score
ReDim Preserve Snake(1 To UBound(Snake) + 1)
Set Snake(UBound(Snake)) = NewHead
GenerateFood
Else '正常移动
Snake(1).Interior.Color = vbBlack '清除尾部
For i = 1 To UBound(Snake) - 1
Set Snake(i) = Snake(i + 1)
Next
Set Snake(UBound(Snake)) = NewHead
End If
'更新蛇身颜色
For Each cell In Snake
cell.Interior.Color = vbGreen
Next
End Sub
'----- 生成食物 -----
Sub GenerateFood()
Randomize
Do
Set Food = Range("B2").Offset(Int(29 * Rnd), Int(36 * Rnd))
Loop Until Food.Interior.Color = vbBlack
Food.Interior.Color = vbRed
End Sub
'----- 方向控制 -----
Private Sub Workbook_Open()
'绑定方向键
Application.OnKey "{Up}", "TurnUp"
Application.OnKey "{Down}", "TurnDown"
Application.OnKey "{Left}", "TurnLeft"
Application.OnKey "{Right}", "TurnRight"
End Sub
Sub TurnUp(): If Direction <> "Down" Then Direction = "Up": End Sub
Sub TurnDown(): If Direction <> "Up" Then Direction = "Down": End Sub
Sub TurnLeft(): If Direction <> "Right" Then Direction = "Left": End Sub
Sub TurnRight(): If Direction <> "Left" Then Direction = "Right": End Sub
步骤3：运行游戏
1. 启动游戏：
o 按Alt+F8打开宏窗口，选择StartGame并运行。
2. 操作方式：
o 使用键盘方向键控制蛇的移动。
o 吃到红色食物得分+10，蛇身变长。
o 撞墙或自身则游戏结束。
优化技巧
1. 调整速度：
o 修改Application.Wait Now + TimeValue("00:00:0.2")中的时间值（如0.1秒更刺激）。
2. 自定义外观：
o 修改vbGreen和vbRed颜色代码（如RGB(0,255,0)）。
3. 扩展功能：
o 添加音效（需调用Windows API）
o 增加难度等级（速度随分数提升）
注意事项
1. 启用宏：
o 首次使用时需在【文件→选项→信任中心】启用宏。
2. 性能问题：
o 避免在大型Excel文件中运行，可能导致卡顿。
3. 兼容性：
o 代码适用于Excel 2010及以上版本。
通过以上方法，你可以将Excel变成一个简易的贪吃蛇游戏平台，适合办公摸鱼或VBA学习实践！