本篇文章利用Excel VBA编程实现随机产生单注双色球的功能，界面如下图，单击界面“按钮”调用宏程序随机产生6个红球数字和1个蓝球号码。

这里或许有必要说明一下双色球玩法规则：

Sheet1的第一行为表头，第二行存放随机选出的六个红球数字和蓝球数字。

最终效果如下：

视频加载中...

下面是该功能的实现过程：

Step1. Excel中新建一空文件（非空文件也可以，程序自动删除），Alt+F11进入VBA界面，如下图，在左侧栏新建模块（双色球）用于存放后面编辑的宏程序，这里宏的名字也是“双色球”。

下面该宏程序所有代码：

上面便是所有的宏程序代码。

注：大部分代码可以通过录制简单功能宏，获得借鉴。

Step7.添加按钮功能实现交互，通过单击按钮，调用宏程序。

“插入控件”》“按钮（窗体控件）”，在表格中拖动鼠标获得相应大小按钮图标，弹出的“指定宏”中设置所编辑的宏名，如下图。