爆竹声中一岁除，春风送暖入屠苏；千门万户曈曈日，总把新桃换旧符。
–宋/王安石《元日》
年末马上就要到了，一般这个时候，每家公司基本都开始准备年终聚餐以及年终总结了，当然必不可少的肯定是大家都想得到的抽奖环节了
比如特等奖：华为mate30
一等奖：电动自行车
。。。
幸运奖：50元现金
相信上面这些奖品，大家都想得到。公司抽奖有多种多样，比如每人一个标签纸，统一放到纸箱上抽奖，今天给大家分享个抽奖小工具，使用Excel来实现，不过这个需要用到VBA的一些知识，大家可以直接使用。
首先看下成品效果，操作步骤先点击【立即抽奖】，当需要停止的时候，点击【停止抽奖】，最后选中需显示人员名称单元格，再点保存即可。
下面就给大家讲下，这是如何实现的。
操作步骤：
1、首先我们需要准备好人员清单，人员清单包含【工号】及【人员名单】信息，统一放置在[人员名单]工作表内，因工号是唯一的，这样同时实现可避免抽奖出现相同名字的人员
2、制作抽奖界面样板，首先我们先设置各奖项人员显示位置，在B2:B8位置分别输入各奖项的名称，并添加相应的背景色等内容
再添加抽奖使用的背景样式
3、我们在A1单元格输入如下公式：
=RANDBETWEEN(2,COUNTA(人员名单!A:A))
RANDBETWEEN函数，随机生成区间2~COUNTA(人员名单!A:A)之间的随机数
因我们【人员名单】第一行是标题，故需要从2开始，返回的是随机的行数
再在A2单元格输入公式：
=INDEX(人员名单!A:B,抽奖系统!A1,1)&CHAR(10)&INDEX(人员名单!A:B,抽奖系统!A1,2
公式运行后及得到工号及人员名称，Char(10)为换行符，起到自动换行作用
4、制作抽奖显示窗口，点击插入【文本】-【横向文本框】，输入文字，设置字体颜色为红色，字号选择28，加粗，去除文本框的框线及背景色
再点击显示窗口，输入公式：=A2
即把A2单元格的内容显示到文本框中，这是只要我们按F9,可以看到姓名随着变更了
5、插入抽奖及保存抽奖信息的窗口，点击【插入】，选择矩形，设置边框为白色，无填充，输入文字：开始抽奖，字号24，字体：华文彩云
分别插入3个矩形，命名为：立即抽奖；停止抽奖；保存抽奖
6、编写VBA代码，右击工作表名称-【查看代码】，输入如下三段代码
PrivateDeclarePtrSafe SubSleepLib"kernel32"(ByVal dwMillisecondsAsLong)'暂停 64位系统 'PrivateDeclareSubSleepLib"kernel32"(ByVal dwMillisecondsAsLong)'暂停 32位系统 Dim mark As Boolean Sub 立即开始() [A2] = "=INDEX(人员名单!A:B,抽奖系统!A1,1)&CHAR(10)&INDEX(人员名单!A:B,抽奖系统!A1,2)" mark = True Do While mark DoEvents Sleep 50 ActiveSheet.Calculate Loop End Sub
Sub 停止抽奖() mark = False End Sub
Sub 保存抽奖() CH = [A1] ActiveCell = [A2] Sheets("人员名单").Cells(CH, 1).EntireRow.Delete Application.EnableEvents = False [A2] = "" Application.EnableEvents = True End Sub
7、再分别右击插入的矩形框，点击【指定宏】，分别指定以上设置的宏命令
这样一个抽奖小程序就做好，我们只要点击【立即抽奖】，再点击【停止抽奖】按钮，最终保存抽奖人名，即可。
此方法主要是应用了INDEX及RANDBETWEEN函数，再结合VBA程序制作而成。
数据原始档案，可从以下网盘下载：
链接: https://pan.baidu.com/s/19BsAE8M1IRk9MOxUG78FHQ
提取码: hq3q
如果觉得文章对你有帮助的话，希望大家帮忙点赞加分享哦~，谢谢
本文由彩虹Excel原创，欢迎关注，带你一起长知识！
