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

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

那就开始今天的教程咯。

1.复制一份Sub move_right()的代码，向左的代码只需将+1改为-1即可，首先Sub的名字改为move_left，将playercolumn+1改为playercolumn-1。

2.还需要修改and playercolumn-1 <> 1，这样向右走就完成了，现在开始书写向上的函数，首先修改函数名字为move_up（）。

3.向上的函数只需Row-1，而Column不变，向下的函数只需+1即可。

4.现在开始写鬼移动的函数，Sub Monster_move(),通过IF语句完成这个文字，如果我在鬼上则鬼往上走，如果我在左边则鬼向左走，并且可以同时斜着走。

5.截屏所示我书写的代码，大家可以自由的进行观看以及临摹。

6.现在书写判断胜负的代码，如果位置重叠则代表游戏失败If Monstercolumn = playercolumn And MonsterRow = playerRow Then MsgBox"你被鬼吃了", vbcritical Exit sub End If。

7.如果我的位置在U21则代表我赢了，If playerRow = 21 And playercolumn = 21 Then MsgBox"你胜利了!" End If，现在尝试游戏的正确性。

8.设置模式为Activate,applicataion.OnKey"{right}","sheet.move.right"，其他移动需要修改即可。

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

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