关于问题excel 怎么制作抽奖小程序？一共有 2 位热心网友为你解答:
【1】、来自网友【葡萄城 GrapeCity】的最佳回答：
抽奖效果
下面我们来看一下怎么制作吧！
抽奖公式
将我们的名单输入名单列，然后选定一个单元格输入以下公式
=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 列中的位置要比非空单元格多一）
扩展应用
我们将名单换成菜单，就可以决定每天要吃什么啦，从此告别选择困难症~
随机点菜
【2】、来自网友【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 用来制作抽奖的小程序技巧
