当前位置：网站首页 > 技术资源 > 正文

Excel制作小型抽奖系统，可以内定结果，拿去用

moboyou 2025-09-18 04:17 7 浏览

“年会抽奖还能内定？

别笑，我亲眼见过。

”

这句话一出，会议室瞬间安静，老板都忍不住探头。

其实内定不是黑幕，而是技术——Excel就能搞定。

三分钟搭好，零代码基础也能玩得飞起，关键是还能让全场嗨到尖叫。

先把员工名单扔进A列，别管多少人，直接Ctrl+T转成“表格”。

公式瞬间变聪明：

=INDEX(名单[姓名],RANDBETWEEN(1,ROWS(名单)))

名单再长，公式自己跟着长，再也不用半夜改数字。

接着插三个按钮：开始、结束、内定。

开始键一按，名字跑马灯似的狂闪；结束键啪嗒定格；内定键更绝——提前在隐藏列填好“锦鲤”工号，宏里悄悄比对，灯光一停，大奖稳稳落进指定人怀里。

现场只会以为他手气爆棚。

想让气氛炸？

VBA里加两行代码：

Range("B2").Interior.Color = RGB(Rnd255,Rnd255,Rnd255)

再配个Beep，名字闪一次，全场尖叫一次。

去年我们试了，财务妹子直接蹦上椅子。

怕重复中奖？

宏里顺手写个字典，抽过的名字直接拉黑。

怕数据丢？

文件扔公司OneDrive，自动备份，老板想删都删不掉。

怕有人偷改内定？

给VBA项目设个密码，123456都别想蒙混过关。

名单懒得手敲？

PowerQuery连公司OA，一键刷新，迟到早退的全自动剔除，抽奖名单永远最新鲜。

中奖记录也别手写，宏里顺手写进“抽奖日志”工作表，时间、奖项、姓名全留痕，第二天贴公告，没人敢质疑暗箱。

大屏怎么接？

把Excel投到投影仪，全屏放映，字体调到200号，背景换成公司年会海报，主持人再吼两嗓子，效果堪比卫视综艺。

最后留个小彩蛋：把“谢谢参与”做成隐藏奖，抽到的同事送一张迟到免打卡券，比iPad还抢手。

年会最怕冷场，最怕流程拖沓。

一套Excel，十分钟搞定，随机、内定、记录、氛围全拿捏。

今年别再用纸条箱子了，试试这招，明年同事还会追着你要模板。

相关推荐