国际科技财经移民娱乐民生时事体育

Bendi新闻

我用Excel做了一个年会抽奖器，然后老板点了一下……

10月前

作者：竺兰、晓阳老师

编辑：竺兰、萌萌

Hi，我是懂点 Excel 的小兰~

你们公司开年会了吗？

我这里有一个不止可以用于年会抽奖的表格模板，想要分享给你。当然，是免费的。

文末可直接下载！

记得看到最后！

怎么用？

这份模板分为「抽奖器名单配置表」和「抽奖器」两个工作表，如下图所示：

❶ 使用时将名单粘贴至姓名一列，表格就会自动完成扩展。

友情提示：抽奖器使用前，可以将名单配置表修改完成后隐藏。

❷ 员工名单录入好之后，点击第二个 sheet 里的【开始】按钮，即可开始抽奖，然后点击【停止】按钮，即可停止抽奖，中奖的员工名单也就出来了。

如果最终的获奖人数没有 4 个人，只需要调整第二个 sheet 中的文本框数量就可以实现。比如现在有 3 个获奖名单：

看完我刚刚的介绍，现在你知道抽奖器该怎么用了吗？

如果你想要立即下载的话，可以直接滑到文末，找到下载方式；

如果你想知道这个抽奖器怎么做，那就继续往下看吧~

如果你想学习更多 Excel 实用、有趣的小技巧，那我建议你加入【秋叶 Excel 3 天集训营】！

每天学习大概 30 分钟，3 天时间，你也有可能成为 Excel 高手！

秋叶 Excel 3 天集训营

原价 99 元

现在 免费加入

报名即送

【35 个常用函数说明】

赶紧扫码预约吧！

👇👇👇

怎么做？

▋名单配置表原理说明

❶ 名单配置表里的两个表格都用【Ctrl+T】键转化为超级表，以便在录入员工名单时，表格可以自动完成扩展。

❷ 名单配置表中辅助 1 列使用函数=rand（），用以生成随机数。

❸ 名单配置表中辅助 2 列使用函数=rank（D2,D:D,0）快速生成排名。

❹ 在获奖名单一列中，使用函数=VLOOKUP(G2,B:C,2,0)，快速将相应排名的姓名查询引用至 H 列。

这样就能让获奖名单里的员工随机排列了。

▋抽奖器原理说明

抽奖器的实现，有两个关键，一个是获奖人姓名的引用，另一个就是如何通过点击【开始】和【停止】按钮实现名单滚动和停止。

❶ 获奖人姓名的引用。

原理就是在插入的文本框中引用单元格内容。

选中文本框，在编辑栏中输入"="，然后点击需要引用的单元格，回车即可，有几名获奖人，就需要几个文本框进行单独引用。

（文本框可以设置为无填充，字体可以在引用后单独设置。）

❷ 开始按钮和停止按钮的制作。

① 在功能区中，将【开发工具】选项卡加载出来。

PS.如果功能区有【开发工具】选项卡，这一步可以省略。

② 在【开发工具】选项卡中，分别创建【开始抽奖】和【结束抽奖】的宏，对应的宏代码如下：

开始抽奖的宏代码（功能：触发后让抽奖器名单配置表!A1 单元格显示为 start，工作表开始刷新，直到显示 stop 时停止）


Sub 开始抽奖()
mouseevents = FalseRange("抽奖器名单配置表!A1") = "start"DoCalculateDoEventsLoop Until Range("抽奖器名单配置表!A1") = "stop"
End Sub

停止抽奖的宏代码（功能：触发后让抽奖器名单配置表!A1 单元格显示为 stop）


Sub 停止抽奖()
mouseevents = TrueRange("抽奖器名单配置表!A1") = "stop"
End Sub

③ 点击【表单控件】-【按钮】插入两个按钮，在弹出的【指定宏】对话框中，分别选择【开始抽奖】和【停止抽奖】。

④ 修改按钮上的文字。右键单击按钮，选择【设置控件格式】，修改可选文字，字体，大小等格式。

⑤ 插入素材，美化抽奖器，最后将表格文件保存为 Excel 启用宏的工作薄（*.xlsm）（注意：一定要保存为 Excel 启用宏的工作薄（*.xlsm））

这样抽奖器就做好了！你学会了吗？

这个《年会抽奖器表格模板》，我已经为你准备好了，有需要的话，

点击下方的公众号卡片关注后

回复【年会】

即可免费下载！

还是那句话，如果你想学习更多 Excel 实用、有趣的小技巧，那我建议你加入【秋叶 Excel 3 天集训营】！