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

qisile

标记一下，看看我需要多长时间的自学才能看懂

香川群子

qisile 发表于 2014-11-11 20:05
标记一下，看看我需要多长时间的自学才能看懂

如果有基础，也有兴趣，那么1-2天应该懂了。

如果基础一般，那么至少1个月。

如果完全没有基础，那么半年以上。

shine2012

香川群子 发表于 2014-11-12 10:21
如果有基础，也有兴趣，那么1-2天应该懂了。

如果基础一般，那么至少1个月。

我是VBA零基础，该从哪开始学，谢谢

笃行至

香川群子 发表于 2014-11-7 16:29
A组、B组的取数可以任意调整。
计算A组+B组各自组合取数之和，输出和值在目标范围内的所有结果。

香川群子老师，望您百忙之中帮我看看，若在上述附件中同时再增加几个组合筛选条件，即1、  4>=组合中偶数的个数>=3;    2、  4>= 组合中大于15的个数的>=3 ;   3、  1>=组合中连续数的个数>=0     如何解决？盼香川老师的指点！

补充内容 (2014-11-17 17:03):
香川群子老师，我已经等你3个礼拜了，你咋不回话呢？！

补充内容 (2014-11-20 11:07):
有木有高手，请回复！

香川群子

代码更新为目前最快速度版：

借鉴了lee1982的改进，把所有Do循环改为更加高效的For循环。
并且由于使用数组b记录、检查各个位置的上限，效率更高了。

1. Function Combin_kagawa(m&, n&)
   
2.     If n > m Or n < 1 Then Exit Function
   
3.     Dim i&, j&, j2&, k&, l&
   
4.    
   
5.     k = WorksheetFunction.Combin(m, n)
   
6.     ReDim c&(1 To k, 1 To n): k = 0
   
7.    
   
8.     If m = n Then
   
9.         For l = 1 To n: c(1, l) = l: Next
   
10.     ElseIf n = 1 Then
    
11.         For l = 1 To m: c(l, 1) = l: Next
    
12.     Else
    
13.         ReDim a&(0 To n), b&(1 To n)
    
14.         For j = 1 To n - 1
    
15.             a(j) = j: b(j) = m - n + j
    
16.         Next
    
17.         a(n - 1) = n - 2
    
18.         
    
19.         For j = n - 1 To 1 Step -1
    
20.             i = a(j) + 1: a(j) = i
    
21.             If i = b(j) Then
    
22.                 k = k + 1
    
23.                 For l = 1 To n: c(k, l) = a(l): Next
    
24.             Else
    
25.                 For j2 = j + 1 To n - 1: i = i + 1: a(j2) = i: Next
    
26.                 j = n
    
27.                 For i = i + 1 To m
    
28.                     a(n) = i: k = k + 1
    
29.                     For l = 1 To n: c(k, l) = a(l): Next
    
30.                 Next
    
31.             End If
    
32.         Next
    
33.     End If
    
34.     Combin_kagawa = c
    
35. End Function

复制代码

zhrihua

唉，我都不知把这代码如何用啊

舒云天

厉害，膜拜！

choesehae

留下脚印 需要时间消化!

默默彼得潘

太强悍了！！！