黄容专辑第二书包网:我的双色球软件—用宏创建号码伴侣表

我的双色球软件—用宏创建号码伴侣表

双色球

软件

统计分析

excel

it

上次我们就会制作号码伴侣表了。只要在中奖表的单元格B9中输入1，将I1- AO1复制，将它贴到一个新工作表里：选中单元格右击-选择性粘贴-数据-确定。在中奖表的单元格B9中输入2，将I1- AO1复制，在新工作表里下一行单元格右击-选择性粘贴-数据-确定。这样依次做下去，能就得到一张33×33的中奖伴侣表了。当然上边和左侧的号码行列是预先输入的。

我很喜欢号码伴侣表，其实它最贴切的名字应该叫号码组合频率统计表。这张33×33的统计表上我们可以很方便地找到任意两个号码组合出现的频率，给我们选号提供适当的提示和参考。这1089个数据，尽管有528个数字是重复的，但还是给我们提供了浏览的方便。想一想，如果是528×2的横表或2×528的纵表，那多不方便啊。开奖不断地进行着，喜欢这张号码组合频率统计表的我就得不断地将它更新。现在中奖表更新已经很方便了，只要在数据表里插上一行，填上开奖号码，复制黏贴到中奖表就ok了。伴侣表要复杂得多，操作太多了。光出一行数据，我们要打开中奖表-选中单元格B9- 在B9中输入1-选中单元格 I1到 AO1-复制-打开号码组合表-选中单元格C3-右击-选择性粘贴-数据-确定。好家伙，共11次操作，出一张完整的伴侣表有要进行363次操作！历史上我曾经做过好多次这样的简单的重复操作，直到有一天我找到了宏！

关于宏，不是本日志可以简单说明白的。有兴趣的同道可以到互联网去搜一下教程，保管叫你看得满意到头痛的程度。这个过程对于我这种习惯于急用先学，立竿见影的人来说，真是太难为我了。但是学会录制宏，运行宏，其实是每一个稍有excel操作技能的人都能很容易学会的。在长达近一年的应用宏的过程中，一方面我享受着使用宏带来的操作愉悦，一方面我又常常被一个问题所困扰着：录制的宏难道就只能这样千篇一律重复着我示范过的操作吗！说明白一点，我想用宏来解决这样的问题：我有一系列数据，想把它们逐一输入到我预定的工作表中去进行统计，并能够将每一次统计结果逐一显示在我指定的工作表里。难道我非得去学编程吗？谢天谢地，我终于用宏解决了这个问题。有志举一反三深入运用宏的同道，可以在下面的标准操作里一覌门襟。不作他想的你就照此办理，ok！

准备工作一。首先我们得将VBA工具放到工具栏里以方便今后的使用。

点击工具-自定义-工具栏在visualBasic处打钩-关闭。

出现VBA工具图标-拖入工具栏

准备工作二。重命名一张工作表为伴侣表，并如图所示输入相关数据。在B1-AH1输入33-1，在B3-AH3输入1-33，在A4-A36输入1-33。

准备工作三。录制宏是一个非常细致的工作。你的每一个操作，包括多余的重复的错误的操作，它都会忠实地记录下来（真是SB！）。363次操作难免会有失误，我用两个方法来应对。其一是尽量用简单的宏来构建复杂繁琐的宏；其二是动手录制宏前先仔细定下标准操作流程。我们先来录制简单的宏伴侣1，它的标准操作流程如下：

宏伴侣1的标准操作流程

打开伴侣表-选中单元格 B4到AH4-插入-单元格-活动单元格下移-确定-选中单元格 B1-复制-打开中奖表-选中单元格 G9-粘贴-选中单元格 I1到AO1-复制-打开伴侣表-选中单元格 B4到AH4-选择性粘贴-数值-确定-选中单元格 B1-删除-右侧单元格左移-确定。

这个标准操作流程的精华在开始和结束的部分。我还记得，那一夜突来的灵感曾使我夜不能寐。简直和当年基辛格的心情差不多。为了中美建交的上海公报在台湾问题上难以楚辞时，基辛格绞尽脑汁后，忽然想到用“在台湾海峡两岸的所有中国人都认为只有一个中国”这句话来表述时高兴得跳了起来。呵呵，有点言过其实了。但对于我来说，长期困扰我的难题解决了。这样宏就可以自动地依次写入指定的数据，自动地依次记录下每次统计结果。

开始录制宏伴侣1，点击VBA图标上的●，出现录制新宏对话框。在宏名框内输入伴侣1-保存在当前工作簿-确定。见图。

出现结束停止按钮。

这个按钮到录制完后才按停，如不出现，结束时按工具栏里VBA图标中安全左边的■！

好，现在心无旁骛地按上面的标准操作流程进行操作，完了按停止按钮。确认无误后，我们再来重新设置伴侣表的第一行。从B1起连续输入33，32，…，1，33，32，…，1。也就是说，当宏伴侣表1运行33次后，第一行还有33个等待统计的数据！

可以现在就运行宏。点击工具栏里VBA图标中左边的三角形播放记号?，出现选择宏对话框，选中伴侣1-执行。

看看运行的结果，是不是很妙。好，在进行录制正式的宏伴侣表前，清除掉全部运行后留下的数据，千万千万！若有残留数据，无数次运行后，数据将会溢出，宏将停止工作！

宏伴侣表的标准操作流程：

点击VBA图标上的●-录制新宏对话框-在宏名框内输入伴侣表-保存在当前工作簿-确定-点击工具栏里VBA图标中左边的三角形播放记号?-出现选择宏对话框-选中伴侣1-执行。重复执行宏伴侣1共33次！-选中单元格B37-AH69（行数多一点无所谓）-编辑-清除-全部-选中单元格B1-AH1-复制-选中单元格AI1-BO1-粘贴-结束按钮。

开始操作吧。

宏的安全设置，我一般设置为中。那么每当打开工作簿和保存工作簿时都会有对话框出现，简单地确定就可以了。

这个宏伴侣表除了可以做2个号码组合的频率统计表外，当然可以做3个号码组合的频率统计。但一张表实在太大了，我将它分解成局部来处理。我们来做组合中最小的号码为1的3个号码组合的频率统计表。在中奖表里选中单元格B9，输入1，回到伴侣表（运行宏伴侣表时，打开伴侣表工作表才不出差错！！！），运行宏-伴侣表。统计表如下图。

删除第一行第一列就成了。怎样解读这张表，我想你懂的！我的心里正想着下次的标题呢：17选6PK33选6！