文件名称：Excel抽奖程序
文件大小：1.12MB
文件格式：RAR
更新时间：2016-02-03 14:55:22
Excel VBA 抽奖 乐透
这里只给大家提供一个部分免费（奖项数<=10时）的程序供参考。 其主要功能如下： 1、内置特等奖、一等奖~五等奖6个级别的奖项和1个自定义级别的奖项，抽奖顺序没有限制。 2、对于任意一等奖来说，可以一次抽取任意数量的奖项； 3、背景、界面用户可自行调整； 4、抽奖背景音乐用户可换； 5、可以在抽奖过程中显示中奖者的照片； 6、抽奖过程中可以显示用户所在的部门信息； 7、对于要求必须在场的抽奖，当中奖人不在场时可以做弃权处理； 8、抽奖结果立即存入Excel“抽奖结果”工作表中。 使用说明及注意事项 1、抽奖前请在Excel“工具”-“宏”-“安全性”中将宏的安全级别设置为低，然后关闭Excel重新打开，否则无法运行抽奖 程序。 2、本程序支持六个固定级别的奖项设置和一个自定义的奖项设置。 3、抽奖顺序有两种，即先小奖后大奖或相反。这个设置仅用于初始化《抽奖》工作表中的奖项设置，抽奖过程中需手动在《 抽奖》工作表中切换抽奖级别。 4、本程序支持两种抽奖方法：每次抽取一组中的全部名额，或每次抽取指定的若干名额。但是推荐一次抽取1个，因为大余一 个时只能显示最后一名中奖者的照片，且显示众多中奖者的名字时布局不是很美观。 5、单项最多可设 5000 名中奖者，中奖者总数不能多于参与人数，否则在抽取最后一人时会出现死循环。 6、请在《参与名单》工作表中录入所有参与抽奖的人员。参与人数仅受Excel行数限制，输入时请连续纵向输入，不留空行。 7、在《抽奖》工作表中点击“弃权”按钮时该组中奖的所有的人将被自动剔除，后面的抽奖中将不再参与抽奖。 8、当设置的奖项总数+弃权总数大于等于抽奖参与人总数时，程序将出现死循环。 9、抽奖一旦开始，请完成整个抽奖过程，不要中途退出程序或追加参与人名单。 10、本程序不支持重复中奖，中奖的人不计入下一轮抽奖中。
【文件预览】：
LotteryNoPhoto.xlsm
photo
----姓名4.jpg(19KB)
----bg.gif(14KB)
----姓名7.JPG(19KB)
----姓名9.JPG(19KB)
----姓名5.jpg(19KB)
----none.JPG(20KB)
----姓名6.JPG(19KB)
----姓名1.jpg(19KB)
----姓名2.jpg(19KB)
----Thumbs.db(135KB)
----bg1.gif(19KB)
----none0.jpg(43KB)
----姓名3.jpg(19KB)
----temp.jpg(29KB)
----姓名8.JPG(19KB)
----姓名10.JPG(19KB)
Music
----finish.wav(36KB)
----start.wav(89KB)
LotteryHasPhoto.xlsm
Read Me.txt