Excel抽奖程序

【实例简介】
这里只给大家提供一个部分免费（奖项数<=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、本程序不支持重复中奖，中奖的人不计入下一轮抽奖中。
【实例截图】
【核心代码】
4744302543347330120.rar
├── LotteryHasPhoto.xlsm
├── LotteryNoPhoto.xlsm
├── Music
│   ├── finish.wav
│   └── start.wav
├── photo
│   ├── bg1.gif
│   ├── bg.gif
│   ├── none0.jpg
│   ├── none.JPG
│   ├── temp.jpg
│   ├── Thumbs.db
│   ├── 姓名10.JPG
│   ├── 姓名1.jpg
│   ├── 姓名2.jpg
│   ├── 姓名3.jpg
│   ├── 姓名4.jpg
│   ├── 姓名5.jpg
│   ├── 姓名6.JPG
│   ├── 姓名7.JPG
│   ├── 姓名8.JPG
│   └── 姓名9.JPG
└── Read Me.txt

2 directories, 21 files