年会照片制抽奖工具，终于完工了！

渔君

才在制作，过几天就要开年会了，希望能够做得比较完善。
功能还比较零碎，正在制作中。

目前按准备 ctrl+s  简单设置并获取图片
ctrl+q 启动抽奖界面
按任意键开始显示图片 ，再按任意键停止显示图片。


明天年会，今天终于完工了。怎么上传文件限制这么小啊！

大家可以在七楼下载附件。
七楼已打好包：http://club.excelhome.net/viewth ... p;page=1#pid4582389

十楼的问题是因为没有设置图片加载的路径。图片文件夹不一定要在excel文件的同一文件夹内，所以打开后可以点“设置”，在那里点“选择照片位置”，当然可以选择保存路径。

之前的代码，在候选人只剩余一人时会陷入死循环，故再加修改上传。请佛山鼠侠整理一下文件，我上传权限里允许的体积太小了。

打开EXCEL文件后，在主窗体上点“设置”，可以对照片路径、抽奖模式、奖项数量等等进行设置。其中抽奖模式里，“完全随机“是指完全随机加载照片，“机会均等”是在随机加载的基础是，让所有候选人的照片都加载一次，才能进入下一轮加载，每个人的机会是均等的，当然加载顺序还是随机的。

编写时为了省事，奖项设置是直接在工作表中写上去的，点“奖项设置”或者“显示表视图”然后退出设置窗体，就可以修改奖项设置了。写完后再点“设置”－“隐藏表视图“

点“抽奖”后弹出抽奖窗体，按任意键开始抽奖，再按任意键停止滚动，再按任意键保存获奖名单。如果想中途修改设置或退出抽奖，双击抽奖窗体，可返回主窗体发。



跟候选人数没有关系，几千个人也可以。只是中奖人数越多，抽到后面就会慢一点。当然照片最好是分辨低一点的，不要太大，变换的速度完全满足抽奖的要求。人数几百上千的情况下，中奖比率越高，速度越慢。因为加载图片后还要判断这个人是不是已经中奖了，中过了就要重新加载，所以会慢。但是跟直接加载图片没有直接关系。

当然，我当时急用的时候，只是准备抽五六十个人的，所以没有考虑那么多。后来另外想了一个解决方案，人数多而且中奖率高的情况下，就不用分配随机数再按行加载照片，而是先分配随机数给表一中的没有中过奖的候选人，然后再加载照片，就不用加载照片时反复判断有 没有中过奖，也就不会影响速度了。

当然本文没有用到高深的知识，都是一些简单的应用，关键是解决问题的一个思路。因为水平有限，所以……我认为，很多看似解决不了的问题，还是那些知识，换个思路，也会得到解决。


[ 本帖最后由 渔君 于 2011-1-21 11:02 编辑 ]

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

gjb_zjf

支持，希望你早日顺利完工。谢谢分享！

渔君

完工了，庆祝一下。

ypq_941

学习学习

佛山小老鼠

楼主我帮你重新打包一下，这样下载的人方便一点

[ 本帖最后由 佛山小老鼠 于 2011-1-20 13:08 编辑 ]

佛山小老鼠

我试了一下，不会用，楼主可否指点一下，谢谢

caicaikan

我也试了一下，会用一点，但是用起来比较麻烦，楼主可否指点一下，谢谢

caicaikan

最后结尾提示 form.Controls("Image" & x).Picture = LoadPicture(.Cells(NowR, 2))  '加载图片，报错不知道是什么意思？

渔君

这几天忙年会和订货会，今天才到办公室。所有问题我会在一楼说明，谢谢大家关注。

[ 本帖最后由 渔君 于 2011-1-20 11:54 编辑 ]