用Excel制作抽奖软件

 

　　本来不想写此博客，但今天是休假后第一天上班，为了更快投入工作中，因此开写。。。

　　年前应厂内要求，用Excel中的VBA编写了此套抽奖软件。之后就想干脆制作一个通用的抽奖软件，这样以后只要更新名单便可以用。名单我们一般都是用Excel统计，所以这也是我选择用Excel制作的主要原因。

 

下载软件

 

开始上图：

抽奖主界面（因为是台资企业，所以是使用的是繁体，但代码中已改回简体了。界面也是在公司里调的，自己电脑上显示的不太美观）

 

后台设置界面（“更换抽奖界面背景”还是今天添加进去的）：

 

主要说下注意事项（其他的嘛，自己看界面就能一清二楚了）：

1、抽奖名单导入的时候请保留第一行的“工号”及“姓名”，即从第二行开始导入；

2、禁止把《System》工作表删除；

3、工作表名称请以“1月22日”或“1月22日一等奖”格式命名，eg：

4、本软件主要用Rnd随机函数来产生中奖名单，但当天内人员不会重复获奖；

5、每次选奖项时会自动保存数据。

 

插曲：

　　（1）一开始编写的软件，每次显示的时候都是从工作表中抓取并显示，很卡。后来想用内存数组解决，但又觉得几千人的名单太大了，经与Excel精英培训群内的群友交流后，毫无犹豫地改用了内存数组处理数据。这样就流畅多了，也同时感谢下那些群友。

　　（2）抽了三天的奖，结果我们部门二三十人才两人获奖，而且还是几块的水杯，真是杯具啊！（不过台资企业，你懂的）