VBA高级应用30例应用5：转盘游戏代码实现之最终的游戏过程

《VBA高级应用30例》（版权10178985），是我推出的第十套教程，教程是专门针对高级学员在学习VBA过程中提高路途上的案例展开，这套教程案例与理论结合，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中分发VBA程序，写好的程序可以升级。本套教程共三册三十个专题，本讲的内容是：VBA高级应用30例应用5：转盘游戏代码实现之最终的游戏过程

【分享成果，随喜正能量】40把时间用在积极，美好，安稳的事情上，愿你遇到这样的人，愿你成为这样的人。修得不生气的心，才有好福气的命，一张笑脸，向顺，向福。在努力的过程中，怀揣着对生活的美好期许，并且一直努力向上，如此，便是没有辜负岁月。

应用5 利用VBA制作一个转盘游戏

在实际工作中，我们发现Excel是一个非常严肃和强大的应用程序，但这并不意味着我们不能从中得到乐趣。在本文中，我将给大家讲解如何构建一个Excel文件，使您能够玩幸运轮，同时我们会辅助声音和一些必要游戏基础设施构建！

6 最终的游戏过程

我先给出程序的所有代码：

Private Sub Worksheet_Activate()

Application.DisplayFullScreen = True

End Sub

Private Sub Worksheet_Deactivate()

Application.DisplayFullScreen = False

End Sub

Private Sub Workbook_Open()

mynzResetNumbers

End Sub

最后我们看一下游戏的操作过程：

1）在开始游戏前需要操作人员设置总人数

2）在人员序号处录入人员的序号

当然以上的两个步骤也可以先进行第二步再进行第一步。其目的是要保证所有人员全员参与。

3）到PLAY页点击开始：

4）此时转盘转动，霓虹灯闪烁：

5）最终结果显示：当转盘停止转动时，指针处就是这次的结果，此时会有语音播报，同时这个结果会保存在“已提取结果”的记录中，如下面的两个截图：

结论: 在这个应用中，给大家详细讲解了如何利用VBA制作一个EXCEL游戏的过程，可以说Office功能强大，只要我们肯于开发，总会有收获。这节的内容中涉及到动画效果的展现，随机数的利用，乱序的排序，语言效果，声音的播放等等。可以说这个专题应用让大家在学习的同时收获更多的乐趣。

今日内容回向：

1 如何实现转盘的转动？

2 如何利用API函数实现声音的播放？

3 如何在Excel中实现结果的播报？

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：