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自学成才，主页有更多精彩内容~

如何在PPT里面实现数字1-300的随机抽奖？

这个PPT随机抽奖的做法

第一，需要准备一份word文档，里面写上1-300的数字，记得的是word每一个数字都要作为一行，然后给每一个数字都选中标题1（建议可以在excel里面直接用填充柄，快速填充300个数字，复制到word里面，就更方便了）

我就以10个数字为例给来讲解下做法。

第二，做好了这份word的之后，保存在桌面后，关闭word。

第三，新建一份PPT，点击“文件”-“打开”-“浏览”，找到你放置的word文件的位置，打开它，就可以放那些数字放到PPT里面，一个数字一页。

但是有一点需要注意的是，一定要选择“所有文件”，不然就找不到那个word文件。

第四，选中其中一页，点击“视图”-“幻灯片母版”，进入那页后，只留下一个文本占位符，其他的删了，就留下那个写着“单击此处编辑母版标题样式”的，然后放好这个文本框的位置，放大里面的字体，在“开始选项”那里设置。都设置好后，点击“关闭母版视图”

第五，关闭后，选中所有的幻灯片，在“开始”选项那里的“版式”，找到我们刚刚设置的那页幻灯片，点击下它，就可以把所有页面就换成我们想要的版式了。

第六，非常重要的两步

1，选择所有幻灯片，在“切换”-“换片方式”，把点击鼠标时的勾去了，勾上“设置自动换片时间”。

2，在“幻灯片放映”-“设置幻灯片放映时间”，勾上这个选项“循环播放，按ESC键终止”。

这个时候你点击全屏播放或是按F5键播放，就是让幻灯片开始播放，你会看到每个数字在非常快的切换，就是抽奖。

当你按任意键盘上的一个数字键时，它就会停止在抽奖的号码，当你按空格键时，它就开始继续抽奖，跳动。

花了点时间给大家写的教程，希望对大家有帮助。