如何用VBA对合计金额凑明细金额（凑数）

dj5121766 · 发表于 2023-2-24 21:59

你要是像银行日记账和银行流水明细这样的对比，建议把同等条件的筛选到字典，然后用递归。

micch · 发表于 2023-2-25 12:01

excel333 发表于 2023-2-24 21:18
不用枚举，B列的明细数字只能用一次，用过的就不要再用了，也不用列出来有多少个组合，B列任意的数字凑成 ...

目的是要一个结果，但是对程序来说是要把所有的组合遍历，或者通过算法，加限制等方法遍历大部分的组合，运气好很快找到组合，运气不好跑死也得不到组合

excel333 · 发表于 2023-2-25 14:31

11楼、12楼说得对

apoul119 · 发表于 2023-6-9 12:33

老师您好，这个问题解决了吗？

excel333 · 发表于 2023-7-15 14:36

apoul119 发表于 2023-6-9 12:33
老师您好，这个问题解决了吗？

还没有答案

thtfzhaobo · 发表于 2023-7-16 11:28

你们不能在香川老师的基础上再加个循环，递归？得到一个答案，去除所用项，然后凑下一个，如未成功，提高未成功数操作优先级，还原优先级在它之下的所用项，再次计算。然后设置退出机制，优先级最高数无解，则无解。两个数反复调配，优先级是无解

thtfzhaobo · 发表于 2023-7-16 11:31

这是大体思路，我之前改过一版，勉强可以使。我这里实际用途比较少，没花时间优化思路和算法。希望有高手完善。

micch · 发表于 2023-7-16 11:49

如果有解了，希望能在EH看到结果，哪怕是不公开源码的结果也行。

有点像一维钢筋的下料，变成平面板材的下料，难度级别上升到非常大的一个程度。没有优化提速的算法会很难

thtfzhaobo · 发表于 2023-7-16 15:53

但是也解决不了楼主的那个问题。楼主的问题注定是无解的。尽可能多地存在很大的不确定性。每个数字都需要去排除多遍，是否有新的方案不影响，需要递归计算的次数无法估量。那需要再加一个循环去比较可以求出解的个数，以多的为结果。退出机制难以设定。

thtfzhaobo · 发表于 2023-7-16 16:07

当然以楼主题，如果不严谨的话，先做从小到大排序。循环一遍求解，每步剔除所用，无解跳过。或许也算一种不严谨的解法。

		自动登录	找回密码
密码			免费注册

[求助] 如何用VBA对合计金额凑明细金额（凑数）