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