抽奖内定阿姨

为了帮到她，我做了一个 “内定” 的Excel抽奖小工具.....

某家公司有一个传统，每年圣诞节夜都会举办晚会，并举行抽奖。抽奖的规矩是这样的：每个员工都缴纳十元美金做为基金...

兰色以前收藏的一篇很感人的正能量文章：

某家公司有一个传统，每年圣诞节夜都会举办晚会，并举行抽奖。抽奖的规矩是这样的：每个员工都缴纳十元美金做为基金，全公司共有三百人，换句话说：共能募集到三千美金；而被抽中的幸运儿，就可以将这些钱全抱回家。

抽奖当天，办公室里洋溢着热闹的气氛，每个人纷纷在纸条上写下自己的名字，投进抽奖箱中。但是，一个年轻男子下笔时却犹豫了。因为他想到，公司的清洁阿姨体弱多病的儿子最近要开刀，但她却没有钱支付手术费用，让她非常烦恼。于是，尽管知道抽中的机会渺茫，只有三百分之一的机会，但男子还是在纸条上，写下了那位清洁工的名字。

紧张的时刻来临了，老板在抽奖箱中翻搅了一番，最后抽出一张纸条，而男子也在心中不断地祷告：“希望清洁阿姨可以得奖”……接着，老板慎重宣布得奖人的名字，奇迹发生了——中奖的竟然真的是那位清洁工！办公室爆出欢呼声，清洁阿姨连忙上台领奖，几乎喜极而泣的她，感动地说：“我真是幸运！有了这一笔钱，我儿子就有希望了”！

晚会开始，男子一面想着这个“圣诞奇迹”，一面踱步到抽奖箱旁，他顺手摸出一张纸条，不经意地打开一看，上面写的竟然也是清洁阿姨的名字！男子非常吃惊，接连又抽出好几张纸条，上面的字迹虽然不一样，但写的名字全都相同——都是那位清洁阿姨的名字！男子的眼眶湿润了，他赫然明白，世界上真的有圣诞节的奇迹，只不过，奇迹不会从天上掉下来，而要人们自己去创造。

看到这儿，兰色也禁不住想帮帮这位阿姨，如果...有一款可以内定的幸运抽奖工具....

随机抽奖：

A列是员工姓名，其中包括阿姨。点击“开始抽奖”按钮让幸运名子快速变换，等喊停时点击“停止”按钮幸运奖就产生了。

内定阿姨中奖：

但如果我们先点击“开始抽奖“左侧的心形图形后，再点击”开始抽奖“ - 停止，结果显示是阿姨。

如果再点”开始抽奖“，又可以正常抽奖了（随机）

是不是很神奇？当然兰色不是为了秀，目的是想教会同学们制作 内定抽奖工具：

第1步：把公司员工所有名子存放在A列

第2步：插入一张抽奖的背景图片（百度可以搜到很多）到当前表格中

第3步：在工作表标签右键菜单上单击”查看代码“，在打开的新窗口（Visual basic for....）中左上角”工程“小窗口右键 - 插入 - 模块，然后把下面的代码复制到右侧的代码窗口中。点击保存并另存为"启用宏的Excel工作簿“格式。

Dim k As Byte

Dim k1 As Byte

Sub choustart()

k = 0

Do

[e2] = Range("a" & Application.RandBetween(1, Application.CountA(Range("A:A"))))

DoEvents

Loop Until k = 1

End Sub

Sub choustop()

k = 1

If k1 = 0 Then

[e2] = "阿姨"

k1 = 1

End If

End Sub

Sub 内定()

k1 = 0

End Sub

第4步：插入 - 图形 - 矩形(也可以插入文本框) ,选取图形并在编辑栏中输入公式 = $E$2。然后设置字体颜色、字号、对齐方式。

第5步：开发工具 - 插入 - 窗体 - 分别插入两个按钮（第一排第1个的按钮），在自动弹出的窗口中分别指定宏choustart 和choustop。（如果你的Excel没开发工具选项卡，可以百度你的Excel版本 + 开发工具可以找到显示方法）

第6步：插入 - 任意图形（比如心形），然后右键指定宏：内定

设置完成！

附表下载地址（百度网盘，请在电脑上下载）：https://pan.baidu.com/s/1snfZzsD

兰色说：VBA就是这么强大，无所不能。不但可以内定一个，也可以内定任意多个人，代码会稍复一些，这里兰色不再写了。

如果你是新同学，长按下面二维码 - 识别图中二维码 - 关注，就可以每天和兰色一起学Excel了。