虎课网为您提供字体设计版块下的制作追踪小游戏01-实用VBA技巧实战课堂图文教程，本篇教程使用软件为Excel（office 365），难度等级为中级拔高，下面开始学习这节课的内容吧！

今天课程的内容是讲解18. 制作人鬼追踪小游戏，同学们可以在下方评论区进行留言。

那就开始今天的教程咯。

1.我们本节课进行制作游戏，首先查看案例效果，通过键盘调控方向，当我走一步，鬼也会走一步并且跟随你，鬼可以斜着进行移动，双方都不能穿过墙。

2.我们玩一次查看游戏的效果，我们可以通过策略实现逃脱的效果，我们可以将鬼卡在某个位置，我们再走。

3.现在开始进行制作，本节课并不是真正的移动，而是前方单元格变为红色或蓝色，上一步单元格变为白色。

4.打开文件，输入Sub starts() dim r,c,As Integer，For r=1 To 21 For c=1 To21Ifcell(r,c).interior.colorindex=3_or cell(r,c).interior.colorindex=5，当颜色系数=5代表蓝色，当颜色系数等于3时代表蓝色。

5.Then Cells(r,c).interior.Pattern=xlNone End If Next Next，代表清空背景颜色cells(2,2).Interior.ColorIndex=3 cells(2,2).Interior.ColorIndex=。

6.首先定义变量，playerRow=2 playerColumn=2 MonsterRow=21 MonsterColumn=21，在最上方定义Dim playerRow,playercoluum,MonsterRow,Monstercolumn AS Interger。

7.现在开始定义移动，添加注释：目标单元格红、所在单元格无，Sub move_right() if cells(playerrow,playercolumn+1).interior.pattern= xlNone_and playercolumn+1 <> 22，将目标限制在地图内部。

8.ThenCells(playerrow,playercolumn+1).interior.colorindex=3  Cells(playerrow,playercolumn).interior.pattern=xlNone playercolumn=playercolumn+1 End If。

9.回顾本节课所学的内容，同学们可在视频下方的评论区留言并提交作业，老师会根据提出的问题回复。

以上就是制作追踪小游戏01-实用VBA技巧实战课堂图文教程的全部内容了，你也可以点击下方的视频教程链接查看本节课的视频教程内容，虎课网每天可以免费学一课，千万不要错过哦！