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

jerry3770

longwin 发表于 2024-6-1 15:46
以下供参考，可以两个组一起排出来了
Sub pc()
Set sh = ActiveSheet

Range(sh.Cells(10, 1), sh.Cells(l, c)) = arr 老师这一句是将整个ARR数组的值给到了A10:**区域，我只想提取ARR算出的结果给到X10:**,请教该怎么写。谢谢

longwin

jerry3770 发表于 2024-6-3 15:11
Range(sh.Cells(10, 1), sh.Cells(l, c)) = arr 老师这一句是将整个ARR数组的值给到了A10:**区域，我只想 ...

那就要循环赋值给另外一个数组再写入了。
目前这样有什么问题吗？

longwin

ReDim xrr(1 To UBound(arr, 1), 1 To c - 23)
For i = 1 To UBound(arr)
     For j = 24 To c
        xrr(i, j - 23) = arr(i, j)
     Next
Next
sh.Range(sh.Cells(10, 24), sh.Cells(l, c)) = xrr

jerry3770

longwin 发表于 2024-6-3 15:24
ReDim xrr(1 To UBound(arr, 1), 1 To c - 23)
For i = 1 To UBound(arr)
     For j = 24 To c

没问题了  结果正确  太谢谢您了。我以为是可以直接赋值，原来要给再另一个数组呢，谢谢 学习了

jerry3770

longwin 发表于 2024-6-3 15:24
ReDim xrr(1 To UBound(arr, 1), 1 To c - 23)
For i = 1 To UBound(arr)
     For j = 24 To c

老师，您好。有个BUG，您是通过组别来识别最大产能的，实际应该是有双条件：1组别，2产品型号。所以这里出错了。

longwin

我只写了两个组，你可以对照改一下就好了

jerry3770

longwin 发表于 2024-6-4 15:39
我只写了两个组，你可以对照改一下就好了

是的  我多加了几个组，最后发现当一个组安排两个产品型号（BBB,CCCC）排产时（标准工时也有两个），就统统按最后一行的标准工时计产能了。这里好复杂了  我研究了好久，无法解决。

jerry3770

longwin 发表于 2024-6-4 15:39
我只写了两个组，你可以对照改一下就好了

传上附件  您再帮我看看能不能改了。再次谢谢

longwin

注意，把这里只写上组名：

jerry3770

longwin 发表于 2024-6-4 16:21
注意，把这里只写上组名：

老师，组名都能对应上。一组双型号投产时结果不正确，如图