如何利用 excel 来制作一个简单的抽奖小程序
时间:2022-10-26 11:26:06
今天就和大家分享下如何用Excel来制作一个简单的抽奖小程序,首先我们来看下最终效果:
想做出这样的一个抽奖模型其实并不难,所用到的只有indirect、counta和randbetween3个函数公式以及一点vba宏的知识。我们甚至可以不用下面的开始和结束按钮,不加宏都可以制作出来一个简单的抽奖模型,具体怎么做呢?为大家来揭秘一下。
首先,我们将需要抽奖的名单填充到A列,然后选择一定区域合并单元格将来显示抽奖结果,这个可以根据自己的审美喜好来调整。
第二步,在抽奖结果单元格填充公式:=INDIRECT("a"&RANDBETWEEN(2,COUNTA(A:A))),然后隐藏A列。
这个时候你会发现,我们按住F9键,中奖结果就是发生改变。(可以把F9当成抽奖开关,长按一直刷新,松开就出结果),对于我们要求低的读者来说,已经是可以直接拿来用了。
为什么会有这种效果呢?我们来解释下=INDIRECT("a"&RANDBETWEEN(2,COUNTA(A:A)))这串公式的含义。
① COUNTA(A:A),计数作用,来数一下A列包括表头“姓名”以外非空单元格的数量,即有多少人参与抽奖(通过这个公式,不管之后姓名是增加还是减少,公式都不用再改)
② RANDBETWEEN(2,COUNTA(A:A)),在2到N直接随机取数(N为名单最后一个单元格的行数)
③ INDIRECT("a"&RANDBETWEEN(2,COUNTA(A:A)))即表示A?单元格的值,?就是RANDBETWEEN(2,COUNTA(A:A))的随机结果,也就是从A2到AN单元格随机选中一个单元格。(从A2开始是因为A1为表头)
F9单元格控制randbetween公式的刷新,所以我们可以制作出一个简单的抽奖程序。
如何利用 excel 来制作一个简单的抽奖小程序的下载地址:
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
word设置连续页码的方法步骤
如何在excel2010中按照分类进行合并计算
![](https://img.aspxhome.com/file/2023/5/a141355_0s.jpg)
word怎么设置任意页为第一页
win10系统2004版本无法使用快捷键怎么办?
![](https://img.aspxhome.com/file/2023/2/46932_0s.jpg)
Excel2007(2010)的单元格不做运算了
Win10 1909控制面板打开是空白怎么办?Win10 1909控制面板打开是空白解决方法
![](https://img.aspxhome.com/file/2023/5/48835_0s.jpg)
excel表格怎样将内容转换成图片
Win10电脑怎么安装打印机驱动?Win10安装打印机驱动方法
![](https://img.aspxhome.com/file/2023/8/51898_0s.png)
在word文档中怎么插入正确的注解?
![](https://img.aspxhome.com/file/2023/7/25327_0s.jpg)
Word2013怎么中.英语在线翻译
![](https://img.aspxhome.com/file/2023/5/20165_0s.jpg)
Win10系统怎么安装Office2007?Win10系统安装Office2007教程
![](https://img.aspxhome.com/file/2023/9/48749_0s.jpg)
如何保存Word文件
![](https://img.aspxhome.com/file/2023/4/23864_0s.jpg)
怎样将PPT文件转换为Word文档
![](https://img.aspxhome.com/file/2023/2/20452_0s.jpg)
超实用EXCEL数据透视表条件汇总,无需SUMIFS函数,制表统计必备
![](https://img.aspxhome.com/file/2023/4/a157144_0s.jpg)
Excel表格中的数字怎么上下居中
![](https://img.aspxhome.com/file/2023/0/a153960_0s.png)
Word图片导出的方法和步骤
![](https://img.aspxhome.com/file/2023/6/31546_0s.jpg)
word页眉样式怎么设置
![](https://img.aspxhome.com/file/2023/1/34631_0s.gif)
excel表格合计数据的方法步骤
Excel如何从身份证号中提取出生年月
怎么在word 2003从指定页开始插入页码
![](https://img.aspxhome.com/file/2023/1/18751_0s.jpg)