
“彩票抽屉”是在Excel平台下使用VBA开发的彩票抽奖程序,非常适合用于年会等活动场景. 该程序的特点是它提供了非常丰富的用户自定义功能,包括奖励名称,人数和每次抽奖人数的设置;背景图片,背景音乐,字体样式,字体颜色以及抽奖界面中奖名单的显示位置;另外,它还包括辅助功能,例如重复删除彩票列表,从指定列表中进行筛选以及输出彩票结果. 在最新版本中,添加了用于绘制图片,和手机号码的遮罩保护功能.


[使用前的设置]
此软件是ExcelVBA程序. 打开Excel工作簿时,需要启用宏才能使其正常工作. 如果未正确启用宏,则您看到的只是一张带有测试名称数据列表的普通表,您将无法获得软件的正常功能.
[软件说明]
第一部分是导入列表或图片:
在正确启用宏的情况下打开工作簿文件“彩票V2.0.xls”(尝试避免同时与其他工作簿一起运行),并且将显示以下程序界面:


此界面包含两个页面. 默认页面是[文字绘制]模式,顶部可以切换到另一种[图片绘制]模式.
在文本彩票页面中,单击[浏览]按钮以从本地保存的Excel文件导入奖池列表. 要求奖池信息必须安排在包含列表的此Excel的A列中. 如果A列包含标题行(标题行不用作彩票),则需要选中[Include Title Row]复选框.
在此版本中,支持显示18个英文数字字符或9个中文字符的列表信息(具体长度取决于所选字体). 如果列表中没有普通人的名字,并且长度超过4个汉字或8个英文字符,请选中[超长字符],以便程序自动调整布局. 该程序还保留了自动判断功能. 如果不选择此选项,程序将在某些情况下提醒用户并自动检查.
以下列表的删除功能主要用于在现有列表的基础上排除某些信息. 例如,某彩票完成后(“一次完成”,则意味着用户设置的所有奖品均被提取,程序完成操作完成),从中删除获奖者的姓名. 原始列表,您可以执行此操作.
类似地,单击[浏览]按钮以选择要删除的人员列表,这也需要放置在A列中. 如果不需要排除,可以将其留空.
完成上述设置后,单击[导入]按钮,程序将自动导入(包括剔除)列表,并自动清除重复信息,仅保留一条数据记录.
如果单击[取消]按钮,程序将跳过导入过程,并自动将程序中的默认测试名称数据替换为彩票奖池信息.
这里有个提示. 如果用户在完成列表导入后要在打开程序后使用此列表并且不想再次导入它,则可以在这次导入列表后在后台打开任何作业. 单击簿,然后切换到要保存程序的工作簿. 这样,下次打开该程序时,列表已保存在程序中. 在[导入彩票列表]窗口中,单击[取消]按钮,直接跳至下一步.
在顶部标签页中选择[图片绘制]模式,将显示以下界面:


单击[浏览]按钮,选择需要用作奖池信息的图片的存储文件夹(请注意,您无需选择图片文件,只需选择存储目录). 图片的长度和宽度没有特殊要求. 如果您考虑美观,可以预先将其修改为相同的长宽比. 图片的文件大小不能太大,否则会影响绘图过程中的显示速度. 建议不要超过800K.
单击[选择]按钮将图片信息导入程序. 为了节省资源,该程序将在程序运行期间调用这些图片的存储位置,因此在程序运行期间,请勿更改所使用图片的目录位置和文件名.
选项配置的第二部分:
上述导入操作完成后,您将进入下一个界面:

选项配置界面包括以下部分: 奖励设置excel 抽奖程序,列表显示位置,一次性抽奖,超长字符设置以及界面辅助选项.
奖励设置:
您可以自定义每个奖项的基本名称,中奖次数和每次抽奖次数(即,屏幕滚动显示的人数. 每次暂停时都会抽奖. 假设总共有21个奖品名额,每次设置一次. 如果您抽5人,则需要抽5次才能获得所有奖项. 每次抽奖次数从1到5. 如果中奖者总数超过奖池总数,则会出现自动错误提示.

奖励级别最多支持7个级别. 当运行程序时,彩票将从数字较大的级别开始. 每个级别抽奖的人员将不会进入下一个级别抽奖的奖池. 例如,如果用户选择级别1,级别2和级别3,则提取将从三级开始(默认名称为“二等奖”,可以自定义和修改),提取后,第二级(默认名称为“一等奖”),依此类推.
列表显示位置:
您可以在彩票界面中设置中奖列表的屏幕显示位置. 设置效果如下图所示:

一次抽奖:
如果您不需要中间流程,则无需在屏幕上实时显示获奖者. 希望您能一次提取所有奖品并导出获奖名单. 这样,在抽奖期间将仅执行一次抽奖,以立即生成完整的获胜名单.
超长字符设置:
此程序将超过8个英文数字字符或4个中文字符的文本长度定义为“超长字符”. 如果在上一个程序界面中选中了[超长字符]选项,则在此界面中,此某些选项将从灰色变亮以进入可选状态.
如果您的奖池信息是号或手机号,则可以选择相应的选项,否则请选择“其他”,程序将自动确定适用的类型. 区别在于程序会根据文本长度调整字体大小和布局.

如果您选择两种类型的ID卡或手机号码,该程序还将提供[使用遮罩]功能供选择. 使用掩码意味着可以用星号代替某些数字信息,以保护个人隐私. 例如,使用掩码后的移动电话号码13012345678将在屏幕上显示130 ***** 5678. 在最终导出结果列表中,将显示完整的编号信息.
界面可访问性选项:
【背景图像】您可以在彩票屏幕中选择背景图像.
【背景音乐】您可以选择在绘制过程中将自动播放的音乐,然后调用Windows MediaPlayer进行播放. 请确保您的系统中已安装WindowsMediaPlayer. 支持MP3,WAV,MID,WMA等主流音乐格式excel 抽奖程序,支持同时选择多种音乐. 勾选[循环播放]以支持循环播放.
[选择字体]可以选择在彩票屏幕界面中显示的文本的字体,以及标题部分和列表部分中使用的字体颜色(单击颜色块以在调色板中选择不同的颜色).
完成上述设置后,单击[确定]按钮进入彩票界面. 在此之前,程序将询问是否保留上述配置. 如果允许保留,则该程序将上述配置信息保留在该计算机系统中,并且在下次运行该程序时将自动导入,而无需用户重置它. (如果您选择多种音乐作为背景音乐,则需要手动重新选择每个文件,否则先前选择的第一个音乐将用作背景)
彩票界面的第三部分:
配置后,进入以下彩票界面:

彩票屏幕底部的状态栏将显示操作提示. 按任意键开始人员列表的随机滚动,再按任意键进行一次提取,中奖者的姓名会实时显示在屏幕和状态栏上,并且屏幕显示最多可支持20人(号和其他长号)仅显示10个人的字符列表,如果超过20,则屏幕上每20个人显示一次. 然后再次按任意键继续抽奖.
标题区域和状态栏将显示当前选择的奖励名称. 彩票界面的显示窗口可以最大化或窗口化. 最大化后,字体将相应放大.
每个奖项的提取完成后,将在程序路径下自动生成一个名为[Drawing Results]的Excel文件,用户可以在该文件中查看特定的绘图结果.
下载地址:
本文来自电脑杂谈,转载请注明本文网址:
http://www.pc-fly.com/a/ruanjian/article-268274-1.html
向第一财经致敬