如何利用Excel制作抽奖小程序?

2020-09-21 14:49:13 31点赞 238收藏 6评论

今天和大家聊一个有趣的课题,利用Excel实现抽奖功能。本文的知识点涉及RANDBETWEEN函数和VLOOKUP函数、Excel表格的美化以及简单的宏录制和使用,实现抽奖功能不是目的,目的是通过有趣的小案例让大家加深对相应知识点的理解,举一反三,用到自己相应的工作环境中。

成果展示

首先来看成果,点击“点击抽奖”,即可实现抽奖功能,如下图。

效果展示效果展示

准备工作

准备一份抽奖名单,如下图。

抽奖名单抽奖名单

RANDBETWEEN函数及VLOOKUP函数

本文中实现抽奖共能的就是利用随机数函数RANDBETWEEN函数产生一个随机数,然后在利用产生的随机数查找对应的中奖者的姓名。

RANDBETWEEN函数的语法规则:

=RANDBETWEEN(bottom,top)

=RANDBETWEEN(最小整数,最大整数)

对应图1中的序号,让RANDBETWEEN函数从序号1001至1010中产生一个随机的整数,在单元格中输入:

=RANDBETWEEN(1001,1010)

或者

=RANDBETWEEN(A2,A11)

这两个公式差别是一个使用使用具体数值,另一个引用的单元格。

键盘上的F9键,发现这个数会发生变化,如下图。

图输入公式和F9刷新图输入公式和F9刷新

然后在下方单元格中使用VLOOKUP函数查找随机数对应的值。如果对于VLOOKUP函数不熟悉的同学可以参考这篇文章《Excel中的查找利器,Vlookup函数还是Index搭配Match函数?

=VLOOKUP(E4,$A$2:$B$11,2,0)

如下图。

使用VLOOKUP函数查找随机数相应的值使用VLOOKUP函数查找随机数相应的值

然后再按键盘上F9键,发现随机数和中奖者都发生的随机的变化,至此,抽奖的核心功能就实现了,原理就是用RANDBETWEEN函数产生一个随机数,然后用VLOOKUP函数查找随机数对应的姓名。

点击Excel窗口左下角加号新建一个工作表,作为展示页面,如下图。

 新建工作表 新建工作表

然后在新建的工作表中单元格中输入相应内容,例如我这里在单元格B3输入的是“恭喜”、单元格B7“您中奖了!”如下图。

然后再单元格B5中输入公式:

=VLOOKUP(RANDBETWEEN(1001,1010),Sheet1!$A$2:$B$11,2,0)

这个公式就是VLOOKUP函数嵌套了RANDBETWEEN函数,步骤参考下图。

函数的嵌套函数的嵌套

表格的美化

通过两个函数的的使用,实现了抽奖的基本功能,但是如果拿出去用的话还是略显不好看,所以我们需要对表格进行美化,使之更像一个抽奖的程序。

首先选择页面布局,点击背景,选择从文件,插入一张从网上下载的图片,如下图。

插入背景图片插入背景图片

我们发现图片是平铺了整个工作表。

使用快捷键CTRL+A全选整个单元格,右键点击单元格格式,选择填充,在图案样式中选择纯白图案填充。如下图。

遮住背景遮住背景

再选择需要展示的区域,右键单击选择单元格格式,选择填充,点击无颜色,然后点击确定,我们发现选择的区域就出现了填充的背景,将文字颜色改为白色,通过调整行高和列宽,将文字显示在图片中间,调整文字大小,这样就完成了美化。如下图。

显示背景显示背景

最后调整完的结果如下图。

成果图成果图

按键盘上F9,中奖者姓名也发生了改变。

宏的录制和使用

如果每次都需要按键盘上F9来抽奖显得有点麻烦,因此我们通过Excel中的功能将按键盘上F9刷新改为一个按钮。

在菜单栏选择开发工具,点击录制宏,记住宏名称或自己设定,点击确定,然后按键盘上F9,发现中奖人员发生变化后点击停止录制,这样就完成了宏的录制。

录制宏录制宏

在菜单栏点击插入,选择形状,选择圆角矩形,在页面下方画出圆角矩形并更改其格式,是圆角矩形与页面协调一些。

右键单击圆角矩形,选择编辑文字,在圆角矩形中输入点击抽奖并调整字体大小和格式。

右键单击圆角矩形,点击指定宏,选择前面录制的宏,点击确定,这样就将圆角矩形和之前录制的宏关联起来了。

点击圆角矩形,即可发现中奖者姓名发生了改变。

步骤如下图。

添加按钮添加按钮

由于表格中启用了宏功能,所以在保存表格时需要选择启用宏的工作薄。

至此,一个使用Excel制作的抽奖小程序就制作完成了。最后还是那句话,实现功能不是目的,目的是通过有趣的小案例让大家加深对相应知识点的理解,举一反三,用到自己相应的工作环境中。

感谢您的阅读。

展开 收起

Office 365 家庭版

Office 365 家庭版

278元起

微软 Microsoft 365 家庭版 电子秘钥 | 1年订阅 多至6人 正版高级Office应用 1T云存储 PC/Mac/移动设备通用

微软 Microsoft 365 家庭版 电子秘钥 | 1年订阅 多至6人 正版高级Office应用 1T云存储 PC/Mac/移动设备通用

339元起

微软 Microsoft 365 个人版 电子秘钥 | 1年订阅 1人使用 正版高级Office应用 1T云存储 PC/Mac/移动设备通用

微软 Microsoft 365 个人版 电子秘钥 | 1年订阅 1人使用 正版高级Office应用 1T云存储 PC/Mac/移动设备通用

309元起

微软 Microsoft 365 家庭版 彩盒包装 | 1年订阅 至多6人 正版高级Office应用 1T云存储 PC/Mac/移动设备通用

微软 Microsoft 365 家庭版 彩盒包装 | 1年订阅 至多6人 正版高级Office应用 1T云存储 PC/Mac/移动设备通用

339元起

微软 Office 家庭和学生版 2019 电子秘钥版 | 正版授权 含Word/Excel/PPT 适用Windows 10 PC/Mac 非商用

微软 Office 家庭和学生版 2019 电子秘钥版 | 正版授权 含Word/Excel/PPT 适用Windows 10 PC/Mac 非商用

699元起

微软 Office365(现已升级Microsoft365)家庭版正版一年新订或续费 6用户多设备 365 家庭版在线发送+电子发票

微软 Office365(现已升级Microsoft365)家庭版正版一年新订或续费 6用户多设备 365 家庭版在线发送+电子发票

289元起

正版WPS超级会员 / WPS会员 / WPS稻壳会员 兑换码 月卡/年卡 PDF转Word WPS 超级会员1年

正版WPS超级会员 / WPS会员 / WPS稻壳会员 兑换码 月卡/年卡 PDF转Word WPS 超级会员1年

128元起

微软(Microsoft)Office365 个人版 正版办公软件 可供1用户5设备 一年新订或续费 365个人版 在线发送

微软(Microsoft)Office365 个人版 正版办公软件 可供1用户5设备 一年新订或续费 365个人版 在线发送

259元起

正版WPS超级会员 / WPS会员 / WPS稻壳会员 兑换码 月卡/年卡 PDF转Word WPS会员1年

正版WPS超级会员 / WPS会员 / WPS稻壳会员 兑换码 月卡/年卡 PDF转Word WPS会员1年

69元起

用友财务软件 好会计普及版 畅捷通T3在线版会计记账软件 专业版30天试用

用友财务软件 好会计普及版 畅捷通T3在线版会计记账软件 专业版30天试用

498元起

用友财务软件 好会计标准版 畅捷通T3在线版会计记账软件 专业版30天试用

用友财务软件 好会计标准版 畅捷通T3在线版会计记账软件 专业版30天试用

878元起

用友财务软件 好会计专业版 畅捷通T3在线版会计记账软件 专业版30天试用

用友财务软件 好会计专业版 畅捷通T3在线版会计记账软件 专业版30天试用

378元起

用友财务软件 好会计专业版追加1个会计角色/年 畅捷通用友T3网页版 专业版试用30天

用友财务软件 好会计专业版追加1个会计角色/年 畅捷通用友T3网页版 专业版试用30天

300元起

微软 (Microsoft) Office 365 家庭版/个人版 激活密钥 1年订阅 正版办公软件 office 365个人版一年【支持5台设备】

微软 (Microsoft) Office 365 家庭版/个人版 激活密钥 1年订阅 正版办公软件 office 365个人版一年【支持5台设备】

309元起

用友财务软件 好会计专业版追加账套/年 畅捷通用友T3网页版 专业版试用30天

用友财务软件 好会计专业版追加账套/年 畅捷通用友T3网页版 专业版试用30天

50元起

用友财务软件 好会计标准版追加账套/年 畅捷通用友T3网页版 专业版试用30天

用友财务软件 好会计标准版追加账套/年 畅捷通用友T3网页版 专业版试用30天

20元起
6评论

发表评论请 登录
  • 最新
  • 最热
评论举报

请选择举报理由

相关好价推荐
查看更多好价

相关文章推荐

更多精彩文章
更多精彩文章
天猫超级红包
距结束::
天猫双11超级红包 每天领3次 金额可叠加
红包按钮
最新文章 热门文章
238
扫一下,分享更方便,购买更轻松