Excel教程-抽奖程序 - 360文档中心

用excel制作简单抽奖器

•excel软件1.打开excel，建立两个表格，分别命名为【员工花名册】和【中奖名单】，分两个表格只是为了抽奖时放大效果。

当然，你也可以只在一个表格上操作。

2.在【员工花名册】表格中，空白处输入公式【=rand()】。

3.接着按【回车/enter】，就能看到一个随机数值，下拉填充与员工数量对等。

4.打开另一个子表格【中奖名单】，选择一个空白格，输入公式：=INDEX(员工花名册!C$3:C$22,RANK(员工花名册!E3,员工花名册!E$3:E$22))5.接着按【回车/enter】，就能看到一个随机员工名字，中奖几个人，就下拉填充几行。

6.公式设置结束后，可根据自己喜好，对抽奖版面进行修饰。

7.最后，抽奖时，长按【F9】，让名单滚动，停下时，即可选出中奖名单。

END•运用到的函数分别有rand、rank、index•注意数据的绝对值手把手教你制作Excel抽奖器2014-11-15 作者:ExcelHome 阅读:154612次三国公司开年会，现场举行一次抽奖环节，要从50个人中，抽取10个幸运者，要求每个姓名只能出现一次。

职工名单如下图所示：在Excel中制作随机抽奖的效果，核心是生成一组随机不重复值。

首先，在B4输入以下公式，向下复制至B53：= RAND()RAND函数的作用是生成介于 0 到 1 之间的随机数（变量）。

******************D4单元格输入以下公式，向下复制：=INDEX(A$4:A$53,RANK(B4,B$4:B$53))简单说一下公式的意思：RANK(B4,B$4:B$53)RANK函数对B4:B53单元格产生的随机数字排序，生成了随机的1-50的数字。

RANK函数的计算结果将用于INDEX函数的参数。

INDEX函数返回表格(B4:B53)中的元素值，此元素由行号的索引值(也就是RANK 函数的运算结果)给定。

因为B列的数字是完全随机的，所以任何数字出现在前10行的概率都相同。

excel怎么制作抽奖小程序？

excel怎么制作抽奖⼩程序？
抽奖⼩程序，要求的是结果随机，在Excel⾥⾯有随机数函数rand()和randbtween来进⾏制作的，我们分三种情况来制作，1、单⼈抽奖，2、多⼈不重复抽奖，3、内定抽奖
我们⾸先准备抽奖的名单，放在A列，这个表格⾥⾯有88个⼈员
1、单⼈抽奖模式
我们在某个空⽩的单元格中输⼊公式
=index(a:a,randbetween(1,88))
这个时候，我们按住F9键，屏幕就会滚动起来，松开F9键，就得到了抽奖的结果（如果是笔记本电脑，按FN+F9键），抽奖效果如下所⽰：
2、多⼈不重复抽奖
我们需要在第2列中输⼊公式=rand()函数，然后向下填充，它会随机的⽣成0-1之间的随机数
然后我们在中奖名单⾥⾯输⼊公式：=index(a:a,rank(b1,b:b))，希望⼏个⼈中奖的话，就向下拉动⼏个单元格，便可以得到不重复的多⼈中奖抽奖模式
3、内定抽奖
如果希望抽奖的时候，内定抽到⾃⼰的话，那么我们可以借助VBA来实现制作过程如下，⾸先我们按ATL+F11，打开VBA编辑器，在⾥⾯输⼊如下三个模块的代码
因为在代码中，我们是对D1单元格产⽣随机数，所以在表格中，输⼊的公式是：=index(a:a,d1)然后我们插⼊三个按纽，其中内定的按纽放的隐蔽⼀点，分别绑定开始，结果，内定代码
这个时候就制作完成了，当我们正常点击开始，结束抽奖时，是正常的
当我们提前点了⼀下内定按纽之后，再点开始，结束时，抽奖的结果100%是作者本⾝了
因为插⼊了VBA代码，所以表格需要另存为⼀下，将格式更改成xlsm格式的⽂件。

这就是3个Excel⽤来制作抽奖的⼩程序技巧。

Excel随机函数经典应用：随机生成数字与字母，模拟抽奖功能

Excel随机函数经典应用：随机生成数字与字母，模拟抽奖功
能
老板今天心情好，要给大家发红包。

八人里面选三位，这活谁干谁心累。

选大宝吧，二宝不高兴；选张三吧，李四不高兴；那就抓阄吧，用Excel行话来说，叫【随机】。

这个问题往大了说，就是抽奖问题，如何使用Excel制作一个简单的抽奖器？
1、从【帮助】开始
注：在最新的Office365中，已经将“告诉我你想要做什么”统一整合成搜索框了，如下图所示。

这个搜索框功能十分强大，他有三方面能力:①操作；②在文档中查找；③获得相关帮助。

换句话说，几乎所有的Excel菜单功能、文档资料、帮助等都可以通过这个框调出来。

2、随机函数入门
随机函数Rand使用起来非常简单，因为它没有任何参数，直接写出来=Rand()就能返回结果。

这里使用了批量输入公式的方法：Ctrl+Enter，这对于需要快速输入同样的公式非常便捷，不需要再进行复制填充了。

3、随机生成一个整数
老板喜欢买双色球，又出了个新难题：如何从1-16中随机抽一个整数？
这里希望大家记住这个公式=RAND()*(b-a)+a就可以构造a和b 之间的随机实数。

如何将实数变成整数？
只要去掉小数部分，保留整数就可以了。

这里使用向下取整的INT函数。

=INT(RAND()*16+1)
4、随机生成一个字母
变态老板已经不满足于纯数字了，新难题：如何随机一个大写字母？
生成随机数和随机字母是制作抽奖器的前提，事实上，抽奖这个动作就是在随机的状态下选出特定的量。

如果有了随机数，我们可以通过简单地筛选、排序等动作来模拟抽奖，想想是不是这个道理？！。

excel教程年终抽奖必备运用2个函数随机抽取姓名

excel教程年终抽奖必备运用2个函数随机抽取姓名
在前面的课程，我们讲解了运用Excel制作掷骰子游戏，有的小伙伴就在问，可不可以用Excel随机抽取姓名用来抽奖，或者随机出现菜名，来帮助选择困难症的小伙伴，答案是可以的，下面，我们就以随机抽取姓名为例。

1、在A列输入好姓名，B1单元格写好标题，设置好格式（也可以不写，根据具体情况）2、选中B2单元格，输入公式
=INDIRECT('A'&RANDBETWEEN(2,10))其中，A为姓名列的列号，2为姓名开始行，10为姓名结束行3、再修改B2
单元格的样式，并隐藏网格线4、如果不想显示人名，可以选中A列，把名字颜色改为白色5、现在，想要随机出现姓名，只需要按【F9】，每按1次，随机出现1个姓名相关推荐如何用Excel制作1款小游戏？年终必备，掷骰子游戏，建议收藏！~●请大家多多关注、点赞、评论，让我有动力继续更新更多教程●。

利用EXCEL表格进行随机抽样

第二题2.使用RAND函数进行抽样：某公司需要从100名员工中随机抽取10名参加义务植树活动。

现在需要通过EXCEL选择员工的编号，并对员工的编号进行排序，写出结果：(小题解题主要步骤)工具—加载宏—分析数据库,如下图然后点击确定,数据分析选项就会出现在菜单栏的工具下,点击插入—函数—Rand函数,如下图:点击确定,在函数栏输入=RAND()*(100-1)+1,确定即可得一个数值,如选中单元格,右键单击,选择设置单元格格式,如下既得一个随机数值002,拖动填充柄,得到10个数值,再选中者10个数,选择复制,再右键单击,选择选择性粘贴—数值,如下确定,然后排序一下就可以了.3.使用RANDBETWEEN函数进行抽样：某体育彩票进行抽奖，需要从标号00001~99999的消费者中随机抽取10位中奖者，试采用RANDBETWEEN函数随机选中观众的号码，写出结果：(小题解题步骤)插入—函数—RANDBETWEEN,如下点击确定,在出现的参考函数编辑器中输入如下数据,如图:点击确定,右键单击单元格格式步骤如上一题所示,确定.4.利用“随机发生器”进行抽样：某体育彩票进行抽奖，需要从标号00001~99999的消费者中随机抽取10位中奖者，试采用随机发生器随机选中观众的号码，并对号码进行排序，写出结果：(4小题解题步骤:)工具—数据分析—随机数发生器,确定,在弹出的编辑器中输入如下数据:点击输出区域右边的指定10个单元格,确定即可,再将单元格格式设置一下,将得出的10个数值固定,和以上题相同: 确定,排序即可.5.利用抽样宏进行抽样：某图书进行推销活动，从购物清单标号001-100的消费中随机抽取10为幸运者免费赠送作何编号作为签名的图书，使用抽样宏随机抽取出幸运消费则的编号：(5小题解题步骤)先做一个表,利用填充柄会很快.如下图工具—数据分析—抽样:确定.如下图;输入区域为有100个数字的单元格(用鼠标选中即可),输出区域为任意的10个单元格,如图:确定,产生10个随机数,再固定为数值设置数字格式:确定,在排序就可以了.6.利用等距抽样进行抽样：某城市有私营企业300个，拟定样本量为7个，利用等距抽样进行企业营销状况调查，写出抽样结果：(6小题解题步骤)如图,输入一下信息:B3单元格即可得值将B3中的数值调整为整数,利用Round函数: 确定,在弹出的编辑器中进行编辑,结果如下:既得整数43.接下来用ROUNDBETWEEN函数从1-43中选出一个数,作为第一个随机数, 插入—函数—ROUNDBETWEEN如图:确定,在弹出的编辑器中输入一下信息:确定,既得第一个随机数,固定得出的第一个数为数值(方法同上) 在B6单元格输入=B5+B4,如图:将光标放在B4处,按F4键,则出现按回车键,则计算出第一个数,用填充柄进行填充得出七个数设置单元格格式,如图:确定,就可以了.如图:完成.。

Excel轻松制作抽奖系统EXCEL基本教程-电脑资料

Excel轻松制作抽奖系统EXCEL基本教程-电脑资料春节到了，单位里组织大联欢，其间穿插一些抽奖活动，。

为了体现抽奖的公正性，我们让Excel来帮我们抽奖。

一、加载模板1、启动Excel2003，执行“文件→新建”命令，展开“新建工作簿”任务窗格（如图1）。

注意：①这虽然是Excel2003版本新增加的一个模板，但是，经测试将文档保存后，在其他版本（2002、2000）中同样可以直接使用。

②不能直接单击“常用”工具栏上的“新建”按钮。

2、单击其中的“本机上的模板”按钮，打开“模板”对话框（如图2）。

3、切换到“电子表格方案”标签下，选中“抽奖器”模板，确定返回。

注意：第一次使用该模板，需要将安装盘插入光驱中，让系统加载此模板。

二、奖项设置1、在新建的抽奖工作簿中，切换到“候选名单”工作表中（如图3），将参加抽奖的员工名单输入其中（也可以从以前输入的文档中直接复制、粘贴过来）。

注意：每行输入一个名单，不能有空行。

2、再切换“设置”工作表中，设置好“奖项设置”、“抽奖顺序”、“抽奖方法”等（如图4），电脑资料《Excel轻松制作抽奖系统EXCEL基本教程》(https://)。

设置完成后，按下“设置完成”按钮，系统自动切换到“抽奖”工作表中。

三、开始抽奖1、单击其中的“开始抽奖”按钮（如图5），此时“开始抽奖”按钮转换为“停止”按钮。

2、过一会儿，按下“停止”按钮，“三等奖”抽出（此处设置的最小奖级为“三等奖”，且抽奖顺利是“先小奖，后大奖”）。

此时“停止”按钮转换为“继续抽奖”按钮。

3、到了抽下一个等级奖的时候，按下“继续抽奖”按钮，过一会儿，按下“停止”按钮。

四、查看结果1、在抽奖“停止”情况下，可以切换到“抽奖结果”工作表中，随时查看各奖级的抽奖结果（如图6）。

2、在“抽奖”工作表中，按下“打印获奖名单”按钮，即可奖抽奖结果打印出来。

怎么样？是不是很方便？！赶紧试试吧！关键字：EXCEL相关文章：Excel 加密文件Excel“公式求值”功能Excel标题跨列居中Excel表格边框设置Excel表格标题重复打印。

只需七步，用Excel做一个抽奖小程序！

只需七步，用Excel做一个抽奖小程序！
话不多说，直接开始！
第一步：先把要设置的奖品打出来，如图所示，奖名称可别打错了哦！
第二步：全选“数据”，选择“插入”，选择“饼图”，生成一张饼图
第三步：如图所示，将饼图无用数据清除，并且填充饼图颜色，修改标题
第四步，右键，设置标签格式，若没有此选项的话，先右击添加数据标签即可，然后选中类别名称，
第五步：新建工作表，将饼图复制在新表中，多少个奖品，就复制多少张图表哦，并将每个饼图中的一块填充红色，不要重复哦，不然就有选不中的了，如果是故意的，当我没说，哈哈！
第六步：点击“公式”，先择“定义名称”，修改名称“抽奖大转盘”，然后最重要一步，输入公式“=index(sheet2!$a$1:$f$1,randbetween(1,5))，点击“确定”，
第七步：插入任意图片，然后输入“=抽奖大转盘”，此时抽奖的饼图届面就出来了，按F9测试，随机选中任意一个，OK,大功告成！
感谢小伙伴们的支持，有什么更好玩的，方法，还请大家多多指教，谢谢！有什么需求，也可以提出哦，谢谢！。

excel抽奖公式，简单好用，元旦晚会能用上

2 index可以在指定区域中（B:B）根据指定的位值（INT(RAND()*11+3)），提取出该位置的内容。
3 随机函数在双击任一单元格后都会生成新的数值，所以在下次抽奖时，再双击任一单元格即可。
3随机函数在双击任一单元格后都会生成新的数值所以在下次抽奖时再双击任一单元格即可
excel抽奖公式，简单好用，元旦晚会能用上
如下图所示，为姓名，要求从A列中随时抽取三个人，年底了，幸运抽奖可以用上它，呵呵。
公式：
=INDEX(B:B,INT(RAND()*11+3))
公式说明:
1 RAND函数可以随时生成0~1的随机小数。INT(RAND()*11+3))生成3~14之间的随时整数。

EXCEL公式运用一则：随机排序或抽签

EXCEL公式运用一则：随机排序或抽签
先将原序列输入到A列，可以是姓名，也可以是单位等，为了看的更清楚，加一列序号（可以看出重排列后的效果），然后在下一列中输入公式：=RAND()，如下图：
向下填充公式：
然后在第三列里输入公式：=RANK(B2,$B$2:$B$12)，并向下填充，就可以得到随机排列的序号，而且重新计算一次就会改变一次，你要对多少个对象进行排序，就将公式中$B$12中的12改为实际数字。

排列1：
排列2：
这个方法是不是简单实用啊，今年俺单位要组织一次竞赛，领导让俺做一个抽签程序，上面这个虽好，可太简单了，拿不出手，俺正考虑做一个小程序（界面美观，功能全面，先自夸一下），你们谁有这方面的经验，给提点意见。

比如：应该抽几次（先抽出场顺序再根据出场顺序抽签，还是先抽出场顺序再根据出场顺序抽抽签顺序然后再抽签？？晕了没有？？），还有用什么来控制不让抽过的号再出现（方法很多，但不知哪种最好）等等问题。

怎样在excel制作一个用于抽签函数

怎样在excel制作⼀个⽤于抽签函数怎样在excel制作⼀个⽤于抽签函数，别的⼯具也⾏
假设A列是顺序号1、2、3、4、5
B列是⼈名A、B、C、D、E
可在C1输⼊=vlookup(randbetween(1,5),A:B,2,)
然后按F9 每按⼀次都会随机出⼀个⼈名
⽅法/步骤
1. 1
新建⼀个空⽩excel表格
2. 2
选中多个单元格，并进⾏合并居中（本步骤可以省略）
3. 3
选中单元格，输⼊公式=INT(RAND()*(100-1+1))+1，按回车键确认
【温馨提⽰】
1.记住连同=号⼀起输⼊；
2.如果是在1-50中抽取，则将公式中100替换成50，以此类推。

4. 4
选中单元格，在“开始”选项卡中进⾏字体⼤⼩调整
5. 5
按键盘F9键进⾏刷新，即每按⼀次F9将出现新数字
【温馨提⽰】
长按F9有数字滚动的效果哟~
END
注意事项
本公式在N次刷新中，可能出现重复的数字?希望喜欢的可以收藏跟投票哟~。

巧用Excel基础函数实现抽奖、抓阄功能实用技巧解读!

实际的工作中，随机选取相关人员的活动很多，除了传统的“抓阄”之外，在Excel中有没有办法实现“抓阄”的功能呢？一、效果展示。

从效果图中可以看出，“名单”是随机产生的，而且每次产生的都不一样，那么，该如何去完成此过程了？二、必备函数简介。

1、Index函数。

作用：返回指定区域中，行列交叉处的值或引用。

语法：=Index(单元格区域，行，[列])。

当“列”省略时，默认为第一列。

目的：返回B2:C9范围内第4行第1列的值。

方法在目标单元格中输入公式：=INDEX(B2:C931)。

2、Match函数。

作用：返回指定值在相对范围中的位置。

语法：=Match(定位的值，定位的范围，定位模式)。

定位模式有：-1、0、1三种，分别为：-1：查找大于或等于“定位的值”的最小值。

0：精准定位。

1：查找小于或等于“定位的值”的最大值。

目的：返回指定人员的相对位置。

方法：在目标单元格中输入公式：=MATCH(F3B3:B90)。

3、Small函数。

作用：返回数组中第K个最小值。

语法：=Small(数组范围，K）。

目的：返回指定范围内的最小值。

方法：在目标单元格中输入公式：=SMALL(C3:C9F3)。

4、Large函数。

作用：返回数组中第K个最大值。

语法：=Large(数组范围，K)。

目的：返回第K个最大值。

方法：在目标单元格汇总输入公式：=LARGE(C3:C9F3)。

5、Rand函数。

作用：返回大于等于0且小于1的随机数。

语法：=Rand()。

目的：随机生成大于等于0且小于1的随机数。

方法：在目标单元格中输入公式：=RAND()。

三、制作过程。

1、完善表格，添加辅助列并生成随机值。

方法：在目标单元格中输入公式：=RAND()。

2、“抓阄”或随机产生相关人员。

方法：在目标单元格中输入公式：=INDEX(B:BMATCH(SMALL(C:CF3)C:C0))。

解读：1、利用Small函数获取随机生成列中的最小值，然后用Match函数对其进行定位，最有用Index函数返回对应位置上的“姓名”。

用excel进行随机抽样

用excel进行随机抽样在Excel中进行随机抽样可以通过使用函数和工具栏进行操作。

下面我将详细介绍两种方法：使用“抽样”工具栏和使用“INDEX”函数。

方法一：使用“抽样”工具栏1.打开Excel，并打开你的数据表格。

确保你的数据是按照行排列的，即将数据从上到下排列。

2.单击“数据”菜单，然后选择“数据分析”。

如果你没有看到这个选项，可能需要先安装“数据分析”插件。

3.在弹出的“数据分析”对话框中，选择“抽样”工具，然后单击“确定”。

4.在弹出的“抽样”对话框中，选择你想要进行抽样的数据范围。

可以选择整个表格，也可以选择特定的行或列。

5.在“抽样方法”下拉菜单中，选择“随机抽样”。

6.如果需要，可以在“替换”选项中选择是否替换已抽取的样本。

7.单击“确定”，Excel将会随机抽取一定数量的样本，并将结果显示在新的单元格中。

方法二：使用“INDEX”函数1.打开Excel，并打开你的数据表格。

确保你的数据是按照行排列的，即将数据从上到下排列。

2.在你想要显示样本的位置输入以下公式：“=INDEX(A1:A100,RANDBETWEEN(1,100))”，其中A1:A100是你的数据范围，RANDBETWEEN(1,100)将随机生成1到100之间的数字，作为抽取样本的索引。

3.这个公式将会显示在你的表格中，它会在A列中的每一行随机抽取一个单元格的值。

你可以根据需要修改公式的参数来调整数据范围和抽取样本的数量。

需要注意的是，在使用以上两种方法进行随机抽样时，如果数据范围过大或者需要抽取的样本数量过多，可能会耗费较长的时间和计算资源。

如果遇到这种情况，可以考虑分批进行抽样或者使用更高效的数据分析工具。

Excel如何进行随机抽奖

Excel如何进行随机抽奖
在excel表格中，有着许多你不知道的有趣功能，例如抽奖，那么，随机抽奖是如何进行的呢?下面随店铺一起看看吧。

Excel随机抽奖的步骤
1.首先要打开我们的Excel2013表格，制作出本次参与抽奖的名单。

2.然后再在F2单元格中输入=INDIRECT("d"&INT(RAND()*13+2))
3. 公式的意义是：int函数返回一个2-14的随机整数，和d串联就会返回D2：D14之间的随机单元格，最后，indirect会返回随机单元格里面的姓名。

回车按下，得到一个人员的名字：孙天乐。

4. 选中从A到D，单击菜单栏--条件格式--新建规则选项。

5. 选择最后一个规则类型，途中已用红线标出来了，使用公式确定要设置格式的单元格，输入公式：=$D1=$F$2,点击格式按钮。

6. 弹出一个新建格式规则框如下图，可以置单元格格式，也就是中奖人员在名单册中的现实方式，与其他人进行区分。

7. 确定完了后再看看我们的表格的最终效果。

利用EXCEL随机抽奖

随机抽奖
奖励级别特等奖一等奖二等奖三等奖四等奖五等奖优秀奖奖励数量1123456
抽奖清除获奖记录1XXX285XXX71XXX155XXX290XXX167XXX14XXX117 2XXX31XXX197XXX30XXX86XXX81
3XXX5XXX232XXX111XXX47
4XXX83XXX88XXX48
5XXX276XXX188 6XXX119 7
8
9
10
39
1.随机抽取幸运观众：将参加活动人员的姓名填入奖池表的第二列，然后填入不同奖励级别的奖励数量，即可单击抽奖按钮，从奖池中一次抽取出不同级别的获奖名单。

2.随机抽取活动奖品：将奖品的名称填入奖池表的第二列，然后填入某一奖励级别的数量为1，即可单击抽奖按钮，从奖池中抽出1个活动奖品（在整个活动结束前，不要单击清除获奖纪录按钮，后续的抽奖人，直接单击抽奖按钮即可）。

3.清除获奖信息：单击清除获奖记录按钮，可将已获奖的记录清除掉。

奖池表：。

EXCEL抽奖制作

EXCEL抽奖制作在Excel中制作抽奖程序，不仅可以帮助我们实现便捷的抽奖操作，还能更好地管理抽奖过程和结果。

下面将详细介绍如何制作一个基于Excel的抽奖程序。

首先，我们需要准备一个包含参与抽奖的人员名单的Excel表格。

可以将每个人的姓名单独列出来，也可以将他们分组，如果需要抽取多个奖项的话。

接下来，我们需要在Excel中添加一些公式和宏来实现抽奖功能。

首先，我们可以使用随机函数来从参与人员中随机抽取获奖者。

在Excel中，可以使用RAND(函数来生成0到1之间的随机数。

可以在一些单元格中使用类似下面的公式来抽取获奖者：```=INDEX($A$2:$A$10,RANDBETWEEN(1,COUNT($A$2:$A$10)),1)```这个公式中，$A$2:$A$10是参与抽奖的人员名单所在的区域，RANDBETWEEN(1,COUNT($A$2:$A$10))用于生成一个1到参与人数之间的随机数，INDEX函数用于根据这个随机数在名单中找到对应的获奖者姓名。

除了随机抽取获奖者，我们还可以根据一些其他条件来筛选获奖者。

比如，我们可以通过在名单中添加一列，记录每个人是否已经中过奖。

然后，使用IF函数来判断每个人是否已中过奖，再使用类似上面的公式来抽取获奖者，但要注意选择的范围应该是那些没有中过奖的人员。

在Excel中，我们还可以使用宏来实现更复杂的抽奖功能。

首先，需要打开开发者选项卡，然后创建一个新的宏。

在宏中，我们可以使用VB 代码来实现自定义的抽奖逻辑。

比如，我们可以通过在宏中生成随机数，然后根据这个随机数选择对应的获奖者。

在宏中，我们还可以使用MsgBox函数来显示获奖者的姓名，或者将获奖者姓名写入一些单元格中。

另外，我们还可以在宏中加入一些其他的逻辑，比如判断是否有参与人员等。

最后，当抽奖程序完成之后，我们可以将整个工作簿保存为一个可执行的Excel文件，以便分享给他人。

另外，我们还可以将抽奖程序制作成一个自定义的Excel模板，以便重复使用。

excel怎么制作抽奖小程序？

excel怎么制作抽奖⼩程序？
年尾了，很多企业年会都有抽奖环节，你还在弱弱的使⽤把名字写好放⼊抽奖箱的原始⽅式吗？其实我们只要⼀台电脑上的EXCEL就可以实现随机抽奖功能，听起来⾼⼤上的样⼦，哈！先看动态效果图：
如上图，按住F9键就可以随机抽奖了，名字随机变化！
具体制作⽅法：
1.⾸先把名字输⼊到表格当中，设定⼀个显⽰中奖员⼯名字的单元格（可以⼤⼀点⽅便显⽰），在单元格输⼊公式【=INDEX(B:B,RANDBETWEEN(2,21))】
2.选择B列名字，设置单元格条件格式【等于D6,颜⾊为绿⾊，字体⿊⾊】
３.最后按住F9键不放就可以实现随机抽奖功能了！也可把名字改变成奖品名称，那随机显⽰的就是奖品了，可以⽤于显⽰员⼯随机抽中的奖品是什么！
公式解析：
由【index】和【randbetween】两个函数综合运⽤合成，randbetween是返回⼀个介于指定数字的随机数，INDEX是返回给定单元格的值，randbetween显⽰的是⼀个数字，⽤index把这个数字代表的值（名字）显⽰出来！
春节尾⽛将⾄，如何⽤Excel制作抽奖器呢？
⼩编分享2种类型的抽奖器
1. 简单、朴素且实⽤的抽奖器
2. 复杂、美观且专业的抽奖器
鸣谢：需要源⽂件，请关注后，发私信给我噢！！发私信！！
春节尾⽛将⾄，如何⽤Excel制作抽奖器呢？
⼩编分享2种类型的抽奖器
1. 简单、朴素且实⽤的抽奖器
2. 复杂、美观且专业的抽奖器
鸣谢：需要源⽂件，请关注后，发私信给我噢！！发私信！！。

【原创】ExcelVBA实现不重复、多次抽奖小程序

【原创】ExcelVBA实现不重复、多次抽奖⼩程序在活动中，我们常会有抽奖，抽奖箱准备繁琐，现在多采⽤线上抽奖⽅式，下⾯⽤Excel VBA写了⼀个简单的抽奖⼩程序简单测试效果如下，可实现：多次抽奖，且每次抽奖都不重复抽奖界⾯滚动⼈员信息，点击抽奖按钮锁定中奖⼈员中奖⼈员信息在右侧公⽰区域展⽰，最新中奖⼈员展⽰在最上⽅设置了⼀部分误点、误操作提⽰，以及抽奖完成提⽰等已优化，⽀持万⼈级抽奖做了⼀个抽奖简单演⽰，演⽰GIF如下：实现代码如下，按需⾃取，转载请备注出处：'申明Flag、d、e三个模块变量，跨进程引⽤，实现滚动和抽奖数据传递Dim Flag As Boolean '屏幕停⽌滚动并抽奖的判断参数Dim d As Object '将随机抽取的中奖⼈员按⾃增键储存Dim e As Object '将随机抽取的中奖⼈员按原键储存Dim dict_id As Object '本轮参与抽奖⼈员⼯号Sub 重置()'清空上次抽奖内容，将⼈员名单复制到辅助列Application.ScreenUpdating = False '屏幕刷新禁⽤，不展⽰清空数据过程Sheets("抽奖界⾯").SelectSheets("抽奖界⾯").Range("E2") = 0Sheets("抽奖界⾯").Range(Range("B6"), Range("F15")).ClearContentsSheets("抽奖界⾯").Range(Range("J3"), Range("P3").End(xlDown)).ClearContentsSheets("⼈员名单").SelectSheets("⼈员名单").Range(Range("H3"), Range("H3").End(xlDown)).ClearContentsSheets("⼈员名单").Range(Range("A3"), Range("A3").End(xlDown)).Copy _Sheets("⼈员名单").Range("H3")Sheets("抽奖界⾯").SelectApplication.ScreenUpdating = True '屏幕刷新开启，为滚动抽奖做准备End SubSub 准备() '准备开始抽奖，灰⾊区域滚动更新中奖⼈员Set d = NothingSet e = NothingSet dict_id = NothingFlag = Truetext_level = Sheets("抽奖界⾯").Range("A2") '抽取奖项lottery_target = Sheets("抽奖界⾯").Range("D2") '抽奖次数⽬标'判断该奖项是否已经抽取过，当变更了抽取奖项时，⾃动重置已抽取次数为0If Application.WorksheetFunction.CountIfs(Sheets("抽奖界⾯").Range("J:J"), _text_level) = 0 ThenSheets("抽奖界⾯").Range("E2") = 0End If'判断剩余参与⼈数是否⾜够抽奖If Sheets("抽奖界⾯").Range("F2") < Sheets("抽奖界⾯").Range("C2") ThenMsgBox ("剩余参与⼈数不⾜，请修改抽奖参数或停⽌抽奖！！！")Exit SubEnd If'判断该奖项是否已抽取完，提⽰操作⼈员是选择加抽还是变更抽奖奖项If Sheets("抽奖界⾯").Range("E2") >= lottery_target ThenQS_Return = MsgBox(text_level & "抽奖" & lottery_act & "已完成！" & _Chr(10) & "要变更奖项请选择是" & Chr(10) & "要再次抽取" & text_level & _"请选择否", vbYesNo + vbQuestion, "提⽰")If QS_Return = vbYes ThenMsgBox (text_level & "请重新选择奖项，输⼊抽奖次数和单次抽奖⼈数！")Exit SubElseSheets("抽奖界⾯").Range("D2") = Sheets("抽奖界⾯").Range("D2") + _Sheets("抽奖界⾯").Range("E2")End IfEnd If'清空抽奖滚动区域Sheets("抽奖界⾯").Range(Range("B6"), Range("F15")).ClearContentsnum_agent = Sheets("抽奖界⾯").Range("F2")'字典赋值Set dict_id = CreateObject("Scripting.Dictionary")For i = 1 To num_agentdict_id(i) = Sheets("⼈员名单").Cells(i + 2, 8)Nextnum = Sheets("抽奖界⾯").Range("C2")'持续滚动抽奖界⾯，等待点击抽奖后停⽌DoSet d = CreateObject("Scripting.Dictionary")Set e = CreateObject("Scripting.Dictionary")For j = 1 To numDoa = Int(Rnd * num_agent) + 1Loop Until Not e.Exists(a)d(j) = dict_id(a)e(a) = dict_id(a)NextFor m = 1 To 10For n = 1 To 5If n + (m - 1) * 5 > num ThenExit ForElseSheets("抽奖界⾯").Cells(m + 5, n + 1) = d(n + (m - 1) * 5)DoEvents '将控制权传给操作系统，实现滚动的同时可以点击抽奖按钮，⾮常关键！！！End IfNextNextLoop Until Flag = FalseEnd SubSub 抽奖()If Not Flag ThenMsgBox ("请先点击准备按钮，再开始抽奖！！！")Exit SubEnd IfFlag = False '停⽌抽奖滚动，中奖⼈员确定Set f = CreateObject("Scripting.Dictionary")text_level = Sheets("抽奖界⾯").Range("A2")Sheets("抽奖界⾯").Range("E2") = Sheets("抽奖界⾯").Range("E2") + 1 '已抽取次数+1lottery_act = Sheets("抽奖界⾯").Range("E2") '已抽取次数，后⾯需要判断是否提⽰抽奖完成num = Application.WorksheetFunction.CountA(Sheets("抽奖界⾯").Range("B6:F15"))num_exist = Sheets("抽奖界⾯").Range("G2")'将新中奖⼈员信息添加⾄公⽰区域末尾For i = 1 To numSheets("抽奖界⾯").Cells(2 + num_exist + i, 10) = text_levelSheets("抽奖界⾯").Cells(2 + num_exist + i, 11) = lottery_actSheets("抽奖界⾯").Cells(2 + num_exist + i, 12) = d(i)Sheets("抽奖界⾯").Cells(2 + num_exist + i, 13) = _Application.WorksheetFunction.VLookup(d(i), Sheets("⼈员名单").Range("A:E"), 2, False)Sheets("抽奖界⾯").Cells(2 + num_exist + i, 14) = _Application.WorksheetFunction.VLookup(d(i), Sheets("⼈员名单").Range("A:E"), 3, False)Sheets("抽奖界⾯").Cells(2 + num_exist + i, 15) = _Application.WorksheetFunction.VLookup(d(i), Sheets("⼈员名单").Range("A:E"), 4, False)Sheets("抽奖界⾯").Cells(2 + num_exist + i, 16) = _Application.WorksheetFunction.VLookup(d(i), Sheets("⼈员名单").Range("A:E"), 5, False)Next'将所有中奖⼈员存放⾄字典For i = 1 To num_exist + numIf i <= num Thenf(i) = Sheets("抽奖界⾯").Range(Cells(num_exist + i + 2, 10), _Cells(num_exist + i + 2, 16))Elsef(i) = Sheets("抽奖界⾯").Range(Cells(i + 2 - num, 10), Cells(i + 2 - num, 16))End IfNextSheets("抽奖界⾯").Range(Cells(3, 10), Cells(num_exist + num + 3, 16)).ClearContentsSheets("抽奖界⾯").[J3].Resize(f.Count, 7).Value = _Application.Transpose(Application.Transpose(f.items))'奖项抽取完成后提⽰⼈员变更参数If lottery_act = Sheets("抽奖界⾯").Range("D2") ThenMsgBox (text_level & "抽取" & lottery_act & "次已完成，请变更抽奖奖项和次数")End If'更新待抽奖⼈员名单，实现不重复抽奖num_agent = Sheets("抽奖界⾯").Range("F2")Application.ScreenUpdating = False '屏幕刷新禁⽤，不展⽰清空数据过程Sheets("⼈员名单").SelectFor Each Key In edict_id.Remove (Key)NextSheets("⼈员名单").Range(Range("H3"), Range("H3").End(xlDown)).ClearContentsSheets("⼈员名单").[H3].Resize(dict_id.Count, 1).Value = _Application.Transpose(dict_id.items)Sheets("抽奖界⾯").SelectApplication.ScreenUpdating = True '屏幕刷新开启，为下⼀轮滚动抽奖做准备End Sub功能实现思路：通过随机函数Rnd产⽣[0,1)的随机数，再乘以当前参与⼈数放⼤，实现随机抽奖通过字典的Exists⽅法判断是否重复，实现去重抽奖定义模块变量，实现⼈员滚动和抽奖的分离DoEvents语句将控制权传给操作系统，实现滚动的同时可以点击抽奖按钮，是实现抽奖屏幕滚动更新的关键最初以遍历的⽅式回填数据，发现参与⼈数上万时明显卡顿，改⽤字典的items⽅法回填数据（⼀维数据回填到列：Application.Transpose(dict.items)，⼆维数据回填到列：Application.Transpose(Application.Transpose(dict.items))）。

怎么在excel2013中制作一个抽奖系统

怎么在excel2013中制作一个抽奖系统
推荐文章
Excel2013表格中如何模拟一个随机抽奖系统热度：Excel2013如何制作随机抽奖系统热度：交通系统员工入党申请书范本热度：全省工商系统党风廉政会议讲话热度：电力系统入党申请书热度：目前人们对办公自动化软件Office的功能只用了它的一小部分功能 ,大部分功能因不会用或不能直接用而没有用到。

为了发挥Office的强大功能 ,提高办公自动化的效率 ,多掌握一些Office的操作技巧 ,可达到事倍功半的效果。

下面小编就教你怎么在excel2013中制作一个抽奖系统。

excel2013中制作一个抽奖系统的方法：
①打开Excel，参与抽奖的人员名单已经制作好了，我们直接在F2单元格输入：=INDIRECT("d"&INT(RAND()*13+2))
②公式的意义我稍后为大家说明，回车按下，得到一个人员的名字：黄博文。

③选中A：D列，单击菜单栏--条件格式--新建规则选项。

④选择最后一个规则类型，使用公式确定要设置格式的单元格，输入公式：=$D1=$F$2,点击格式按钮。

⑤设置单元格格式，也就是中奖人员在名单册中的现实方式，与其他人进行区分。

⑥完毕，做为恒大勇夺亚冠冠军的一员，黄博文中奖。

我们按下F9键刷新，就会重新抽奖。