请大佬帮忙优化VBA，自动选择最优数组

dearkw

有2个工作簿，其中“新日期”工作簿中的代码需要优化，另一个暂时没问题不需要改动。 测试22.rar (34.24 KB, 下载次数: 6)

2024-2-25 12:31 上传

点击文件名下载附件

我目前发现一个bug，
目前匹配找数值是根据单个数据来找的，并不会选择最优数组，假设“新日期”中单个数值低于总需求中的话就匹配不上。例如下面这个是我手动修改后的正确日期应该是这样，表格中逻辑是错的与总需求中的匹配不上。






以下是整理逻辑思路：


总逻辑：根据工作簿“总需求”中物料编码、组织和需求日期在工作簿“新日期”中对应的组织中寻找物料编码和数量（只能等于或者大于需求数量），修改其开工日期和工作簿“总需求”中物料编码需求日期一致。（可以单个数值或者多个数值搭配达到最优组合接近总需求的数值）。
1，如果工作簿“新日期”中对应组织和编码的单个数量不够可以选择多条数据凑数，选择最接近需求的数量。
2，如果选择最优数值的时候新日期中数值大于总需求的数值，则把多出的量再下一个日期中扣除，不然到最后新日期中总量会比总需求中高很多。比如总需求中单个物料编码2/25需求100，在新日期中找到最接近的数值是150，那就选择这个。多出的50在下一个需求日期中扣除，比如2/27需求200，扣除后实际需求150，不然每次多几十，最后总量就会多好几百几千。
3，两个工作簿中的物料编码和数值并不一致，只需要根据组织、物料编码找匹配得上的就行。
4，如果新日期工作簿中的数值总量低于总需求工作簿中的，则改完就可以了，剩余的需求匹配不上就算了。（这种情况是数据不够，只能是小于需求数量）。比如总需求单个物料编码总需求量是10000，但是新日期中物料编码总数值只有8000，那改完这8000就好了，剩余2000找不到数值就不用管了，