鞭炮声已经一岁了，春风向图苏送去温暖。数以千计的家庭总是用新的桃子交换旧的符号。
-歌曲。王安石“元日”
年底快到了。通常，此时，每个公司基本上都准备好年终晚宴和年终总结。当然，必不可少的必须是每个人都想要的幸运大抽奖
例如，特别奖：华为mate30
一等奖：电动自行车
。 。
幸运奖：50元现金
我相信这些奖项，每个人都想获得。 公司彩票的种类很多，例如每个人一张标签，将其贴在纸箱上以抽签。今天，我将与您分享一个彩票小工具，并使用Excel来实现它。但这需要一些VBA知识，您可以直接使用。
首先查看成品效果。对于操作步骤，首先单击[立即绘制，然后单击]，当需要停止时，单击[停止绘制]，最后选择需要显示人员姓名的单元格，然后单击“保存”。
让我们谈谈如何实现这一目标。
步骤：
1、首先，我们需要准备人员清单。人员列表包括[职位ID]和[人员列表]的信息，它们在[人员列表]工作表中统一。由于作业号是唯一的，因此可以同时实现。避免在彩票中使用相同名字的人
2、要制作彩票界面模板，首先我们设置每个奖励人员的显示位置，在位置B2：B8中输入每个奖励的名称，并添加相应的背景颜色和其他内容
再次添加彩票中使用的背景样式
广告王府一百年没有孩子了，结婚半年后她怀了五个孩子！老太太：把我宠死了
3、我们在A1单元格中输入以下公式：
= RANDBETWEEN（2，COUNTA（人员列表！A：A））
RANDBETWEEN函数随机生成2〜COUNTA（人员列表！A：A）之间的随机数
因为[人员列表]的第一行是标题，所以我们需要从2开始并返回随机的行数
在单元格A2中输入公式：
= INDEX（人员列表！A：B，彩票系统！A1，1)＆ｃｈａｒ（10)＆INDEX（人员列表！A：B，彩票系统！A1,2
运行公式并获取职位编号和人员名称后，ｃｈａｒ（10)是换行符，它具有自动换行的作用
4、制作彩票显示窗口，单击以插入[文本]-[水平文本框]，输入文本，将字体颜色设置为红色，选择28种字体大小，加粗，删除边框和背景色文字框
再次单击显示窗口，然后输入公式：= A2
单元格A2的内容显示在文本框中。只要按F9，就可以看到名称已更改。
5、插入彩票并保存彩票信息窗口，单击[插入]，选择矩形，将边框设置为白色，不填充，输入文本：开始彩票，字体大小24，字体：Huawen Caiyun
分别插入3个矩形并命名：立即绘制；停止抽奖；保存抽奖
6、编写VBA代码，右键单击工作表名称-[查看代码]，输入以下三段代码
PrivateDeclarePtrSafe SubSleepLib“ kernel32”（Byval dwMillisecondsAsLong）'暂停64位系统
'PrivateDeclareSubSleepLib“ kernel32”（ByVal dwMillisecondsAsLong）'暂停32位系统
DimmarkAsBoolean
Sub立即开始（）
[A2] =“ = INDEX（人员清单！A：B，彩票系统！A1，1)＆ｃｈａｒ（10)＆INDEX（人员清单！A：B，彩票系统！A1，2)“
mark = True
DoWhilemark
DoEvents
睡眠50
ActiveSheet.Calculate
循环
EndSub
次停止彩票（）
mark = False
EndSub
子保存彩票（）
CH = [A1]
ActiveCell = [A2]
Sheets（“人员列表”）.Cells（CH，1) .EntireRow.ｄｅｌｅｔｅ
Application.EnableEvents = False
[A2] =“”
Application.EnableEvents =真
EndSub
7、然后右键单击插入的矩形，然后单击[指定宏]以分别指定上面设置的宏命令
完成了彩票小程序，我们只需要单击[立即抽奖]，然后单击[停止抽奖]按钮，最后保存幸运抽奖的名称。
此方法主要是通过将INDEX和RANDBETWEEN函数与VBA程序结合使用来完成的。
原始数据文件可以从以下网络磁盘下载：
链接：
提取代码：hq3q
如果您认为这篇文章对您有所帮助，希望大家都喜欢并分享它〜，谢谢
本文由Rainbow Excel原创，欢迎关注，并让您共同发展知识！