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

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

成果展示

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

效果展示

准备工作

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

抽奖名单

RANDBETWEEN函数及VLOOKUP函数

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

RANDBETWEEN函数的语法规则：

=RANDBETWEEN（bottom,top）

=RANDBETWEEN（最小整数,最大整数）

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

=RANDBETWEEN(1001,1010)

或者

=RANDBETWEEN(A2,A11)

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

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

图输入公式和F9刷新

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

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

如下图。

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

感谢您的阅读。