随机抽奖程序代码(随机抽奖程序代码怎么写)

除了一岁时的鞭炮声，春风还为屠苏送去温暖；千门万户曈曈日，总把新桃换旧符。

——宋/王安石《元日》

马上就要年底了。一般在这个时候，每个公司基本上都开始准备年终聚餐和年终总结了。当然，必不可少的部分肯定是每个人都想要的彩票。

比如大奖:华为mate30

一等奖:电动自行车

。。。

幸运奖:50元现金。

我相信每个人都想要这些奖品。公司抽奖有很多种，例如，每个人有一张标签纸，放在纸箱上抽奖。今天，我将与您分享一个彩票小工具，它是由Excel实现的，但这需要一些VBA知识，您可以直接使用。

首先，看成品的效果。对于操作步骤，请单击“立即绘制”。当需要停止绘制时，单击停止绘制。最后，选择需要显示人员姓名的单元格，然后单击Save。

让我们告诉你这是如何实现的。

操作步骤:

1.首先，我们需要准备人员名单，其中包含【工号】和【人员名单】的信息，并统一放在【人员名单】工作表中，因为工号是唯一的，这样可以避免在抽奖中出现同名的人。

2.制作抽奖界面的模板。首先，我们设置每个获奖者的显示位置，在B2输入每个奖项的名称:B8，并添加相应的背景颜色。

然后为抽奖添加背景样式。

3.我们在单元格A1中输入以下公式:

RANDBETWEEN函数，随机生成区间2~COUNTA（人员列表！a:a）之间的随机数

因为我们的人员列表的第一行是标题，所以我们需要从2开始，返回的行数是随机的。

然后在单元格A2中输入公式:

公式运行后得到工号和人员姓名，Char（10）为换行符，起到自动换行符的作用。

4.制作一个彩票显示窗口，单击插入文本-水平文本框，输入文本，将字体颜色设置为红色，选择字体大小28，并将其设为粗体以删除文本框的边框和背景色。

再次单击显示窗口并输入公式:=A2。

也就是说，单元格A2的内容显示在文本框中，这意味着只要我们按F9，就可以看到名称已经更改。

5.插入彩票和保存彩票信息的窗口，单击【插入】，选择一个矩形，将边框设置为白色，并输入文本:开始彩票，字体大小24，字体:中文蔡赟。

分别插入三个矩形，命名为:立即绘制；停止抽奖；拯救彩票

6.编写VBA代码，右键单击工作表名称-查看代码，然后输入以下三个代码。

7.右键单击插入的矩形框，然后单击“指定宏”以指定上面设置的宏命令。

这样的抽奖小程序就完成了。我们只需要点击【立即开奖】，然后点击【停止开奖】，最后保存彩票的名称。

该方法主要是应用INDEX和RANDBETWEEN函数并结合VBA程序实现的。

原始数据文件可以从以下网络磁盘下载:

链接:

https://pan.baidu.com/s/19BsAE8M1IRk9MOxUG78FHQ

提取代码:hq3q

如果你觉得文章对你有帮助，希望你能帮我点赞和分享~，谢谢。

本文由彩虹Excel原创。欢迎关注带你一起学习！