史上最酷的Excel VBA 组合算法 代码

香川群子

ak47ok 发表于 2014-8-2 23:18
见识了复川老师的神功，看看老师能否用VBA写出m因素n水平的所有排列组合

劳您费神了，感谢！！！

如果是组合，只有105种：

1,1,1,1,1,1,1,1,1,1,1,1,1
1,1,1,1,1,1,1,1,1,1,1,1,2
1,1,1,1,1,1,1,1,1,1,1,1,3
1,1,1,1,1,1,1,1,1,1,1,2,2
1,1,1,1,1,1,1,1,1,1,1,2,3
1,1,1,1,1,1,1,1,1,1,1,3,3
1,1,1,1,1,1,1,1,1,1,2,2,2
1,1,1,1,1,1,1,1,1,1,2,2,3
1,1,1,1,1,1,1,1,1,1,2,3,3
1,1,1,1,1,1,1,1,1,1,3,3,3
1,1,1,1,1,1,1,1,1,2,2,2,2
1,1,1,1,1,1,1,1,1,2,2,2,3
1,1,1,1,1,1,1,1,1,2,2,3,3
1,1,1,1,1,1,1,1,1,2,3,3,3
1,1,1,1,1,1,1,1,1,3,3,3,3
1,1,1,1,1,1,1,1,2,2,2,2,2
1,1,1,1,1,1,1,1,2,2,2,2,3
1,1,1,1,1,1,1,1,2,2,2,3,3
1,1,1,1,1,1,1,1,2,2,3,3,3
1,1,1,1,1,1,1,1,2,3,3,3,3
1,1,1,1,1,1,1,1,3,3,3,3,3
1,1,1,1,1,1,1,2,2,2,2,2,2
1,1,1,1,1,1,1,2,2,2,2,2,3
1,1,1,1,1,1,1,2,2,2,2,3,3
1,1,1,1,1,1,1,2,2,2,3,3,3
1,1,1,1,1,1,1,2,2,3,3,3,3
1,1,1,1,1,1,1,2,3,3,3,3,3
1,1,1,1,1,1,1,3,3,3,3,3,3
1,1,1,1,1,1,2,2,2,2,2,2,2
1,1,1,1,1,1,2,2,2,2,2,2,3
1,1,1,1,1,1,2,2,2,2,2,3,3
1,1,1,1,1,1,2,2,2,2,3,3,3
1,1,1,1,1,1,2,2,2,3,3,3,3
1,1,1,1,1,1,2,2,3,3,3,3,3
1,1,1,1,1,1,2,3,3,3,3,3,3
1,1,1,1,1,1,3,3,3,3,3,3,3
1,1,1,1,1,2,2,2,2,2,2,2,2
1,1,1,1,1,2,2,2,2,2,2,2,3
1,1,1,1,1,2,2,2,2,2,2,3,3
1,1,1,1,1,2,2,2,2,2,3,3,3
1,1,1,1,1,2,2,2,2,3,3,3,3
1,1,1,1,1,2,2,2,3,3,3,3,3
1,1,1,1,1,2,2,3,3,3,3,3,3
1,1,1,1,1,2,3,3,3,3,3,3,3
1,1,1,1,1,3,3,3,3,3,3,3,3
1,1,1,1,2,2,2,2,2,2,2,2,2
1,1,1,1,2,2,2,2,2,2,2,2,3
1,1,1,1,2,2,2,2,2,2,2,3,3
1,1,1,1,2,2,2,2,2,2,3,3,3
1,1,1,1,2,2,2,2,2,3,3,3,3
1,1,1,1,2,2,2,2,3,3,3,3,3
1,1,1,1,2,2,2,3,3,3,3,3,3
1,1,1,1,2,2,3,3,3,3,3,3,3
1,1,1,1,2,3,3,3,3,3,3,3,3
1,1,1,1,3,3,3,3,3,3,3,3,3
1,1,1,2,2,2,2,2,2,2,2,2,2
1,1,1,2,2,2,2,2,2,2,2,2,3
1,1,1,2,2,2,2,2,2,2,2,3,3
1,1,1,2,2,2,2,2,2,2,3,3,3
1,1,1,2,2,2,2,2,2,3,3,3,3
1,1,1,2,2,2,2,2,3,3,3,3,3
1,1,1,2,2,2,2,3,3,3,3,3,3
1,1,1,2,2,2,3,3,3,3,3,3,3
1,1,1,2,2,3,3,3,3,3,3,3,3
1,1,1,2,3,3,3,3,3,3,3,3,3
1,1,1,3,3,3,3,3,3,3,3,3,3
1,1,2,2,2,2,2,2,2,2,2,2,2
1,1,2,2,2,2,2,2,2,2,2,2,3
1,1,2,2,2,2,2,2,2,2,2,3,3
1,1,2,2,2,2,2,2,2,2,3,3,3
1,1,2,2,2,2,2,2,2,3,3,3,3
1,1,2,2,2,2,2,2,3,3,3,3,3
1,1,2,2,2,2,2,3,3,3,3,3,3
1,1,2,2,2,2,3,3,3,3,3,3,3
1,1,2,2,2,3,3,3,3,3,3,3,3
1,1,2,2,3,3,3,3,3,3,3,3,3
1,1,2,3,3,3,3,3,3,3,3,3,3
1,1,3,3,3,3,3,3,3,3,3,3,3
1,2,2,2,2,2,2,2,2,2,2,2,2
1,2,2,2,2,2,2,2,2,2,2,2,3
1,2,2,2,2,2,2,2,2,2,2,3,3
1,2,2,2,2,2,2,2,2,2,3,3,3
1,2,2,2,2,2,2,2,2,3,3,3,3
1,2,2,2,2,2,2,2,3,3,3,3,3
1,2,2,2,2,2,2,3,3,3,3,3,3
1,2,2,2,2,2,3,3,3,3,3,3,3
1,2,2,2,2,3,3,3,3,3,3,3,3
1,2,2,2,3,3,3,3,3,3,3,3,3
1,2,2,3,3,3,3,3,3,3,3,3,3
1,2,3,3,3,3,3,3,3,3,3,3,3
1,3,3,3,3,3,3,3,3,3,3,3,3
2,2,2,2,2,2,2,2,2,2,2,2,2
2,2,2,2,2,2,2,2,2,2,2,2,3
2,2,2,2,2,2,2,2,2,2,2,3,3
2,2,2,2,2,2,2,2,2,2,3,3,3
2,2,2,2,2,2,2,2,2,3,3,3,3
2,2,2,2,2,2,2,2,3,3,3,3,3
2,2,2,2,2,2,2,3,3,3,3,3,3
2,2,2,2,2,2,3,3,3,3,3,3,3
2,2,2,2,2,3,3,3,3,3,3,3,3
2,2,2,2,3,3,3,3,3,3,3,3,3
2,2,2,3,3,3,3,3,3,3,3,3,3
2,2,3,3,3,3,3,3,3,3,3,3,3
2,3,3,3,3,3,3,3,3,3,3,3,3
3,3,3,3,3,3,3,3,3,3,3,3,3

香川群子

ak47ok 发表于 2014-8-2 23:18
见识了复川老师的神功，看看老师能否用VBA写出m因素n水平的所有排列组合

劳您费神了，感谢！！！

如果是排列，则结果总数=3^13=1594323
而不是=13^3=2197

代码很简单，但结果总数太多，毫无实用价值。

算法参考【香川多列组合】
代码如下：

1. Dim sj, jg(), m&, n&, k&, rw&, cl&
   
2. Sub 香川组合_多列重复()
   
3.     tms = Timer
   
4.     m = 3: n = 13
   
5.     rw = 50000 '设定每5万行输出结果
   
6.     ReDim jg(rw, n)
   
7.    
   
8.     k = 0: cl = 0: tms = Timer
   
9.     Call dgMN2(1) '调用【香川多列组合】算法的递归过程
   
10.    
    
11.     Cells(1, (n + 1) * cl + 1).Resize(k, n + 1) = jg '输出最后一组结果
    
12.    
    
13.     MsgBox Format(Timer - tms, "0.000s ") & Format(rw * cl + k, "#,##0")
    
14. End Sub
    
15. 
    
16. Sub dgMN2(j&)
    
17.     Dim i&
    
18.     For i = 1 To m
    
19.         jg(k, j) = i
    
20.         If j = n Then
    
21.             For l = 1 To n
    
22.                 jg(k + 1, l) = jg(k, l)
    
23.             Next
    
24.             k = k + 1
    
25.             If k = rw Then
    
26.                 Cells(1, (n + 1) * cl + 1).Resize(rw, n + 1) = jg
    
27.                 For l = 1 To n
    
28.                     jg(0, l) = jg(k, l)
    
29.                 Next
    
30.                 k = 0: cl = cl + 1
    
31.             End If
    
32.         Else
    
33.             Call dgMN2(j + 1)
    
34.         End If
    
35.     Next
    
36. End Sub

复制代码

ak47ok

香川群子 发表于 2014-8-3 11:06
如果是排列，则结果总数=3^13=1594323
而不是=13^3=2197

谢谢复川老师，
受教育了，没办法我水平有限、闹笑话了。

因为不懂正交设计的，想通过此法来组合一个大的正交表。

再次感谢！

ak47ok

香川群子 发表于 2014-8-3 10:34
如果是组合，只有105种：

1,1,1,1,1,1,1,1,1,1,1,1,1

还是要请教老师：如果是想设计正交表、是否只用组合中来按正交设计规则来优选就行了？

能用VBA直接生成正交表的组合列表吗？这里代码要考虑如何取舍数据了吧？

还请复川老师费神。谢谢指导！！

ak47ok

原来正交设计是按排列来设计的，真是高难度。

香川群子

ak47ok 发表于 2014-8-3 11:59
谢谢复川老师，
受教育了，没办法我水平有限、闹笑话了。

正交试验设计完全不是你想象的那样子……


你是想预测足彩 13组合吧……别瞎想了，白费劲。

ak47ok

香川群子 发表于 2014-8-3 14:42
正交试验设计完全不是你想象的那样子……

这个明白，没能力瞎想是没用的，
足彩的没有玩过、
我可是怀着崇高理想来学习这正交的，呵呵！
请看我的足迹：
http://club.excelhome. net/forum.php?mod=viewthread&tid=328031&page=1
http://club.excelhome.net/thread-924110-1-1.html
http://club.excelhome.net/forum.php?mod=viewthread&tid=917122
想搞个24因素5水平的正交表、但至今未理想。
是用VBA自动来按正交表的运算结果。
再次谢谢复川老师！

1578278106

群子太厉害了。

陈文华

香川群子 发表于 2013-7-4 22:05
公布代码，有兴趣可以一起探讨：

老师，我下载了，好好的学习。

EXCEL江湖

香川老师厉害，膜拜！