Excel VBA制作摇号抽奖工具

今有问题如下：

公司年会搞活动，人手发一张5行5列，由1-99不重复随机数组成的抽奖卡片— —类似于刮刮乐。在年会活动过程中会随机抽取几次数字，一次抽取一个，参与年会活动的人员手中的卡片能由抽取出的数字连成一条直线，即为中奖。

实际活动过程中由随机函数RANDBETWEEN()来抽取数字，可是抽取的数字会重复，导致活动过程中抽了很多次奖都没抽出中奖人，着实有点尴尬。

会后我给年会主办方提供了一个VBA解决方案，如果下次有这种活动，应该可以避免囧境了。

点击开始按钮，数字1-99未被抽中的会随机在A1单元格快速滚动出现，当点击停止时，数字停止滚动，当前数字即为抽中的数字，并且数字会自动记录到中奖号码区域中（方便后续核对兑奖），点击复位可清除所有中奖号码，重新开始。

主要代码如下图：

VBA可以解决实际工作中很多手工无法解决或需要耗费大量时间才能解决的问题，建议大家学点入门的，暂时不必要去研究什么高深算法或代码效率之类的问题，代码执行是3秒还是5秒相对于之前的大量手工时间没多少实际意义，先入门用起来再说，有需要原文件的可以私信。

好了，今天的内容就是这些，欢迎关注Excel泥瓦匠，Excel学习，E路有你。