不重复点名抽奖_用Excel制作一个简易抽奖小程序,可一次抽取多人

抽奖程序应用广泛,本文介绍用Excel制作简单抽奖小程序。按F9键可抽奖,不松开能连续抽,也能一次抽多名幸运观众。制作时先准备人员名单,用RAND、RANK函数生成随机整数,用INDEX函数引用对应值,还提及更简单方法及欢迎留言讨论。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

抽奖程序在很多场合都能派上用场,比如商场开业促销、课堂点名、抽取幸运观众等。我们今天就用Excel来制作一个简单的抽奖小程序,仅做参考。

抽奖小程序是下图这个样子的。我们按一下键盘上的F9键,即可完成一次抽奖,按下F9键不松开可以连续抽奖。

6f6c42523ae2cc859e44350d0b025c28.gif

也可以一次抽取多名幸运观众,如下图所示。

1ef1d0d6f4466be4a28f5852ae373153.gif

那如何制作呢?其实很简单!

我们先准备好抽奖所需的人员名单(本例中共20人),并建立两列辅助列。如下图所示,在B列用RAND函数生成20个随机数,然后用RANK函数求出B列每一个数据的排名,这样就得到了1-20范围内不重复的20个随机整数。

2692ff9e41d6b7c43e3569c32d61a65c.gif

然后,在E2单元格用INDEX函数根据C2单元格的值,引用A2:A21区域的对应值。具体的公式为:

=INDEX($A$2:$A$21,C2)

要注意的是公式中$A$2:$A$21必须采用绝对引用的形式,抽奖效果如下图所示。

a56da19988ffce924f9e7dfe05b8c690.png

如果想要一次抽取多人,可以拖动E2单元格向下复制到所需的位置。

b8c14292292fac4a1f82cdea8490cf27.png

要实施抽奖,只需要按下F9键即可。

另外,如果只是抽取一个人的话,还有更简单的方法:使用RANDBETWEEN函数,不需要借助辅助列!

8e53407cfd7353606c5a03544d978c50.png

对于抽奖小程序,不知道大家还有什么更好的实现方法?欢迎留言讨论!

这是一个共享软件,除了可以在本站下载外,你还可以在http://dl.dbank.com/c0e431w4g9# 下载。其主要功能如下: 1、内置特等奖、一等奖~五等奖6个级别的奖项和1个自定义级别的奖项,抽奖顺序没有限制。 2、对于任意一等奖来说,可以一次抽取任意数量的奖项; 3、背景、解码用户可自行调整; 4、抽奖背景音乐用户可换; 5、可以在抽奖过程中显示中奖者的照片; 6、抽奖过程中可以显示用户所在的部门信息; 7、对于要求必须在场的抽奖,当中奖在场时可以做弃权处理; 8、抽奖结果立即存入Excel抽奖结果”工作表中。 使用说明及注意事项   1、抽奖前请在Excel“工具”-“宏”-“安全性”中将宏的安全级别设置为低,然后关闭Excel重新打开,否则无法运行抽奖程序。 2、本程序支持六个固定级别的奖项设置和一个自定义的奖项设置。 3、抽奖顺序有两种,即先小奖后大奖或相反。这个设置仅用于初始化《抽奖》工作表中的奖项设置,抽奖过程中需手动在《抽奖》工作表中切 换抽奖级别。 4、本程序支持两种抽奖方法:每次抽取一组中的全部名额,或每次抽取指定的若干名额。但是推荐一次抽取1个,因为大余一个时只能显示最 后一名中奖者的照片,且显示众中奖者的名字时布局是很美观。 5、单项最可设 5000 名中奖者,中奖者总数于候选数,否则在抽取最后一时会出现死循环。 6、请在《候选名单》工作表中录入所有候选项。候选仅受Excel行数限制,输入时请连续纵向输入,留空行。 7、在《抽奖》工作表中点击“弃权”按钮时该组中奖的所有的将被自动剔除,后面的抽奖中将再参与抽奖。 8、当设置的奖项总数+弃权总数大于等于抽奖候选总数时,程序将出现死循环。 9、抽奖一旦开始,请完成整个抽奖过程,要中途退出程序或追加候选名单。 10、本程序支持重复中奖,中奖的计入下一轮抽奖中。     关于《抽奖》工作表的界面设置的几点说明: 1、修改《抽奖》工作表的界面时需要先解锁工作表。具体方法:“工具”-“保护”-“解锁工作表”。修改完后最好锁定工作表。 2、抽奖时可隐藏Excel航标、列表。具体方法:“工具”-“选项”-“视图”-“行号列号”,取消勾选前面的复选框。 3、在调整《抽奖》工作表时,可插入、删除行或列。 4、一般地,修改《抽奖》工作表布局可以通过调整第一行的行高或第一列的列宽来实现。如果你要对控件进行详细布局设计(例如改变控件大 小),你可以通过控件设计模式来实现。具体方法:“视图”-“工具栏”-“退出设计模式”。 这时,你可以随意拖动按钮或照片控件的位 置及大小。调整完成后必须退出设计模式(将“退出设计模式”前面的勾取消掉)。系统的默认位置为D2单元格。 5、为满足抽奖的需要,《抽奖》工作表中的D5:D65536(即D列中从第5行到65535行)用来显示中奖者姓名。该列采用了条件格式,用特殊 的格式来显示中奖者的姓名。如果你需要更改这个样式,可在编辑工具栏(显示fx的那个工具栏)最左边的“名称框”中选择“ResultDisplay” 或输入D5:D65536并回车,这时这些单元格会被自动选上,然后从工具栏中的“格式”-“条件格式”中修改。 6、《抽奖》工作表中的下拉列表根据设置自动生成,请要更改其下拉列表的内容。 7、全屏显示。具体方法:“视图”-“全屏显示”。 8、更换背景。具体方法:“格式”-“工作表”-“背景”,选择你要的背景图片即可。 9、更换默认照片。具体方法:替换photo文件夹下面的“none.jpg”这个图片文件即可。 10、若要在抽奖过程中显示中奖者的照片,则需把抽奖的照片放到photo文件夹下面,同时在《候选名单》工作表的C列给出照片名。 11、若要更改在抽奖过程中播放的声音,可以替换Music文件夹下面的start.wav、finish.wav文件。
这里只给大家提供一个部分免费(奖项数<=10时)的程序供参考。 其主要功能如下: 1、内置特等奖、一等奖~五等奖6个级别的奖项和1个自定义级别的奖项,抽奖顺序没有限制。 2、对于任意一等奖来说,可以一次抽取任意数量的奖项; 3、背景、界面用户可自行调整; 4、抽奖背景音乐用户可换; 5、可以在抽奖过程中显示中奖者的照片; 6、抽奖过程中可以显示用户所在的部门信息; 7、对于要求必须在场的抽奖,当中奖在场时可以做弃权处理; 8、抽奖结果立即存入Excel抽奖结果”工作表中。 使用说明及注意事项   1、抽奖前请在Excel“工具”-“宏”-“安全性”中将宏的安全级别设置为低,然后关闭Excel重新打开,否则无法运行抽奖 程序。 2、本程序支持六个固定级别的奖项设置和一个自定义的奖项设置。 3、抽奖顺序有两种,即先小奖后大奖或相反。这个设置仅用于初始化《抽奖》工作表中的奖项设置,抽奖过程中需手动在《 抽奖》工作表中切换抽奖级别。 4、本程序支持两种抽奖方法:每次抽取一组中的全部名额,或每次抽取指定的若干名额。但是推荐一次抽取1个,因为大余一 个时只能显示最后一名中奖者的照片,且显示众中奖者的名字时布局是很美观。 5、单项最可设 5000 名中奖者,中奖者总数于参与数,否则在抽取最后一时会出现死循环。 6、请在《参与名单》工作表中录入所有参与抽奖员。参与数仅受Excel行数限制,输入时请连续纵向输入,留空行。 7、在《抽奖》工作表中点击“弃权”按钮时该组中奖的所有的将被自动剔除,后面的抽奖中将再参与抽奖。 8、当设置的奖项总数+弃权总数大于等于抽奖参与总数时,程序将出现死循环。 9、抽奖一旦开始,请完成整个抽奖过程,要中途退出程序或追加参与名单。 10、本程序支持重复中奖,中奖的计入下一轮抽奖中。  
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值