ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: chrisfang

[原创] 【多功能抽奖器】——晚会活动常备工具

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2010-1-25 17:04 | 显示全部楼层
哈哈,这个实用的,要支持!

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-1-25 18:14 | 显示全部楼层
2010-1-25更新版本号更新为V1.7版。
1,修正了非正常退出时的一个BUG(感谢127楼micohui 会员提供的反馈)                             
2,增加了导入名单时去除重复姓名的功能                             
3,增加了导入名单的同时,在其中剔除部分人员的功能(根据用户所提供的需要剔除的人员名单)。此功能方便用户在使用本程序前剔除部分已经中奖的人员或其他需要排除在现有名单外的人员。
图7.png

4,增加了每次随机抽奖显示人数的条件项和选择项。(在原有版本和目前版本的默认情况下,目标奖项人数在小于10人的情况下,随机抽奖时每次显示1人,而大于等于10的情况下每次显示5人。现在用户可以对这里的条件门限“10”进行自定义,还可以在1~5之间选择每次显示的人数。)
图8.png

顶楼附件已更新,请继续关注。

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-1-25 18:17 | 显示全部楼层
原帖由 micohui 于 2010-1-25 13:00 发表


没打开任何其他程序(包括EXCEL文件),怎么会失去焦点呢?
同时如果点退出关闭按钮(右上角关闭按钮),确定后EXCEL没有完全关闭,再次打开此文件,提示“Activex部件不能创建对象”。,点击“结束”EXCEL界面 ...



第三个窗体没反应的情况我这里一直没有发现,这位朋友可能的话不妨录个屏看看。
提示“Activex部件不能创建对象”的问题已经解决,见顶楼最新更新的附件V1.7版。
谢谢反馈,欢迎继续关注!

TA的精华主题

TA的得分主题

发表于 2010-1-25 21:10 | 显示全部楼层
谢谢楼主,真是个好东西。

TA的精华主题

TA的得分主题

发表于 2010-1-25 21:33 | 显示全部楼层
第三个窗体没反应的情况我这里一直没有发现,这位朋友可能的话不妨录个屏看看。

经多次测试分析:找出问题原因所在。
即在抽奖过程中(包括开始),如果用鼠标点击到“抽奖状态提示框架”时,就再也无法进行抽奖。

另:导入的文件格式是可以扩展到2007版文件。

[ 本帖最后由 micohui 于 2010-1-25 22:56 编辑 ]

TA的精华主题

TA的得分主题

发表于 2010-1-26 05:37 | 显示全部楼层
奖项设置选择项能否修订一下,如不想设特等奖,只想设一等奖开始,这样设置比较灵活,谢谢!

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-1-26 08:27 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
原帖由 zlm 于 2010-1-26 05:37 发表
奖项设置选择项能否修订一下,如不想设特等奖,只想设一等奖开始,这样设置比较灵活,谢谢!


可以通过自定义奖项名称来实现,比如把第一等级的奖项命名为“一等奖”,就可以了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-1-26 08:29 | 显示全部楼层
原帖由 micohui 于 2010-1-25 21:33 发表
第三个窗体没反应的情况我这里一直没有发现,这位朋友可能的话不妨录个屏看看。

经多次测试分析:找出问题原因所在。
即在抽奖过程中(包括开始),如果用鼠标点击到“抽奖状态提示框架”时,就再也无法进行抽奖 ...


呵呵,找到问题就好,我昨天还检查了一遍第三窗体的所有控件,都是Tabstop为false的,所以直接响应键盘应该没有问题,却没想到还会发生鼠标点击转移焦点的问题。
另外支持2007表格也问题不大。
后续再修改一下吧,谢谢关注。

TA的精华主题

TA的得分主题

发表于 2010-1-26 11:19 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
在1.7版本下:

1.不能保存抽奖结果,报错。
2.自定义设置奖项名称,如果有创意点,名称太长了,不能完全显示,是否可换行?
3.主窗口导入抽奖人员,剔除也导入同样的抽奖人员,提示
名单中成功导入了1位人员姓名(其中已剔除了54位重复人员)”
此时应该是没有任何人员被导入?
4.奖项等级设置,不大方便,连续选了三个复选框,再去掉第一个,另外两个都不选中了
error.JPG

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-1-26 12:17 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
原帖由 onethj 于 2010-1-26 11:19 发表
在1.7版本下:

1.不能保存抽奖结果,报错。
2.自定义设置奖项名称,如果有创意点,名称太长了,不能完全显示,是否可换行?
3.主窗口导入抽奖人员,剔除也导入同样的抽奖人员,提示
“名单中成功导入了1位人员 ...


问题1:请检查一下运行环境,是否有权限在当前程序所在文件目录下创建新文件。
问题2:从界面排版美观度考虑,没有允许设置太长的奖项名称,只允许6个字符长度。
问题3:确实是一个BUG,我知道问题在哪里,会后续修改。
问题4:奖项设置是按照级别进行的,只有存在高级别的情况下,才能设置下一级别,不允许跨级别设置。也就是说,在不存在3等奖的时候,就没必要设置5等奖(奖项名称可以自定义,这里只是规定了一个抽奖的顺序)。抽奖时按照从低到高的顺序依次对各级别进行抽取。这是为了程序结构的考虑,但并不影响用户自定义安排各类奖项名称。

感谢这位朋友的反馈,欢迎继续关注!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-18 22:33 , Processed in 0.047560 second(s), 7 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表