凑数强化版【庆贺2021年5月9日母亲节】

香川群子

' 最后是计算完成后，选中第x行的N列或O列的组合结果单元格，然后点击按钮就可以在相应的行位置进行黄色高亮显示。

如果选中N列或O列的第一行，然后点按钮则消除黄色底色。

sdg1345

谢谢大佬分享，萌新前来膜拜学习。

aman1516

下载学习，向大侠致敬，可以说是“凑数最强版”了

山菊花

学习了，谢谢！
用十进制数计算模式，是不是可以省去小数位参数d，无须转换成整数？

缔造者

精品，赞一个！

lgcmeli

太厉害了               

香川群子

山菊花 发表于 2021-5-9 08:46
学习了，谢谢！
用十进制数计算模式，是不是可以省去小数位参数d，无须转换成整数？

我发现是这样子的。

十进制数的数值范围就是含小数位的，是不受浮点运算影响的变量类型。
不用考虑把小数位乘以倍数转换为整数就可以正常精确计算了。
附件索性把小数位参数给去掉了。

然后在E列增加了参数设置的简单说明。

香川群子

山菊花 发表于 2021-5-9 08:46
学习了，谢谢！
用十进制数计算模式，是不是可以省去小数位参数d，无须转换成整数？

双列凑数，虽然我改代码并没有用很多时间，但是对于凑数来说，真的是开拓了一个新的境界。

因为限定B列凑数在一个和值区间之后，C列关联数值仍可以有差异较大的结果。

那么排序之后就能筛选出比如：
如果关联值是成本，那么关联值之和最小，就是成本最低的组合，
或者关联值是利润，那么关联值之和最大，得到利润最大的组合。

山菊花

香川群子 发表于 2021-5-9 11:17
双列凑数，虽然我改代码并没有用很多时间，但是对于凑数来说，真的是开拓了一个新的境界。

因为限定B ...

双列凑数思路，有实际应用意义，赞！

递归过程dgH42()中，四处转换函数CDec()均可以省去。
如下面一句：
r2 = CDec(r + h2)
转换前，右侧数值r、h2均为十进制数，赋给变量r2后，r2类型自动转换为十进制：
r2 = r + h2
省去转换函数可提高速度。

香川群子

山菊花 发表于 2021-5-9 11:31
双列凑数思路，有实际应用意义，赞！

递归过程dgH42()中，四处转换函数CDec()均可以省去。

可以去掉。但是似乎对速度影响不大。

因为不加CDec()函数转换，VBA内部确实也会自动判断是十进制计算后进行相应的计算。
但是实际计算过程并不因此而省略时间。