多条拉，多产品，多班次，不同产能自动排产求助

jerry3770

多条拉，多产品，多班次，不同产能自动排产求助：根据条件   实现自动生成排产计划，求老师帮VBA代码来解，谢谢

LIUZHU

感觉这个问题做出来不容易，用程序做出来的计划恐怕不符合实际要求

集装袋

这不好做，这涉及到计算逻辑，写程序很简单，逻辑很麻烦

yjh_27

仅考虑4个因素，不考虑投产日期、要求完成日期？

jerry3770

yjh_27 发表于 2024-5-30 22:34
仅考虑4个因素，不考虑投产日期、要求完成日期？

老师,是的  不考虑的。当天的产能用完了就接下一天排产。

jerry3770

集装袋 发表于 2024-5-30 22:19
这不好做，这涉及到计算逻辑，写程序很简单，逻辑很麻烦

是的  我自己也在同步研究  每天都会上来看看。谢谢老师关注

jerry3770

LIUZHU 发表于 2024-5-30 18:45
感觉这个问题做出来不容易，用程序做出来的计划恐怕不符合实际要求

是的  逻辑是通知，我自己也在同步研究  每天都会上来看看。谢谢老师关注  

jerry3770

1.条件判断循环写入日产能到X6单元格到最后一格
2.如果分配投产数 as AA 大于当天产能  AS BB 就填入当天产能，当AA<BB AND AA>=0,k入AA 否则K入空
3.查找第二单最后一个非空格>0时执行，二次分配

longwin

建议把不同班组分别安排，以下逻辑供参考（未考虑班组）

Sub test()
    arr = Range("S10:S13")  '未完成数量
    brr = Range("X6:AT6")   '每天最大产能
    ReDim crr(1 To UBound(arr), 1 To UBound(brr, 2)) '存放结果
    For i = 1 To UBound(arr)
        sl = arr(i, 1)  '未排产数量
        For j = 1 To UBound(brr, 2)
            If sl = 0 Then Exit For
            If sl > brr(1, j) Then      '未排产数量 > 当天最大产能
                crr(i, j) = brr(1, j)       '当天按照最大产能排产
                sl = sl - brr(1, j)         '未排产数量=未排产数量-当天最大产能
                brr(1, j) = 0               '将当天剩余最大产能为0
            Else                              '如果未排产数量 <=当天最大产能
                crr(i, j) = sl                '安排剩余数量
                brr(1, j) = brr(1, j) - sl '当天剩余产能
                sl = 0
            End If
        Next
    Next
Range("X10:AT13") = crr
End Sub

jerry3770

longwin 发表于 2024-5-31 09:36
建议把不同班组分别安排，以下逻辑供参考（未考虑班组）

Sub test()

老师  我漏考虑了一个因素如图，可以重新帮我构一下吗。或者按您的思路您会怎么设计比较好呢。谢谢