excel怎么制作抽奖小程序？
▍⇈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制作抽奖程序有很多方法，在这里我给您提供三种。
1.INDEX+RANDBETWEEN函数
如下图，在D2单元格输入公式：=INDEX($A$2:$A$11,RANDBETWEEN(1,10)) 按F9刷新可实现抽奖效果。RANDBETWEEN(1,10)表示姓名的个数，从1-10个姓名之间随机抽取。
2.OFFSET+RANDBETWEEN函数
如下图，在D2单元格输入公式：=OFFSET($A$1,RANDBETWEEN(1,10),,) 按F9刷新可实现抽奖效果。
3.同时抽取多个不重复中奖者
首先在B2单元格输入：RAND()生成随机小数
然后在E2单元格输入公式：=INDEX($A$2:$A$11,MATCH(LARGE($B$2:$B$11,ROW(A1)),$B$2:$B$11,0)) 使用LARGE函数提取第1、第2、第3最大值，使中奖姓名不会出现重复。
▍❄excel怎么制作抽奖小程序？
公司马上就要开年会了，如果能够给公司做一个Excel抽奖小程序，是多么开心+装B的事情。
效果如下
首先我们来讲解下面三个函数
rand函数
=rand() 表示随机返回0到1之间的任何小数。当我们按下【F9】后，数字会发生变化。
具体如下图所示。
index函数
index函数为定位函数。
=index(数值范围，行号A，列号B)
表示的是，在数值范围内，查找出第A行，第B列的数据。
如图所示， 需要查找出范围A1:A7中，第3行，第1列的数据。函数表达式如下图。
rank函数
语法：
=rank(需要排序的数字, 排序范围,排序规则）
函数就表示，需要排序的数字在排序范围内，排名第几名。
排序规则参数：0 表示降序，1表示升序。
例如，降序排列中，求出23在第一列数据中，排名第几？
方法：= rand(A1,A1:A6,0)
抽签思路：
①利用Rand函数，使得名单都有对应的一个数值
②利用rank函数进行排名
③利用INDEX函数，查找名单，注意行号是随机变化的。因此返回的结果是随机的
因此，抽签函数的最终公式为
=INDEX(A2:B7,RANK(B2,B2:B7,0),1)， 其中B2输入公式为 = rand()
具体步骤如下图
第一步
第二步
美化后，最终的效果如下图
Excel抽奖小程序你学会了吗？
欢迎关注【雷哥office】，更多惊喜等你来。如果需要获取源文件，欢迎私信雷哥。
▍øexcel怎么制作抽奖小程序？
抽奖活动还在使用纸箱的原始方法抽奖？
每天纠结该吃什么？
【本文示例文件获取方法见文末】
其实，我们只需要借助EXCEL，就能快速制作一个抽奖小程序，轻松解决抽奖，吃放选择困难症的难题！国际惯例，先来看下效果吧！
下面我们来看一下怎么制作吧！
抽奖公式
将我们的名单输入名单列，然后选定一个单元格输入以下公式
=INDEX(B:B,RANDBETWEEN(3,COUNTA(B:B)+1))
抽奖光标制作
选中B列，设置条件格式，条件格式公式为：=B1=$D$5；填充颜色设置为绿色，字体颜色设置为白色
开始抽奖
按住F9键就可以开始抽奖啦，松开F9键就可以得到抽奖结果！
函数详解
INDEX
功能：返回表或区域中的值或对值的引用（通俗来说，就是告诉EXCEL你需要第几行第几列的数据，它给你找出来拿给你！）
语法：INDEX(引用数据区，第几行，[第几列]，[哪个区域])
抽奖公式：
INDEX(B:B,RANDBETWEEN(3,COUNTA(B:B)+1))，
就是返回B列第RANDBETWEEN(3,COUNTA(B:B)+1)行的数据
RANDBETWEEN：
功能：返回指定区间的一个随机整数
语法：RANDBETWEEN（最小值，最大值）
公式RANDBETWEEN(3,COUNTA(B:B)+1) 功能就是返回3~COUNTA(B:B)+1之间的一个随机整数
COUNTA：
功能：返回参数列表中非空的单元格个数
语法：COUNTA(区域1,[区域2])
COUNTA(B:B)+1功能就是返回 B列的非空单元格加一（这里+1是因为我们的名单是从B2单元格开始的，因此最后一个名字在B列中的位置要比非空单元格多一）
扩展应用
我们将名单换成菜单，就可以决定每天要吃什么啦，从此告别选择困难症~
示例文件获取
点击右上角红色按钮关注EXCEL精选技巧，然后点击技巧君头像，发送私信【随机抽奖】即可获取
关注EXCEL精选技巧 ，每天学习3分钟，坚持一个月，你将大不同！
▍﹠excel怎么制作抽奖小程序？
用EXCEL制作抽奖小程序，用RAND函数即可实现，可实现以下功能：
1、不重复中奖。
2、自动记录中奖者。
操作流程如下：
1、准备数据
排序公式=COUNTIFS($B$2:$B$25,">="&B24)
序号公式=IF(D25="√","",RAND())
中奖公式=IFERROR(VLOOKUP(C2,奖项汇总!$A:$B,2,0),"")
抽奖后，点击控件，记录中奖者。
2、最终效果
按F9键抽奖，实现中奖者不在参与抽奖，并记录中奖者名单。
记录控件代码：
Sub 按钮1_Click()
Dim rng
Dim B
Set rng = Sheets("奖项汇总").Range("A65536").End(xlUp)
B = rng.Row + 1
Sheets("奖项汇总").Cells(B, 1) = Sheets("抽奖").Range("H5")
Sheets("抽奖").Range("A1").Select
End Sub
希望以上回答剋帮到您，谢谢！记得关注我哦，更多干货小技巧分享！
------------------
推荐阅读：
有的网友劝乌克兰割地投降，有的网友说要抵抗到底，你是怎么看？
上一篇：怎样才能获取电信4G+信号？
下一篇： 金陵十二钗正册都有谁？
