用VBA将全部组合与历史对比

laoau123

用VBA将全部组合与历史对比

香川群子

这个是33选6的彩票组合吧。一共1107568个组合，和1775期历史组合分别对比，进行统计。

题目很烦，估计没人愿意做。呵呵。

laoau123

香川群子 发表于 2016-8-29 12:33
这个是33选6的彩票组合吧。一共1107568个组合，和1775期历史组合分别对比，进行统计。

题目很烦，估计没 ...

其实不烦，好多懂VBA的人都做过

检验机器运算能力最佳选择，一次检测1107568个组合，普通计算机恐怕承受不起

所以要将将1107568个组合，拆分成10至20个工作薄再来检测，

香川群子

用递归算法产生组合，逐个检查并输出到txt文件。

耗时大约3分钟。

香川群子

一开始我也以为不能一下子计算全部组合，所以写了个分段计算的代码。

但是运行发现其实不用耗费很长时间。所以不需要分开计算的。

laoau123

香川群子 发表于 2016-8-29 15:38
用递归算法产生组合，逐个检查并输出到txt文件。

耗时大约3分钟。

这个有好多人写过，几分钟输出结果到EXCEL完全没有可能

原来函数也可以实现     传过公式版本看看     公式版  全部组合与历史对比

laoau123

香川群子 发表于 2016-8-29 15:40
一开始我也以为不能一下子计算全部组合，所以写了个分段计算的代码。

但是运行发现其实不用耗费很长时间 ...

这个要怎样提速

用VBA如何大提速这个速度太慢

http://www.excelpx.com/thread-424014-1-1.html

香川群子

laoau123 发表于 2016-8-29 17:17
这个有好多人写过，几分钟输出结果到EXCEL完全没有可能

原来函数也可以实现     传过公式版本看看     ...

你这个题目其实有两个问题：

1. 生成所有33选6的组合。这个问题不大。 （组合算法没有人能超过我。）

2. 每一个组合都要和历史记录比对。
   这个比对过程，相信我的算法也是最快的。比一般写法要快几倍。

laoau123

香川群子 发表于 2016-8-30 12:49
你这个题目其实有两个问题：

1. 生成所有33选6的组合。这个问题不大。 （组合算法没有人能超过我。）
...

这个当然了

不过你的结果输出到TXT，

但一般人结果输出到表格，