按生产计划分摊交货数量

416469476

各位大侠，如何按生产计划自动分摊订单发货数量呢？

ykcbf1100

没看懂啊。
物料代码和生产计划间有啥关联呢？

LIUZHU

附件里面不是已经设置了公式了？

WANT-T

1.你的业务逻辑是什么？2.你描述的分摊口径是什么？最后再说如何自动的问题！

于箱长

这个就属于描述不清需求的贴子

于箱长

我用公式模拟一下，是不是这个意思？
N11=IF($G11>SUM($H11:H11),"",-($G11-SUM($H11:H11)))

fzxba

1. Sub test1()
   
2.   Dim ar, br
   
3.   Dim i As Long, j As Long, k As Long, n As Double
   
4.   With Range("G3")
   
5.     ar = Range(.End(xlDown), .End(xlToRight))
   
6.   End With
   
7.   br = Range("F11", Cells(Rows.Count, "A").End(xlUp))
   
8.   ReDim Preserve br(1 To UBound(br), 1 To 16)
   
9.   For i = 1 To UBound(br)
   
10.     br(i, 7) = Val(br(i, 5)) + Val(br(i, 6))
    
11.     For j = 2 To 4
    
12.       For k = 1 To 3
    
13.         br(i, j + 6) = br(i, j + 6) + Val(br(i, k + 1)) * Val(ar(k, j))
    
14.       Next
    
15.       br(i, 11) = br(i, 11) + br(i, j + 6)
    
16.     Next
    
17.     br(i, 12) = br(i, 7) - br(i, 11)
    
18.     If br(i, 12) < 0 Then
    
19.       n = Abs(br(i, 12))
    
20.       br(i, 13) = n
    
21.       For j = 10 To 8 Step -1
    
22.         If n >= br(i, j) Then
    
23.           br(i, j + 6) = br(i, j)
    
24.           n = n - br(i, j)
    
25.         Else
    
26.           If n Then br(i, j + 6) = n
    
27.           Exit For
    
28.         End If
    
29.       Next
    
30.     End If
    
31.   Next
    
32.   Range("A11").Resize(UBound(br), UBound(br, 2)) = br
    
33.   Beep
    
34. End Sub

复制代码

fzxba

审核不友好.rar (18.1 KB, 下载次数: 6)

2022-12-14 10:28 上传

点击文件名下载附件