2024年5月30日发(作者：)

巧用Ｅｘｃｅｌ制作带音效的电脑摇奖程序　

文章编号：１００３—５８５０（２０１１）０７—００５２—０３　

巧用Ｅｘｃｅｌ制作带音效的电脑摇奖程序　

Ｍａｋｉｎｇ　Ｃｏｍｐｕｔｅｒ　Ｅｒｎｉｅ　Ｐｒｏｇｒａｍ　ｗｉｔｈ　Ｓｏｕｎｄ　Ｅｆｆｅｃｔ　ｂｙ　Ｕｓｉｎｇ　Ｅｘｃｅｌ　

马致明　杨婷婷　艾克拉木・牙合甫　

（　新疆师范大学计算机科学技术学院鸟鲁木齐８３００５４）（　新疆师范大学学生处鸟鲁木齐８３００５４）　

【摘　要】电脑摇奖软件是使用较多的软件之一，通过巧用Ｅｘｃｅｌ中的数据库功能和ＶＢＡ编程功能制作了一款　

带音效的电脑摇奖程序，只要在Ｅｘｃｅｌ工作表中输入参与摇奖者的信息就可以开始滚动摇奖，并能自动记录有关　

中奖信息，简单又实用，就其特色和制作方法作了详细的介绍。　

【关键词１　Ｅｘｃｅｌ，ＶＢＡ编程，摇奖程序，数据库，音效　

中图分类号：ＴＰ３１１　文献标识码：Ａ　

ＡＢＳＴＲＡＣＴ　Ｃｏｍｐｕｔｅｒ　ｅｒｎｉｅ　ｓｏｆｔｗａｒｅ　ｉｓ　ｏｎｅ　ｏｆ　ｔｈｅ　ｐｏｐｕｌａｒ　ｓｏｆｔｗａｒｅ．Ａ　ｃｏｍｐｕｔｅｒ　ｅｒｎｉｅ　ｐｒｏｇｒａｍ　ｗｉｔｈ　ｓｏｕｎｄ　ｅｆｆｅｃｔ　ｈａｓ　ｂｅｅｎ　

ｄｅｖｅｌｏｐｅｄ　ｂｙ　ｕｓｉｎｇ　Ｅｘｃｅｌ　ＶＢＡ　ａｎｄ　ｄａｔａｂａｓｅ　ｆｕｎｃｔｉｏｎ．Ｔｈｅ　ｕｓｅｒ　ｃｏｕｌｄ　ｓｉｍｐｌｙ　ｓｔａｒｔ　ｔｈｅ　ｅｒｎｉｅ　ｐｒｏｇｒａｍ　ａｆｔｅｒ　ｆｉｌｌｉｎｇ　ｔｈｅ　ｍｅｓｓａｇｅ　ｉｎ　ｔｈｅ　

ｓｈｅｅｔ　ｏｆ　ｔｈｅ　Ｅｘｃｅｌ，ａｎｄ　ｔｈｅ　ｌｏｔｔｅｒｙ　ｗｉｎｎｅｒ’Ｓ　ｍｅｓｓａｇｅ　ｃａｎ　ｂｅ　ｒｅｃｏｒｄｅｄ　ａｕｔｏｍａｔｉｃａｌｌｙ．Ｔｈｅ　ｆｅａｔｕｒｅｓ　ａｎｄ　ｍａｋｉｎｇ　ｍｅｔｈｏｄ　ｏｆ　ｔｈｅ　ｓｉｍｐｌｅ　

ａｎｄ　ｐｒａｃｔｉｃａｌ　ｐｒｏｇｒａｍ　ｈａｓ　ｂｅｅｎ　ｉｎｔｒｏｄｕｃｅｄ　ｉｎ　ｔｈｅ　ｐａｐｅｒ．　

ＫＥＹＷＯＲＤＳ　ｅｘｃｅｌ，ＶＢＡ　ｐｒｏｇｒａｍｍｉｎｇ，ｅｒｎｉｅ　ｐｒｏｇｒａｍ，ｄａｔａｂａｓｅ，ｓｏｕｎｄ　ｅｆｆｅｃｔ　

近年来在电视娱乐节目以及单位活动中常常见到　

利用电脑来摇奖，为此一些商家也不失时机地推出了　

一

２程序功能及特色　

本程序在Ｅｘｃｅｌ工作表界面中动态呈现滚动摇奖　批抽奖软件、摇号软件、摇房软件等。　

因本单位活动需要，笔者巧用Ｅｘｃｅｌ的数据库功　

能和ＶＢＡ编程功能制作了一款简单、实用且带有音　

效的电脑摇奖程序，使用后效果良好，活跃了活动气　

氛，得到了活动组织者和参与者的好评。现将其设计思　

想和制作方法介绍给各位，希望对大家能有所启示。　

过程，并在另一个工作表中动态记录中奖者信息，实现　

摇奖软件的相关功能，可满足各类用户的有关需求。　

２．１程序功能　

程序运行界面如图１　

所示。在“摇奖程序”工作　

参与薯葵篝　茭着　　：

董霄　

：　囊　童　

１　Ｅｘｃｅｌ的数据库功能和ＶＢＡ编程　

１．１　Ｅｘｃｅｌ的数据库功能　

表的Ａ２单元格起输入姓　

名、手机号码或身份证号　

码等参与摇奖者的个人信　

息，在Ｃ３单元格中输入每　

“开始”按钮就可启动摇奖　

　ｉ

李小劳　每秒呈理的人量：　

　张有意　２张育喜　：２０　

　．

Ｓ　孙永桢　

‘　牙生江　

马艺一　

马艺飞　

奉次的幸运之量是：　

轰有击　

霄堆枘　

　周亮亮　ｊ

厂一　

ｒ－　－—厂

１丁文玉　

Ｅｘｃｅｌ是微软开发的一款电子报表软件，用其创　

建的工作簿类似于数据库文件，其中的工作表Ｓｈｅｅｔ　

实际上就是一个二维关系表Ｔａｂｌｅ，各个表之间具有　

秒呈现的人数，然后单击　

１２　

程序，此时在Ａ列中不断　

有红色的边框在上下跳　

车光辉　

阿力木　

丁文玉　

　

’　ｔ班　婆　■］ｔＺ；　Ｊ《　簟　年一　

关联性；恰当地利用其可视化编程环境设计输入输出　

界面就可以创建一个数据库应用程序。　

１．２关于ＶＢＡ编程　

图１运行界面　

跃，同时Ｃ６单元格中不断滚动呈现对应的参与摇奖　

者，滚动速度由每秒呈现的人数决定，其值在程序启动　

后还可随时改变。　

当单击“停”按钮后，滚动停止，被红色边框选中的　

在微软的Ｏｆｆｉｃｅ家族中集成了一种加强其功能　

的语言ＶＢＡ（Ｖｉｓｕａｌ　Ｂａｓｉｃ　ｆｏｒ　Ａｐｐｌｉｃａｔｉｏｎ）。ＶＢＡ给　

使用者提供了对软件进行二次开发的可能性，利用　

ＶＢＡ开发者可以在Ｏｆｆｉｃｅ中添加控件等用户接口元　

就是本次中奖者，Ｃ６单元格同时呈现该中奖者，Ｂ列　

相应行上有该中奖者被抽取顺序号，同时在“中奖者信　

素，通过这些控件应用程序可以得到用户的请求并做　

出响应。在Ｅｘｃｅｌ中适当地使用ＶＢＡ编程可以大大增　

强其交互功能和数据库功能，达到意想不到的效果，本　

文介绍的带音效的电脑摇奖程序就是一例。　

息”工作表中记录相关信息，内容及界面如图２所示。　

２．２程序特色　

启动摇奖后伴随着激情音乐一个红色的边框在所　

有参与摇奖者之间不断地随机跳跃，其速度可以由用　

＊　２０１１—０３—１８收到，２０１１—０４—２６改回　

＊＊　马致明，男，１９６４年生，教授，硕士研究生，研究方向：计算机软件及ＣＡＩ方面的教学和研究。　

第２４卷第７期　电脑开发与应用　

Ｄｉｍ　Ｓｔｏｐｅｄ　Ａｓ　Ｂｏｏｌｅａｎ，ｋ　Ａｓ　Ｉｎｔｅｇｅｒ　

Ｐｒｉｖａｔｅ　Ｓｕｂ开始Ｃｌｉｃｋ（）’单击“开始”　

一

Ｄｉｍ　ＡｌｌＮｕｍ　Ａｓ　Ｉｎｔｅｇｅｒ，ＷｉｎｎｅｒＮｕｍ　Ａｓ　Ｉｎｔｅｇｅｒ　

Ｄｉｍ　Ｔ　Ａｓ　Ｓｉｎｇｌｅ，ｉ　Ａｓ　Ｉｎｔｅｇｅｒ　

Ｉｆ　Ｖａｌ（Ｒａｎｇｅ（　Ｃ３　））＜１　Ｔｈｅｎ　Ｒａｎｇｅ（，，Ｃ３　）＝１０’保　

证人数　

Ｗｈｉｌｅ　Ｒａｎｇｅ（　Ａ”＆ＡｌｌＮｕｍ＋２）＜＞　’统计人数　

ＡｎＮａｍ＝Ａ１１Ｎｕｍ＋１　

图２中奖者信息界面　

Ｗｅｎｄ　

Ｉｆ　ＡｌｌＮｕｍ＝０　Ｔｈｅｎ　

户指定并随时改变；叫停后伴随着幽默笑声中奖者浮　

出水面，相关信息自动记录在另一个工作表中；若要求　

中奖者不能重复，则摇奖时保留Ｂ列已中奖者信息即　

可，若允许中奖者可以重复，则摇奖时删除Ｂ列已中　

奖者信息即可，操作十分方便；当关闭此文档时，所有　

信息将自动保存。　

３程序设计　

３．１程序模块的建立　

启动Ｅｘｃｅｌ，删除Ｓｈｅｅｔ３工作表，并将前两个工作　

表的标题依次改为“摇奖程序”和“中奖者信息”。打开　

“工具／宏／Ｖｉｓｕａｌ　Ｂａｓｉｃ编辑器”选项，进入宏编辑窗　

口，此时工程资源管理器窗口中有Ｓｈｅｅｔ１、Ｓｈｅｅｔ２和　

ＴｈｉｓＷｏｒｋｂｏｏｋ　３个默认模块，打开“视图／属性窗口”，　

将两个工作表的名称改成跟其标题一样，此时两个工　

作表模块名称也将随之变成“摇奖程序”和“中奖者信　

息”。　

３．２编写宏代码　

用ＶＢＡ编写的代码称为宏代码，本程序只用到　

了“摇奖程序”工作表模块和ＴｈｉｓＷｏｒｋｂｏｏｋ工作簿模　

块来编写相关代码，其中前一个模块用来完成摇奖及　

中奖信息记录，后一模块用来完成退出时的自动保存。　

３．２．１工作表模块　．　

进入“摇奖程序”工作表，在Ａ１、Ｂ１和Ｃ１单元格　

分别输入“参与摇奖者”、“已中奖者”和“摇奖”，从Ａ２　

单元格起输入参与摇奖者的姓名或电话号码等信息　

（中间不能有空行！），在Ｃ２单元格输入“每秒呈现的　

人数：”，在Ｃ３单元格输入对应的数值（如１０），在Ｃ５　

单元格输入“本次的幸运之星是：”。　

通过“视图／工具栏”打开“控件工具箱”，在Ｃ列　

第６行以后分别添加两个按钮；右击按钮打开属性窗　

口，将按钮的标题依次改为“开始”和“停”，同时将两个　

按钮的名称改成与其标题一样。双击某个按钮，进入　

“摇奖程序”模块的代码窗口，输入以下代码；　

Ｄｅｃｌａｒｅ　Ｆｕｎｃｔｉｏｎ　ＰｌａｙＳｏｕｎｄ　Ｌｉｂ　ｗｉｎｍｍ．ｄｌｌ　Ａｌｉａｓ　

ＰｌａｙＳｏｕｎｄＡ　（ＢｙＶａｌ　ｌｐｓｚＮａｍｅ　Ａｓ　Ｓｔｒｉｎｇ，ＢｙＶａｌ　ｈＭｏｄｕｌｅ　Ａｓ　

Ｌｏｎｇ，ＢｙＶａｌ　ｄｗＦｌａｇｓ　Ａｓ　Ｌｏｎｇ）Ａｓ　Ｌｏｎｇ　

ＭｓｇＢｏｘ”缺少摇奖对象Ｊ　，ｖｂＣｒｉｔｉｃａｌ，”注意　

Ｅｘｉｔ　Ｓｕｂ　

Ｅｎｄ　Ｉｆ　

Ｆｏｒ　ｉ＝２　Ｔｏ　ＡｌｌＮｕｍ＋１’统计已中奖者人数　

Ｉｆ　Ｒａｎｇｅ（”Ｂ”＆ｉ）＜＞””Ｔｈｅｎ　ＷｉｎｎｅｒＮｕｍ＝　

ＷｉｎｎｅｒＮｕｍ＋１　

Ｎｅｘｔ　ｉ　

Ｉｆ　ＷｉｎｎｅｒＮｕｍ—ＡｌｌＮｕｍ　Ｔｈｅｎ’避免死循环　

ＭｓｇＢｏｘ　所有人均已中奖Ｊ”，ｖｂｌｎｆｏｒｍａｔｉｏｎ，　提　

醒”　

Ｅｘｉｔ　Ｓｕｂ　

Ｅｎｄ　Ｉｆ　、　

Ｓｔｏｐｅｄ＝Ｆａｌｓｅ　

停．Ｅｎａｂｌｅｄ＝Ｔｒｕｅ　

开始．Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ　

ＰｌａｙＳｏｕｎｄ　ＡｃｔｉｖｅＷｏｒｋｂｏｏｋ．Ｐａｔｈ＆”＼音效１．ｗａｙｔ；，　

１，ｌ　

Ｒａｎｄｏｍｉｚｅ　

Ｗｈｉｌｅ　Ｎｏｔ　Ｓｔｏｐｅｄ’循环滚动　

Ｔ＝Ｔｉｍｅｒ　

Ｄｏ’延时控制　

Ｌｏｏｐ　Ｗｈｉｌｅ　Ｔｉｍｅ卜Ｔ＜１／Ｖａｌ（Ｒａｎｇｅ（”Ｃ３”））　

ｏＤ’随机摇奖，同时避免已中将者再次中奖　

ｋ＝Ｉｎｔ（Ｒｎｄ＊Ａ１１Ｎｕｍ）＋２　

Ｌｏｏｐ　Ｗｈｉｌｅ　Ｒａｎｇｅ（”Ｂ　＆ｋ）＜＞””　

Ｒａｎｇｅ（”Ａ１：Ａ”＆ＡｌｌＮｕｍ＋１）．Ｂｏｒｄｅｒｓ．Ｖａｌｕｅ＝１’　

取消边框Ｒａｎｇｅ（　Ｃ６　）＝Ｒａｎｇｅ（”Ａ　＆ｋ）’中奖人信息　

Ｒａｎｇｅ（　Ａ”＆ｋ）．Ｂｏｒｄｅｒｓ．Ｖａｌｕｅ＝７’加边框　

Ｒａｎｇｅ（”Ａ”＆ｋ）．Ｂｏｒｄｅｒｓ．Ｃｏｌｏｒ＝ｖｂＲｅｄ’边框变　

红色　

ｏＤＥｖｅｎｔｓ　

Ｗｅｎｄ　

Ｅｎｄ　Ｓｕｂ　

Ｐｒｉｖａｔｅ　Ｓｕｂ停ＣｌｉｃｋＯ’单击　停”　

Ｓｔａｔｉｃ　ｎ　Ａｓ　Ｉｎｔｅｇｅｒ，ｍ　Ａｓ　Ｉｎｔｅｇｅｒ　

ｎ—ｎ＋１　

Ｓｔｏｐｅｄ＝Ｔｒｕｅ　

Ｒａｎｇｅ（”ＢＪＪ＆ｋ）＝ｎ　８ＬＲａｎｇｅ（”Ｃ６”）’显示在已中奖者　

由　

巧用Ｅｘｃｅｌ制作带音效的电脑摇奖程序　

ｗｉｔｈ中奖者信息　

Ｗｈｉｌｅ．Ｒａｎｇｅ（　Ａ”＆ｍ＋１）＜＞　’统计已中奖人　

数　

ｍ＝ｍ＋１　

Ｗｅｎｄ　

．

数Ｒｎｄ随机产生下一位呈现者所在的行号：　

ｋ＝Ｉｎｔ（Ｒｎｄ＊Ａ１１Ｎｕｍ）＋２　

ｋ的范围是［２，ＡｌｌＮｕｍ＋１］，因为第１行是标题　

行，所以ｋ的范围刚好可以涵盖所有参与抽奖的人。在　

Ｒａｎｇｅ（　Ａ　＆ｍ＋１）一”第”＆ｎ＆”位：　＆Ｒａｎｇｅ　

循环体中不断变换ｋ的值，利用Ｒａｎｇｅ（”Ａ　＆ｋ）就可　

以实现随机抽取。　

（”Ｃ６　）　

．

Ｒａｎｇｅ（”Ｂ”＆ｍ＋１）一Ｆｏｒｍａｔ（Ｎｏｗ，”ｄｄｄｄｄｄ，ｈｈ：　

３．３．３　对选中者的突出显示　

ｍｍ：ｓｓ”）　

Ｉｆ　ｎ＝１　Ｔｈｅｎ’中奖批次：新批次　

．

Ｒａｎｇｅ（”Ｃ”＆ｍ＋１）＝Ｖａｌ（．Ｒａｎｇｅ（”Ｃ”＆ｍ））＋　

１　

Ｅｌｓｅ’中奖批次：现有批次　

．

Ｒａｎｇｅ（”Ｃ”＆ｍ－Ｉ－１）一．Ｒａｎｇｅ（”Ｃ　＆ｍ）　

Ｅｎｄ　Ｉｆ　

Ｅｎｄ　Ｗｉｔｈ　

ＰｌａｙＳｏｕｎｄ　ＡｃｔｉｖｅＷｏｒｋｂｏｏｋ．Ｐａｔｈ＆”＼音效２．ｗａｙ”，　

１，１　

停．Ｅｎａｂｌｅｄ＝Ｆａｌｓｅ　

开始．Ｅｎａｂｌｅｄ—Ｔｒｕｅ　

Ｅｎｄ　Ｓｕｂ　

３．２．２工作簿模块　

双击工作簿模块“ＴｈｉｓＷｏｒｋｂｏｏｋ”，进入代码窗口　

后输入以下内容：　

Ｐｒｉｖａｔｅ　Ｓｕｂ　Ｗｏｒｋｂｏｏｋ

ＢｅｆｏｒｅＣｌｏｓｅ（Ｃａｎｃｅｌ　Ａｓ　Ｂｏｏｌｅａｎ）　

—

ＴｈｉｓＷｏｒｋｂｏｏｋ．Ｓａｖｅ’自动保存　

Ｅｎｄ　Ｓｕｂ　

３．３关健技术　

３．３．１　切换速度的控制　

多长时间后滚动呈现下一位，其快慢由Ｃ３单元　

格中每秒呈现的人数来控制。　

动态效果的实现一般需要计时器控件，但ＶＢＡ　

不支持该控件。虽然Ｗｉｎ３２ＡＰＩ中的定时器函数　

ＳｅｔＴｉｍｅｒ（）与ＫｉｌｌＴｉｍｅｒ（）可以弥补这一缺陷，但使用　

起来非常麻烦，需要在标准模块中声明这两个繁琐的　

ＡＰＩ函数，并编写相应的定时器事件处理子程序。　

通过探索和实践，笔者找到了解决该问题的一个　

巧妙方法：利用ＶＢＡ自带的Ｔｉｍｅｒ函数，此函数返回　

的是一个时刻值（从子夜开始的秒数），测出两个时刻　

即可得经历的秒数；在代码中用一个闲置循环进行等　

待，等到设定的时间后再执行后续代码，就可达到控制　

切换速度的目的。　

Ｔ—Ｔｉｍｅｒ　

Ｄｏ　

Ｌｏｏｐ　Ｗｈｉｌｅ　Ｔｉｍｅｒ－Ｔ＜ｌ／Ｖａｌ（Ｒａｎｇｅ（　Ｃ３　））　

３．３．２随机抽取一位并呈现　

先算出参与抽奖的人数ＡｌｌＮｕｍ，再利用随机函　

为了让用户能够看到滚动显示中呈现的用户的变　

化情况，本程序对滚动过程中的选中者进行了突出显　

示，即添加红色边框。　

Ｒａｎｇｅ（　Ａ”＆ｋ）．Ｂｏｒｄｅｒｓ．Ｃｏｌｏｒ＝ｖｂＲｅｄ　Ｒａｎｇｅ（　Ａ　＆　

ｋ）．Ｂｏｒｄｅｒｓ．Ｖａｌｕｅ一７’加边框　

但在加新边框之前得取消原有的红色边框：　

Ｒａｎｇｅ（”Ａ１：Ａ”＆ＡｌｌＮｕｍ＋１）．Ｂｏｒｄｅｒｓ．Ｖａｌｕｅ＝１　

３．３．４背景音效的播放　

虽然Ｅｘｃｅ１支持插入音效对象，但通过程序对该　

对象进行播放控制还是比较麻烦。为此，本程序选用　

ｗｉｎ３２ＡＰＩ函数ｓｎｄＰｌａｙＳｏｕｎｄ来播放ｗａｖ格式的背　

景音效，以营造现场气氛。用该函数后若无指定音效文　

件，程序也不会出错，容错性好。　

３．４运行摇奖程序　

回到“摇奖程序”工作表，点击控件工具箱中的“退　

出设计模式”按钮，关闭属性窗口和控件工具箱，保存　

工作簿后即可体验独具特色的带音效的Ｅｘｃｅｌ摇奖程　

序。　

需要指出的是：为了防范宏病毒对计算机的侵害，　

在Ｏｆｆｉｃｅ中的“工具”菜单中对宏的安全性设置了相　

应的安全级，只有将安全级设置成“低”或“中”，重新打　

开相应的Ｅｘｃｅｌ文件，并在系统提示的“安全警告”对　

话框中选择“启用宏”（当设置成“低”时不会出现此对　

话框），这样才能在Ｅｘｃｅｌ中启动宏代码，体验程序的　

运行效果。　

４结束语　

限于篇幅，本文介绍的程序没有涉及根据用户需　

求同时抽取多位中奖者，感兴趣的读者不妨自己去完　

善相应的功能，或通过Ｅｍａｉｌ（ｍｚｍ８２＠１６３．ｃｏｒｎ）跟作　

者探讨。　

参考文献　

［１３　李政，梁海英，李吴．ＶＢＡ应用基础与实例教程　

［Ｍ］．北京：国防工业出版社，２００５．　

［２３　马致明，木沙江・加帕尔．巧用ＶＢＡ制作１２１算练习课　

件［Ｊ］．中国教育信息化，２００８，１３（６）：４９．５１．