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

数据库与信息管理　

Ｄ＾Ｔ＾Ｂ＾ＳＥ＆ＩＮＦＯＲＭＡＴＩＯＮ　Ｍ＾ＨＡＧＥ　

基于Ｅｘｃｅｌ　ＶＢＡ的随机滚动抽奖系统设计与实现　

黄钢　

（雅发　｝＼ｆ　技术学院，ＩＪｔｌ川Ｉ雅安６２５０００）　

摘　要：公司单位在组织活动时，大都会有一个抽奖环节来活跃气氛　抽奖方式也有很多，其中波常　

见的是利用抽奖软件在大屏幕上进行随机滚动抽奖　目前这类软件也不少，介绍了通过Ｅｘ（＇ｅＩ　ＶＢＡ来　

制作一个随机滚动抽奖系统　

关键词：Ｅｘ（・ｅｌ软件；ＶＢＡ语言，随机抽奖　

日前网络　有许多类似的抽奖系统　、经过下载试　

ｊ｛ｊ，发现小少系统存在以卜问题：　（１）功能齐全，但　

操作复杂，　若要较好的电脑水平才能操作：　（２）内部　

使用，通』ｔＪ性不强，；　（３）需要注册，　ｆ则无法使用，　

有的还需要给钱　能使Ｊ｝Ｊ；　（４）无法保存ｌ拼１奖记录，　

抽奖过后需要人ｌ　于动记求抽奖结果；　（５）重复ｌ抽奖，　

同一次抽奖，一人　现多次等　。　

针对以Ｉ：问题，利用　ｘｃ＇ｅｌＶｂａ制作＿ｒ～个操作简单、　

通用性强、　重复抽奖、能够保存记求的抽奖系统。　

ｌ　系统结构　

在Ｏｆｔｉ（・ｅ２０１０环境下，打开Ｅｘｃｅｌ新建两个ｌ　作表：　

“抽奖”、“　及参数”　

“抽奖”ｆ　作表用来作为于Ｉ“奖界面，此界向将作为　

主要界面、“抽奖”界面包含抽奖滚动显　≮域（默认　

抽取ｌ０名）和栩父的文　ｊ　：参数以及４个Ａｔ　ｔｉｖｅＸ控件　

按钮“开始州１奖”、　“　己求巾奖名单”、　“参数设置”，　

并存指定１）‘＝域｛１Ｉ！．爪滚动时川及已抽奖次数，滚动时问呵　

『｛行没置，圳　１所示，为使　面简洁美观，在实际操　

作中可以隐藏Ａ列　、　

图１“抽奖”工作表　

“名单殷参数”Ｔ　作表，Ａ列剑Ｅ列仔放参数（参　

数ｌ、参数２）及名单（包含：编号、姓　、电话），如　

罔２所示：Ｈ列刮Ｊ列存放本系统的相关参数，包括：　

“于｝¨奖过　爪”、　“抽奖结束显爪”、　“领奖　式　

示”、“活动　称”，这　内　１ｉｆ【ｊ会　｛ｆｆ１奖过　川１　Ｊ所呈　

现。在参数设　Ｆ　附上使ｊＩ　Ｊ，Ｊ‘法该１）（　域还　放・个　

Ａｃ・ｌｉｖｅＸ榨件按钮，Ｊ｛Ｊ来返　ｊ１｛１奖贞　，殳¨降ｉ　３昕爪　

￡　Ｅ　

簸ｊ　氟　Ⅲ｝？菇　《　哥ｌ姓＿嚣　｛　电远　

２

：　（

…

　ｊ

０

０ｆ

３２５

０６￣６５掂　～　７

７　；Ｓ　

一｝

ｒ　

一Ｌ　ｊ“　：Ｐ

！　ｆ　薯　

［１

ｉ：

　２３

　３　■ｌ：　ｉ

～１　２～３　

　

ｉ　

｝０　ＳｌＳ２｛Ｓ６Ｓ　０　　．３　　Ｉ舛ｊ　｛ｌ　１３　２　ｌ：　《』　

图２“名单及参数”工作表参数部分　

图３“名单及参数”工作表设置部分　

２功能实现及难点　

２．Ｉ难点与突破　

经过分析干¨测试。直接利川随机函数搜Ａ找　数能　

够快速实现功能，　这种做法仃　ｊ１ｈ￣ｌＹ．１　内现象，　

同一次抽奖ｒｆＩ，一条记录　，ｆｆｉ￣会…现多次　此．　

“　单及参数”Ｉ　作表中．引入参数ｌ　ｌｆ１】参数２，『』ＩＪｌ纠２　

所爪　参数ｌ“接Ｊ１Ｊ　ＲＡＮＤ　数广：　与ｃ列编‘ｊ对Ｊ　

的足够多的随机数．参数２　ＪＩ　Ｊ｜｛ＡＮＫ函数汁钎：这止　随饥　

数住相应范　内对应的排名，　“｝ｌＩ１奖”ｌ　作　（Ｏ，Ｈ　

２）巾的Ａ列编　接引川参数２的　ｌ０个ｆＩｌｉ＝　参　

数ｌ足随机Ｈ｛现的．并Ｒ．随机刮ｒ小数点后第９　ｆ　，邶　

么随机的两个数卡Ｈ同的慨率儿　趋近于零，Ｊ　以卡¨幢的　

参数２相同的排铝值…现的概牢ｕ土儿乎趋近ｒ零，　终　

作者简介：数删（１９８９一），　，助教，学ｆ：，ｆｉＪ１＝究　

向：信息管　１ｊ．信息系统。　

收稿日期：２０１７—０８—２３　

～　ｉ　盛缡程２技Ｏ　亭６１　

实用第一　智慧密集　

Ａ列ｌ０个编弓‘重复ｌ｛Ｊ现的情况也可以忽略不计。这样　

操作设置过后，最大程度地保证ｒ　ｌ０个随机数中小会　

ａ＝Ｆｏｒｍａｔ（Ｄａｔｅ，“ＷＷ年ｍ月ｄ日ＩＩ）　

ｂ＝Ｆｏｒｍａｔ（Ｔｉｍｅ，”ｈｈ时ｍｍ分ＳＳ秒”）　

彳『承复值…现的情况。ｆｎ１此在同一次抽取…ｔ不会出现重　

复　求，从而解决Ｊ　这一难题。　

２．２参数及函数设置　

（１）“抽奖”Ｉ　作表，如图ｌ所示　、Ａ４单元格“＝　

名单及参数！Ｂ２”，Ｂ４　元格输人数字ｌ，Ｃ４单元格　

“

Ｃ＝Ｓｈｅｅｔｓ（”名单及参数”）．Ｒａｎｇｅ（”ｉ７“）　

ｄ＝“中奖名单”　

ｅ＝Ｓｈｅｅｔｓ（“抽奖“）．Ｒａｎｇｅ（“ｇ４“）　

Ｉｆ　ｅ：＝０　Ｔｈｅｎ　

ＭｓｇＢｏｘ“还未开始抽奖，不能保存！”　

Ｅｌｓｅ　

＝

ＶＩ　ＯＯＫＵＰ（Ａ４，名单及参数！Ｃ：Ｅ，２，ＦＡＩ　ＳＥ）”，Ｄ４单元　

Ｒａｎｇｅ（“Ｂ３：Ｄ５２“）．Ｓｅｌｅｃｔ　

格“＝ＶＬＯＯＫＵＰ（Ａ４，　及参数！Ｃ：Ｅ，３，ＦＡＬｓＥ１”，均依　

次向下填充到１３行：【；３单元格存放滚动时ｎｊＪ；Ｇ４　

元格存放已抽奖次数：Ｅ７单元格“＝名单及参数！Ｉ７”。　

（２）　“名单及参数”ｒ　作表，如图２、冈３所示　

Ａ２单元格“＝ＲＡＮＤ０”，Ｂ２单元格“＝ＲＡＮＫ（Ａ２，Ａ：Ａ）”，　

均依次向下填充；Ｉ３单元格存放抽奖过程　示内容；Ｉ４　

单元格存放抽奖结束　示内容：Ｉ５单元格存放领奖方式　

，ｌ】　容；Ｉ７单元格存放活动名称。　

部分参数会在ＶＢＡ按钮代码中进行ｆｊ１人，并在抽　

奖过　中得到体现　

３　ＶＢＡ按钮代码　

３．１“开始抽奖”按钮　

｛：¨关代码如下：　

Ｄｉｍ　ａ　

Ｄｌｍ　ｂ　Ｃ，ｄ　Ａｓ　Ｓｔｒｉｎｇ　

ａ＝Ｓｈｅｅｔｓ（”抽奖“）．Ｒａｎｇｅ（”ｇ３”）　

ｂ＝Ｓｈｅｅｔｓ（“名单及参数”）。Ｒａｎｇｅ（”ｉ３”）　

ｃ＝Ｓｈｅｅｔｓ（”名单及参数”）．Ｒａｎｇｅ（”ｉ４”）　

ｄ＝Ｓｈｅｅｔｓ（“名单及参数”）．Ｒａｎｇｅ（”ｉ５“）　

ｔ：Ｔｉｍｅｒ　

Ｗｈｉｌｅ【Ｉｍｅｒ—ｔ＜＝ａ一１　

Ｓｈｅｅｔｓ（”抽奖”），［Ｂ１　ｌ＝ｂ　

Ｓｈｅｅｔｓ（”抽奖”）．［Ｂ２】＝…’　

Ｗｅｎｄ　

Ｓｈｅｅｔｓ（”抽奖“）．【Ｂ　１】＝ｃ　

Ｓｈｅｅｔｓ（”抽奖“）．［Ｂ２】＝ｄ　

Ｒａｎｇｅ（”ｇ４”）＝Ｒａｎｇｅ（”ｇ４”）＋１　

说明：定义几个变缱，存放参数。在没　的滚动时　

问内，目标１　域随机滚动，　在对应　域　爪参数文字　

（相火参数住冈２所示ｆＴ４ｊ￣［ｔ应区域设置），停止后ｇ４单　

元格』Ｊ『ｌ　ｌ，以统计抽奖次数，便于后面保存抽奖记录　、　

３２“记录中奖名单”按钮　

卡¨关代码如下：　

Ｄｉｍ　ａ，ｂ，ｃ，ｄ，ｅ　Ａｓ　Ｓｔｒｉｎｇ　

６２　

２０

１７

龟ｋ

程．２技１ｌ巧

龟囊桷程技巧与簟护、．－　

桷

与簟　

Ｓｅｌｅｃｔｉｏｎ．Ｃｏｐｙ　

Ｓｈｅｅｔｓ．Ａｄｄ　Ａｆｔｅｒ：＝Ｓｈｅｅｔｓ（Ｓｈｅｅｔｓ．Ｃｏｕｎｔ）　

Ｓｅｌｅｃｔｉｏｎ．ＰａｓｔｅＳｐｅｃｉａｌ　Ｐａｓｔｅ：＝ｘｌＰａｓｔｅ￣／　ａｌｕｅｓ　

Ｏｐｅｒａｔｉｏｎ：＝ｘｌＮｏｎｅ，ＳｋｉｐＢｌａｎｋｓ　

：＝Ｆａｌｓｅ．Ｔｒａｎｓｐｏｓｅ：＝Ｆａｌｓｅ　

Ａｐｐｌｉｃａｔｉｏｎ．ＣｕｔＣｏｐｙＭｏｄｅ：Ｆａｌｓｅ　

ＡｃｔｉｖｅＳｈｅｅｔ．Ｎａｍｅ＝ａ＆ｂ＆Ｃ＆ｄ＆ｅ　

ＡｃｔｉｖｅＷｏｒｋｂｏｏｋ．Ｓａｖｅ　

ＭｓｇＢｏｘ”保存成功！ｌＩ　

Ｓｈｅｅｔｓ（“抽奖”）．Ｓｅｌｅｃｔ　

说明：定义变量存放　【，前时间及ｌ卡ＩＩＹ＜－参数、该按钮　

的功能在于将“拊Ｉ奖｝己求”保存到新建１－作＆　ｆ１．新建　

作　以抽奖时问抽奖次数和活动名称作为丧　（相关参　

数均　图２所４ｉｆｆｊ￣ｌｌｌ，；ＺＩｘ：域进行设置），保仔成功后自动　

返　“抽奖界面”，如果抽奖次数为零，！Ｉ！ｌＪ　会执行保存　

操作．即先要执行“抽奖”操作才能执行“保仔”操作。　

３．３“参数设置”、“返回抽奖页面”、“初始化抽奖次　

数”按钮　

代码分别为：　

（１）Ｓｈｅｅｔｓ（”名单及参数”）．Ｓｅｌｅｃ！；　（２）Ｓｈｅｅｔｓ　

（”抽奖”）．Ｓｅｌｅ｛－ｔ；　（３）Ｒａｌｌｇｅ（”ｇ４”）＝０　　、

说明：　“参数设置”和“返回抽奖贞　”两个按钮　

能够｝Ｉ：Ｈｊ户存使州的过程中快速进行一Ｉ　作衷的切换　、　

“卡７Ｊ始化抽奖次数”按钮会将抽奖次数归零　

４结语　

刈…抽奖”１＿　作表公式区域单元格进行锁定并隐　

藏，保护Ｉ　作表，将史什　存为启川宏的ｒ作簿，　经过　

测试　试用，该系统能够在Ｏｆｆｉｃｅ环境下　常使用，并　

具有界面简清、操作简　、通用实Ｈ】性强等优点　

参考文献　

【１】刘瑞新．ＶｉｓｕａｌＢａｓｋ－程序设计ｆＭ１．ｊ匕京：机械　Ｉ　

、ｉ　版幸Ｉ：．２００４．　

沈浩．Ｅｘｃｅｌ高级＾　川与数据分析ｆＭ１．北京：电　

子丁业　版衬：．２００８．