請教依序(日前接近的先扣)將庫存量扣除的寫法

adam2010

請問各位高手，我的原始檔案的D跟E欄位是庫存以及待入庫的量，H欄起是訂單需求日

下載 (68.25 KB)

2013-1-15 21:40

需要先整理為~
如:A001的庫存+待入庫=500，交期需求1/31=2593，調整為庫存+待入庫=0，交期需求1/31=2093
     A003的庫存+待入庫=700，交期需求1/30=500，調整為庫存+待入庫=200，交期需求1/30=0
     A005的庫存+待入庫=170，交期需求1/18=50,1/22=60,1/28=769，調整為庫存+待入庫=0，交期需求1/18=0,1/22=0,1/28=709

下載 (78.33 KB)

2013-1-15 21:40

扣庫存問題.rar (5.01 KB)

下載次數: 18

2013-1-15 21:40

stillfish00

回復 1# adam2010
看了好久才明白意思 , 就是把庫存物料分配到各訂單需求後扣掉?

1. Sub balance()
   
2. Dim rStart, rEnd, cStart, cEnd
   
3. Dim ar1, ar2
   
4. Dim minValue
   
5. 
   
6. rStart = 3  '物料開始列
   
7. rEnd = ActiveSheet.[a2].End(xlDown).Row - 1 '物料結束列
   
8. cStart = 8  '日期開始欄
   
9. cEnd = ActiveSheet.[a2].End(xlToRight).Column - 1 '日期結束列
   
10. 
    
11. With ActiveSheet
    
12.     ar1 = .Range(.Cells(rStart, "D"), .Cells(rEnd, "E")).Value  '庫存/待入庫 資料
    
13.     ar2 = .Range(.Cells(rStart, cStart), .Cells(rEnd, cEnd)).Value    '訂單需求資料
    
14.     For i = LBound(ar2, 1) To UBound(ar2, 1)
    
15.         For j = LBound(ar2, 2) To UBound(ar2, 2)
    
16.             minValue = Application.Min(ar2(i, j), ar1(i, 1))
    
17.             If minValue <> 0 Then
    
18.                 ar2(i, j) = ar2(i, j) - minValue
    
19.                 ar1(i, 1) = ar1(i, 1) - minValue
    
20.             End If
    
21.             
    
22.             minValue = Application.Min(ar2(i, j), ar1(i, 2))
    
23.             If minValue <> 0 Then
    
24.                 ar2(i, j) = ar2(i, j) - minValue
    
25.                 ar1(i, 2) = ar1(i, 2) - minValue
    
26.             End If
    
27.         Next
    
28.     Next
    
29.     '寫回工作表
    
30.     .Cells(rStart, "D").Resize(UBound(ar1, 1), UBound(ar1, 2)).Value = ar1
    
31.     .Cells(rStart, cStart).Resize(UBound(ar2, 1), UBound(ar2, 2)).Value = ar2
    
32. End With
    
33. End Sub

複製代碼

adam2010

感謝stillfish00大~沒錯!
真想叫您一聲~神
太感謝了!