又到年末了，一般这个时候，每家公司都要开始准备年会了，其中最令人期待的肯定是每年必不可少的抽奖环节了！
比如特等奖：iPhone 11 Pro Max
一等奖：iPad Pro
。。。
幸运奖：50元现金
相信上面这些奖品，大家都想得到。公司抽奖有多种多样，比如每人一个标签纸，统一放到纸箱上抽奖。今天给大家分享个简单的抽奖小工具，使用Excel VBA来实现。
首先，创建一个Excel宏文件，我们将人员名单全部填入Sheet2，再设置一下抽奖界面，如图
抽奖界面
参与抽奖人员名单
然后，按Alt+F11调出VBA代码界面，插入一个模块，新建一个过程Sub
定义一个数组，存放名单
<code>arrName = Sheets("名单").[A1].CurrentRegion/<code> 在数组下标间产生随机数
<code>Randomize'初始化随机数发生器
rdIndex = Int(Rnd * UBound(arrName) + 1)/<code>
将随机取到的人员姓名填入抽奖界面
<code>Range("A1").Value = arrName(rdIndex, 1)/<code>如果需要增加滚动效果，我们可以循环执行以上步骤，使用Do...Loop语句就可以了
为了可以跳出循环，我们可以定义一个Flag，通过【停止】按钮来实现对Flag的修改
全部代码如图：
代码全貌
最后我们看一下效果：
最终效果
点击下面链接可以查看我的其他文章哦!
喜欢的朋友记得点赞关注，网友们如果在Excel中遇到问题都可以找我交流，也可以提出一些Excel中的需求，我会用VBA实现并在下期分享给大家，以后不定期更新Excel VBA技巧！
分享到:
閱讀更多 VBA編程開發 的文章
