电脑教程
位置:首页>> 电脑教程>> office教程>> 如何利用 excel 来制作一个简单的抽奖小程序

如何利用 excel 来制作一个简单的抽奖小程序

  发布时间:2022-10-26 11:26:06 

标签:excel制作抽奖小程序

今天就和大家分享下如何用Excel来制作一个简单的抽奖小程序,首先我们来看下最终效果:

 如何利用 excel 来制作一个简单的抽奖小程序

想做出这样的一个抽奖模型其实并不难,所用到的只有indirect、counta和randbetween3个函数公式以及一点vba宏的知识。我们甚至可以不用下面的开始和结束按钮,不加宏都可以制作出来一个简单的抽奖模型,具体怎么做呢?为大家来揭秘一下。

首先,我们将需要抽奖的名单填充到A列,然后选择一定区域合并单元格将来显示抽奖结果,这个可以根据自己的审美喜好来调整。 

如何利用 excel 来制作一个简单的抽奖小程序 

第二步,在抽奖结果单元格填充公式:=INDIRECT("a"&RANDBETWEEN(2,COUNTA(A:A))),然后隐藏A列。 

如何利用 excel 来制作一个简单的抽奖小程序 

这个时候你会发现,我们按住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 来制作一个简单的抽奖小程序的下载地址:


     

0
投稿

猜你喜欢

  • word文档中如何插入不常见的符号方法1打开word文档,依次点击“插入”——“符号”——“其他符号”。    2、
  • 保留小数点后多少位有效数字,几乎是每个科研人员必须面对的问题,但是你真的会用Excel“真正”保留小数点后两位有效数字吗?也许你会说,不就是
  • Excel中的INDEX函数是用来“返回表或区域中的值”或“对值的引用”。今天,小编就教大家在Excel中Index函数的使用技巧。Exce
  • 在excel中录入数据时因为默认的单元格行高和列宽都很小,往往会出现输入的多行文字显示到其他单元格位置,下面以speedoffice为例了解
  • 表亲们好啊,昨天和大家分享了一个带合并单元格的数据查询技巧。在技巧的最后,有一个查询演示动画,选择查询条件的时候,数据区域会自动高亮显示:这
  • 很多用户在使用win10系统时都会发现一个问题,即win10的暗模式并不理想,但是我们可以使用自己的设置使暗模式更好~1、打开Win10深色
  • 有时由于没有来得及保存文档就出现Word自动关闭的情况,对此,未保存的文档将会被丢失。除非我们设置了“自动保存”功能。今天小编就与大家分享一
  • 在办公中会制作许多超长的excel表格,这些表格可能会打印许多张纸,但是表头只有一个。为了更好的预览,通常会设置每页都打印表头部分。本文图文
  •                WPS演示中控件工具变成灰色
  • Excel中经常有函数文本转数值的需求,函数文本具体该如何转换成数值呢?其实方法很简单,下面是由小编分享的excel 函数文本转数值的方法,
  • 在家庭人口统计任务中,有时要求在人口登记表中去除去世、军人、教师等身份的成员,统计每户的总人数(图1)。由于源数据时常处于更新或变动中,手工
  • word空白页怎么删都删不掉怎么办呢?想要删除空白页,针对三种常见的空白页删除操作,以下有详细的解答,一起来看看吧!1、表格空白页表格造成的
  • 用下面的VBA代码可以同时删除工作簿中所有工作表中的批注:1.按Alt+F11,打开VBA编辑器。2.在代码窗口中输入下列代码Sub Rem
  • 在wps文字中设置倒影字体的方法:1、在“插入”栏找到“插入艺术字”,然后在艺术字框内输入你想要输入的文字,这里就以“WPS字体倒影”来示范
  • 可能有人说了利用第三方工具软件吧,那是另一话题。在这里笔者要告诉大家的是:批量转换文档格式不求“人”,完全可以借助Word本身自带的功能就可
  • 在word中粘贴文本时会连同文本的字体等格式一起复制到目标位置,因此,当从其他软件复制或要复制的文本格式与粘贴位置格式不一样时,可通过wor
  • 在我们对字体的操作(放大缩小)的过程中,会遇到放大字体后,字体显示不完整,只显示一部分,另外一部分缺失的现象.那么,我们怎么解决这一问题呢?
  • 许多小型合作伙伴喜欢对硬盘进行分区,但分区后发现太多分区很麻烦。查找要存储的文件很不方便。他们通常找不到文件位置,但不知道如何合并分区。今天
  • word文档中弄封面的步骤如下:步骤一: 快速制作wps封面。在wps中,找到章节选项,点击进入,我们可以看到wps章节的所有选项。找到封面
  • word2013中更改图表类型和颜色的步骤如下:步骤一:例如Word文档中插入了如下图所示的图表。    更改图表类型步
手机版 电脑教程 asp之家 www.aspxhome.com