如何用VBA做出如下规划求解，请求大神帮助，谢谢了

liangsteven

如何用VBA做出如下规划求解，请求大神帮助，谢谢了！

个人水平实在有限，想结合数组方式解决，但发现就一个数组所有情况求和这步就卡住了，想法钻到牛角尖去了，希望大神帮助想想办法，我也好好跟着学习学习，无论思路还是代码，先谢谢了~~~

三坛老窖

在本站搜个凑数代码，再加个循环

liangsteven

三坛老窖 发表于 2017-4-2 14:45
在本站搜个凑数代码，再加个循环

凑数代码？我看看，谢谢

三坛老窖

liangsteven 发表于 2017-4-4 09:36
凑数代码？我看看，谢谢

和值和数据量都不太大的话，问题不大。
---------------------------------------------------
凑数（配色）.rar (21.61 KB, 下载次数: 71)

2017-4-9 16:37 上传

点击文件名下载附件

jsgj2023

学习老窖师傅的代码!

jjmysjg

留个记号，学习

香川群子

jsgj2023 发表于 2017-7-30 09:50
学习老窖师傅的代码!

这个凑数算法我看了，很原始的全组合计算，效率非常低。

如果数据量稍大，马上就会死翘翘。不值得学习。

jsgj2023

香川群子 发表于 2017-7-30 14:49
这个凑数算法我看了，很原始的全组合计算，效率非常低。

如果数据量稍大，马上就会死翘翘。不值得学习 ...

老师,您的代码我也在学习,只是因为缺少理论基础,有些代码就算是您已经给出注释了,我学起来依旧是十分吃力,不知如何是好?

lutom

三坛老窖 发表于 2017-4-9 16:37
和值和数据量都不太大的话，问题不大。
---------------------------------------------------

还可以哦，牛牛牛

素心1218

给你两个我自己的算法，供参考，不到之处，望批评指正。以34为例。
算法一：对F列进行升序排序（这个调用excel自动排序很快），排序后，读入数组。加数A从小于34的最后一个数开始，遍历加数B（B从最小数开始），如果遇到和大于34，遍历结束，A进行下一次循环遍历。如果刚好等于34，标色，并将响应数组元素归零。过程结束（规则如此），进行下一个数凑数。
优点：算法简单，从数据源头减少运算量。
算法二：两次遍历，将F列数读入数组A。第一次：用34减去数组A各元素（大于34的不用减）得到数组B，第二次，对B中元素在A中查找，存在则过程结束。进行下一个数，不存在先搁置，待所有数找完后，对剩余数进行查找：把B中元素作为查找值，继续查找和为B的A中元素。
优点，速度快，可用字典代替数组，方便处理。