ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 383217|回复: 747

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

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2010-1-12 18:47 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 chrisfang 于 2011-12-26 15:08 编辑

年底到了,春节近了。各种迎新晚会、团拜会开始扎堆,过节气氛越来越浓。这几年来筹备了多次团拜会,每次的抽奖活动都是自己用Excel做工具来解决的。为了增强抽奖工具的通用性,也为了能有更多的朋友可以根据自己的实际情况便捷地使用此类工具,这些天我重新打造了一个【多功能抽奖器】,希望可以帮到大家。

                                 ※※※    附增一款:年会工具第二弹—— 【九宫格抽奖器】   ※※※

2011-12-26发布最新V2.0版在此:http://club.excelhome.net/thread-810199-1-1.html

欢迎大家测试,发现问题可以及时改进。

说明文档过几天贴上来。先帖几张图片:

图1.png

图2.png

图3.png

图4.png


2010-1-12,最初版本V1.3版 (获取最新版本请继续向下看!)  工程密码:excelhome
抽奖V1.3.rar (317.49 KB, 下载次数: 10431)

2010-1-12更新考虑到导入名单时有可能需要同时编辑其他工作表中的名单,为此增加了一个使用无模式(modeless)窗体的版本,可以在运行此程序的时候同时在后台打开其他excel表格。


2010-1-13更新增加了自定义奖项名称的功能。版本号V1.4

图5.PNG

2010-1-14更新修正了一个使用自定义背景的BUG。版本号V1.5(感谢凌风飘会员提供反馈)

2010-1-16更新增加了自定义抽奖窗口的字体颜色的功能。版本号V1.6

图6.PNG

2010-1-25更新修正了非正常退出时的一个BUG(感谢127楼micohui 会员提供的反馈)
                             增加了导入名单时去除重复姓名的功能
                             增加了导入名单的同时,在其中剔除部分人员的功能(根据用户所提供的需要剔除的人员名单)。此功能方便用户在使用本程序前剔除部分已经中奖的人员或其他需要排除在现有名单外的人员。
                             增加了每次随机抽奖显示人数的条件项和选择项。(在原有版本和目前版本的默认情况下,目标奖项人数在小于10人的情况下,随机抽奖时每次显示1人,而大于等于10的情况下每次显示5人。现在用户可以对这里的条件门限“10”进行自定义,还可以在1~5之间选择每次显示的人数。)
                             版本号更新为V1.7版。
图7.png

图8.png

2010-1-26更新修正了抽奖窗体的状态栏可能引起焦点丢失的问题(感谢134楼micohui 会员提供的反馈)
                             导入名单增加了对Excel2007表格的支持
                             修正了导入名单中的一个提示信息的BUG(感谢139楼onethj 会员提供的反馈)
                             版本号更新为V1.8版

2010-1-26更新增加了保存配置信息的功能。当用户保存当前配置信息后,在下次运行本程序时,会默认使用前一次所保存的配置信息。
                             版本号更新为V1.9版

抽奖V1.9.rar (323.78 KB, 下载次数: 21129)

图9.png

[ 本帖最后由 chrisfang 于 2010-2-2 17:20 编辑 ]

评分

2

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-1-12 18:51 | 显示全部楼层
软件使用说明:

【前言部分】
本软件程序的宗旨是——为用户提供更多个性化支持!

做软件开发就好像是厨师做菜,客人按照现有菜单点了一道菜,厨师就按照自己的特色和经验开始烹制,菜烧好装盘上桌,客人吃完埋单走人。有些情况下也会有客人觉得菜做得不够满意,要求返工甚至退单。

出色的大厨都比较有个性,对自己的手艺和味觉具有相当高的自信,很少会根据一般食客的意见来改变自己原有的烹饪方法。一般食客也很少有可能越俎代庖,依据自身的喜好来量身定做菜式。
而现在,我作为这个抽奖软件程序的掌勺开发者,我希望换一种更新颖的形式来烹饪我的软件——根据客户的个性化需求来进行自助式的烹饪。需要用什么材料?用的煎煮炒炸蒸哪种手段?油盐放多少?喜欢辣的还是酸的?用什么装盘?摆盘摆成什么造型?。。。等等,把这些在菜单上不一定能够找得到的个性化需求全都呈现在客户面前,让他们自己来选择自己合意的方式。正所谓众口难调,要做一个能让所有人满意的厨师实在是很难,而把选择权交给用户,却能够在很大程度上提高大多数用户的满意度,这就是我的想法和我所想实现的目标。

这个软件从1月12号发布到现在差不多有两个礼拜,期间升级改版了近10次,几乎每一次改版都有新增的个性化选项。也是因为软件功能不断变化,因此这个软件说明帖一直迟迟没有发布。
从最初版本到现在目前的V1.9版,其功能变化如下图所示:
图10.png

【操作说明部分】
主要操作分为三个步骤。
步骤一进行抽奖人员的名单导入。
人员名单需要预先存放在某工作簿的第一个工作表的A列中,名单可以是人员姓名也可以是员工编号或其他信息,如果需要同时显示姓名和编号,可以将两列信息合并成为一列后再行导入。在考虑到页面布局美观的因素下,程序中设定可以显示完整的名单字符长度大约为4~5个字符(根据字体样式选择有所不同)。如果需要支持超长字符,可以在153楼下载特殊定制版使用,那个版本不会再继续更新。
在准备好人员名单之后,点击下图中【导入名单路径】区域的【浏览】按钮,即可在文件路径中选择包含名单的Excel工作簿文件(支持Excel2000、2003、2007和2010),如果名单中的第一行是标题行(不包含人员姓名),则需要同时勾选下方的“包含标题行”复选框。选定完成后,单击下方的【导入】按钮即可将名单导入程序。导入时会自动将重复信息去除,仅保留唯一信息。


如果需要在之前的名单中进行一些筛选操作,例如剔除部分不需要参加此次抽奖活动的人员(比如在其他活动中已经中奖的人员),用户可以事先对导入名单进行处理,也可以使用上图中的”剔除名单“功能进行简单剔除。在选定导入名单之后,先不要点击【导入】按钮,而是在下方的【剔除名单路径】区域中单击【浏览】按钮,选定包含需要剔除的人员名单,其中人员信息也需要放在第一个工作表的A列中。接下来再点击【导入】按钮,程序会在导入名单的同时剔除其中不需要的人员。
这里提供一个小技巧,如果用户在完成名单导入后,希望在以后打开此程序时仍旧能够使用这份名单而不希望再次导入,可以在本次导入名单后,在后台打开任意一个工作簿,然后切换到本程序所在的工作簿进行保存。这样在下一回打开此程序时,名单已经保存在程序中,在【导入抽奖名单】窗口直接单击【取消】按钮直接跳入下一步骤。

步骤二进行抽奖的配置。
如果用户首次使用此程序,除【奖项设置】必须选择外,其余配置均可使用默认配置保持不变。在配置完成点击【确定】按钮时,程序会提示是否保存此配置信息,如果选择保存,那么在以后运行此程序时,打开配置界面时会自动读取原有的配置。配置信息保存在当前计算机中,不随工作簿转移。
【奖项设置】的内容主要包括设立的奖项个数、奖项名称和奖项中的中奖人数。奖项个数最大支持7个,如果实际抽奖等级大于7个级别,可以分几次分别运行此程序(注意在后一次运行程序时需要剔除前一次程序运行所产生的中奖人员名单,步骤一的界面中包含了剔除的功能可供用户选择)。在实际抽奖显示过程中,级别数字较大的奖项先行抽取,级别为1的奖项将在最后抽取。奖项名称可以自己输入文字定义,最长支持6个字符(名称太长影响布局美观)。中奖人数最高支持999人。
【中奖名单显示位置】用于设置在最后抽奖过程中的屏幕实时显示中奖名单的布局位置,可以选择左侧、右侧或不显示,选择不显示的情况下依然会在状态栏中显示每次抽取动作中的中奖人员名单。
【每次抽取人数】用于控制抽奖进程的速度,如果奖项人数比较多,可以将每次抽取人数调大;反之则可以减小。例如,默认设置为奖项人数大于10人时,每次抽取5人,而小于10人时则每次抽取1人,其中的10人指的就是门限值。每次抽取的人数可以在1~5之间选择。
【特殊抽奖方式】某些情况下,为了最快速地得到抽奖结果,不需要在屏幕上实时显示中奖人员,可以勾选此种特殊抽奖方式。此方式在抽奖中只进行一次抽奖动作即可立即生成完整的获奖名单。
【背景图片】可选择抽奖屏幕中的背景图。
【选择字体】可选择抽奖屏幕界面中所显示的文字字体,以及标题部分和名单部分所使用的字体颜色(单击色块可以在调色板中选择不同颜色)。
图11.png

所有设置完成后,可单击【确定】按钮进入下一步骤。

步骤三进入抽奖界面。
抽奖界面下方的状态栏会显示操作提示。按任意键可以开始启动人员名单的随机滚动,再次按下任意键可以进行一次抽取,获奖人员姓名实时显示在屏幕上以及状态栏中,屏幕的显示最多支持20人名单,超过20的情况下每20人翻屏显示。接下来再按任意键则继续抽奖的进行。抽奖过程从级别数字最高的奖项开始,逐级降低,最后出现级别为1的奖项,标题区和状态栏中会显示当前所抽取的奖项名称。因此在之前的奖项设置过程中应合理安排各奖项的名称和人数。
抽奖界面的显示窗口可以最大化或窗口化显示,最大化显示时字体会相应放大显示。
各奖项抽取完全结束后,在程序所在路径下自动生成名为【抽奖结果】的Excel文件,用户可在此文件中查看具体抽奖结果。
图12.png



















[ 本帖最后由 chrisfang 于 2010-3-16 12:56 编辑 ]

点评

感谢分享。。。。  发表于 2014-5-18 08:34

TA的精华主题

TA的得分主题

发表于 2010-1-12 19:12 | 显示全部楼层
这么好的软件一定要顶啊!!!

我下啦,看看今年用上不

最好自己控制下,自己种个一等奖。

TA的精华主题

TA的得分主题

发表于 2010-1-12 19:15 | 显示全部楼层
表格被隐藏了,看不到,还有,怎么让已经中奖的人不在进行其它奖项的抽取?

TA的精华主题

TA的得分主题

发表于 2010-1-12 19:15 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-1-12 19:26 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
原帖由 leeoness 于 2010-1-12 19:15 发表
表格被隐藏了,看不到,还有,怎么让已经中奖的人不在进行其它奖项的抽取?


顶楼已经上传另一个无模式窗体的版本,可以在运行程序时打开另外的工作表。

此外,在单次使用本程序过程中,可以同时设置多个奖项,程序中已经通过代码控制了某奖项的中奖人员不会参与到其他奖项的抽奖过程中。


[ 本帖最后由 chrisfang 于 2010-1-12 19:28 编辑 ]

TA的精华主题

TA的得分主题

发表于 2010-1-12 19:29 | 显示全部楼层
想学习,却苦于看不到源代码。

TA的精华主题

TA的得分主题

 楼主| 发表于 2010-1-12 19:30 | 显示全部楼层
原帖由 ningyuanchao 于 2010-1-12 19:29 发表
想学习,却苦于看不到源代码。


密码在顶楼

TA的精华主题

TA的得分主题

发表于 2010-1-12 19:46 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
我的excel宏项怎变灰,不能选安全性了

TA的精华主题

TA的得分主题

发表于 2010-1-12 20:13 | 显示全部楼层
太好了,下了以后在活动时可以派用场了,谢谢版主分享!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

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

GMT+8, 2024-4-24 07:06 , Processed in 0.067219 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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