ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[Excel基础] 制作抽奖器

[复制链接]

TA的精华主题

TA的得分主题

发表于 2012-8-15 11:08 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
仿手机号抽奖系统.zip (97.84 KB, 下载次数: 1791)

制作抽奖器
Excel 2003做抽奖器
不知你是否注意过电视节目中的抽奖活动,主持人只要在键盘上按下一个键,即可抽出特等奖、一等奖、二等奖、三等奖等奖项,其实我们利用Excel 2003同样可以制作出一个简易的抽奖器。

在安装Excel 2003时并不会自动安装抽奖器,因此你可能需要重新放入Office 2003安装光盘,找到高级自定义电子表格模板下的抽奖器,然后点击更新按钮将其安装到本机中。接下来,我们可以按照下面的步骤进行操作:


选择模板


打开新建任务窗格,在模板下选择本机上的模板,在模板对话框中选择电子方案表格标签页,现在应该可以在这里找到抽奖器了,如图1所示。确定后需要启用宏,如果启用宏按钮呈灰色无法使用,请返回工具宏安全性窗口,将安全级别设置为就可以了。


设置参数


现在看到的图2窗口就是抽奖器的模板,建议另存为一个新的文件,以免破坏现在的模板。接下来,我们应该设置各个奖项的数量,最多可以设置六个级别的奖项,每个奖项最多可以设置5000名获奖者,抽奖顺序一般是先小奖、后大奖,否则抽奖时就没有悬念了。


输入候选名单


注意候选名单中的人数必须大于奖项总数,输入1名后按下Tab键或回车键进入下一行,这里必须连续纵向输入,不能留空行,其实可以将现成的名单直接复制过来,设置完成后返回设置标签页点击设置完成按钮保存下来。


抽奖


切换到抽奖标签页,我们就可以开始抽奖了,抽奖器会根据用户的设置开始抽奖,注意各个不同等级的奖项抽取出来后并不会自动进入下一轮抽奖,你必须点击继续抽奖按钮才行,不会产生重复获奖的现象。


抽奖结束后会询问是否重新抽奖,注意这里应该选择,否则会清除前面的抽奖结果,切换到抽奖结果标签页可以看一看最后的结果,如图2所示。如果需要的话,我们还可以将获奖名单打印出来。


怎么样,这个DIY的抽奖器还是非常不错的吧?虽然抽奖器是Excel 2003才有的模板,但保存后同样可以在Excel 2000/Excel 2002等低版本中使用。

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-8-15 11:09 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2012-8-15 11:36 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2012-8-26 22:36 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2012-9-25 12:55 | 显示全部楼层
感觉LZ的分享,你的例子刚刚好我需要用到~主要是解决随机滚动的那个视觉效果~太谢谢了

TA的精华主题

TA的得分主题

发表于 2012-10-5 22:31 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
到底怎么用?在哪输号码?2010没法对应操作

TA的精华主题

TA的得分主题

发表于 2012-10-6 13:32 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2012-10-9 17:22 | 显示全部楼层
excel还能干这个,真行!!                                    

TA的精华主题

TA的得分主题

发表于 2012-12-5 09:29 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
谢谢楼主,刚好最近需要,学习一下方法。

TA的精华主题

TA的得分主题

发表于 2013-1-8 17:10 | 显示全部楼层
没有OFFIC光盘,有没有其他办法安装?
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-24 02:01 , Processed in 0.060461 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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