|
![](https://clubstatic.excelhome.net/image/common/ico_lz.png)
楼主 |
发表于 2012-12-24 14:35
|
显示全部楼层
去年年会使用过,效果不错。
又到年会时间,更新一下。
忘记写使用说明了。
1、首先在C盘根目录下建几个目录;
代码中有调用:
Public Const MyFolder = "C:\NH\" '图片放入C盘的NH目录下,从1开始往后顺序编号
Private Const B4 = "C:\NH\B4\" '四等奖目录
Private Const B3 = "C:\NH\B3\" '三等奖目录
Private Const B2 = "C:\NH\B2\" '二等奖目录
Private Const B1 = "C:\NH\B1\" '一等奖目录
Private Const B0 = "C:\NH\B0\" '惊喜奖目录
Private Const BB = "C:\NH\BB\" '特等奖目录
2、所有照片放在NH目录下,文件名是 部门+空格+人名
我这里有接近200号人,部门人名全列上就不会出现主持人叫不出中奖人名字的“事故”了
3、在代码中设定各个奖项人数。我这里总共抽出60人,是按照如下规则抽取的,都调用FunSelect,而且好还要考虑到一屏展示不同数量照片的时候,照片的大小还要调整:
如果是特等奖,当然就独占一屏了。
Select Case filecount '如果已选出人数为filecount,则进行相应的抽奖
Case 0 To 23: FunSelect B4, 4 '四等奖24人四人一批
Case 24 To 33: FunSelect B3, 5 '二等奖10人五人一批
Case 34 To 49: FunSelect B2, 4 '二等奖16人四人一批
Case 50 To 54: FunSelect B1, 1 '一等奖5人一人一批
Case 55 To 59: FunSelect B0, 1 '一等奖5人一人一批
Case 60: FunSelect BB, 1 '特等奖一人
End Select
4、F5,运行;
5、第一屏的左下角有一个导入照片,可以确认一下导入的情况。之所以做这个功能,是为了避免万一当场死机,可以很容易把已经中奖的人员剔除,重新开始后续抽奖。
6、不同奖项的中奖照片将移动到相应的B4~BB目录下面,方便核对。
事实上去年还真的出现了类似的“意外”,在抽二等奖的时候一个抽奖人连抽了两把,造成后面有抽奖人要没得抽了,还好现场临时改参数,让后面每屏出现人数减少,现场气氛没有受到影响。
最后有部分领导放弃奖品,要求继续抽,也可以很快通过改参数实现。
完全是内部定制使用的一个东西,根据工会的需求一点点改成这个样子,所以没考虑到太灵活的设置,代码中注释写得比较详细,有需要可以参考一下。
年会-0105.zip
(344.51 KB, 下载次数: 838)
|
|