我这里有一个不止可以用于年会抽奖的表格模板，想要分享给你。当然，是免费的。这份模板分为「抽奖器名单配置表」和「抽奖器」两个工作表，如下图所示：❶ 使用时将名单粘贴至姓名一列，表格就会自动完成扩展。友情提示：抽奖器使用前，可以将名单配置表修改完成后隐藏。❷ 员工名单录入好之后，点击第二个 sheet 里的【开始】按钮，即可开始抽奖，然后点击【停止】按钮，即可停止抽奖，中奖的员工名单也就出来了。如果最终的获奖人数没有 4 个人，只需要调整第二个 sheet 中的文本框数量就可以实现。比如现在有 3 个获奖名单：如果你想要立即下载的话，可以直接滑到文末，找到下载方式；如果你想学习更多 Excel 实用、有趣的小技巧，那我建议你加入【秋叶 Excel 3 天集训营】！每天学习大概 30 分钟，3 天时间，你也有可能成为 Excel 高手！
❶ 名单配置表里的两个表格都用【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 天集训营】！每天学习大概 30 分钟，3 天时间，你也有可能成为 Excel 高手！
