2014新年元旦第一强帖：实用凑数凑金额高效递归剪枝算法

朱勋升

老师您可以收我做徒弟吗？

朱勋升

我已经被你的计算方法沦陷了，我不想去掉重复值？

hangapple

真的非常感谢了 先用上 用几天看看到底怎么实现的

ericjun1977

这个可以解决某些金额不限制是否重复取出的情况吗，如a1+4a2=n的情况

香川群子

ericjun1977 发表于 2018-5-29 21:58
这个可以解决某些金额不限制是否重复取出的情况吗，如a1+4a2=n的情况

你说的问题是：求多元一次方程的整数（系数）解。

例如： aX+bY=C
已知 X、Y、C的值，求满足方程的整数a、b组合。

…………
这个问题我也早已解决了。

cassie.cai

求问大神能不能输出凑数组合各个数字的序号，并每个单元格分开显示呢
向 1 2 8 9 10 2 5 4   求和为10 的  假设一组结果是1+2+2+5  则 输出1 2 6 7（序号）。  

香川群子

cassie.cai 发表于 2018-6-25 21:27
求问大神能不能输出凑数组合各个数字的序号，并每个单元格分开显示呢
向 1 2 8 9 10 2 5 4   求和为10 的  ...

当然可以，但一般没必要，没意义。

你可以根据结果，再反推就是了。（用字典匹配）

为什么不在过程中做这个呢？
因为大量的组合其实是无效的，每个组合都要记录组合序号，这么做就会降低计算速度。

所以，在最后符合条件结果出来之后，根据需要整理，才是正确高效的做法。

我忘了是几楼了，好像已经公布过解决的代码。
根据组合结果用字典反查原始数据序号，是很容易的。

大致是在Sheet页面模块中，加入下面代码，点击组合即可标出该组合的位置、
你稍微修改一下就可以变成输出序号了。

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Count > 1 Then Exit Sub
   
3.     If Target.Column <> 8 Then Exit Sub
   
4.     If Target = "" Then Exit Sub
   
5.    
   
6.     m = Range("A1").End(xlDown).Row
   
7.     Range("A1").Resize(m).Interior.ColorIndex = 0
   
8.     If Target.Row = 1 Then Exit Sub
   
9.    
   
10.     sj = Range("A1").Resize(m)
    
11.     Set d = CreateObject("Scripting.Dictionary")
    
12.     For i = m To 2 Step -1
    
13.         d(CStr(sj(i, 1))) = i
    
14.     Next
    
15.    
    
16.     t = Split(Target, "+")
    
17.     For i = 1 To UBound(t)
    
18.         Cells(d(t(i)), 1).Interior.ColorIndex = 6
    
19.     Next
    
20.    
    
21. End Sub
    

复制代码

huangxiaoyao

香川群子 发表于 2014-1-1 15:07
彭版出的题目的帖子
http://club.excelhome.net/forum.php?mod=viewthread&tid=151178&page=7#pid6353576
...

http://club.excelhome.net/thread-1421464-1-1.html老大帮忙看看这个帖子下撒

starryest

香川群子 发表于 2018-5-30 09:20
你说的问题是：求多元一次方程的整数（系数）解。

例如： aX+bY=C

请问这个问题在哪里解决了，是一楼的文件就可以自动运用一个数的重复值吗？

香川群子

starryest 发表于 2018-6-26 15:01
请问这个问题在哪里解决了，是一楼的文件就可以自动运用一个数的重复值吗？

在我的其它帖子里解决了。

但是如果你自己找的话，比较难找到是吗？哈哈哈。