Excel 制作贪吃蛇游戏，让你轻松摸鱼!

步骤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学习实践！