如何制作excel抽奖小程序？

excel如何 *** 抽奖小程序？

大家好，我是头条号:Excel自学成才

抽奖小程序要求结果是随机的。Excel中有随机数函数rand()和randbtwen。我们分为三种情况，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来实现以下生产过程。首先，我们打开VBA编辑器，输入以下三个模块的代码

因为在代码中，我们对D1单元格有随机数，所以在表中，输入公式是：=index(a:a,d1)

然后我们插入三个按钮，其中内定按钮隐藏一点，分别绑定开始。因此，内定代码

此时 *** 完成，当我们正常点击开始，抽奖结束时，是正常的

当我们提前点击内定按钮时，然后点击开始。最后，100%的抽奖结果是作者本身

由于VBA代码 *** 入，表格需要单独存储，以将格式更改为xl *** 格式的文件。

这是三个Excel用来 *** 抽奖的小程序技巧

标题号:Excel自学成才，主页有更多精彩内容~