|
|
楼主 |
发表于 2012-12-24 14:35
|
显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
去年年会使用过，效果不错。
又到年会时间，更新一下。
忘记写使用说明了。
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, 下载次数: 835)
|
|
楼主: artin88
[复制链接]
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2012-3-7 09:06
