请教各位老师工作上遇到的一个库存判断难题

jy03342543

请教各位老师库存同一产品被三个库存占有分了优先级如何才能根据销售来判断库存的销售

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   With Worksheets("sheet1")
   
4.     r = .Cells(.Rows.Count, 2).End(xlUp).Row
   
5.     arr = .Range("b2:h" & r)
   
6.     ReDim brr(1 To UBound(arr), 1 To 3)
   
7.     For i = 1 To UBound(arr)
   
8.       For j = 3 To 5
   
9.         If arr(i, j) < arr(i, 7) Then
   
10.           brr(i, j - 2) = arr(i, j)
    
11.           arr(i, 7) = arr(i, 7) - arr(i, j)
    
12.         Else
    
13.           brr(i, j - 2) = arr(i, 7)
    
14.           Exit For
    
15.         End If
    
16.       Next
    
17.     Next
    
18.     .Range("j2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
19.   End With
    
20. End Sub
    

复制代码

chxw68

简单问题。

jy03342543

chxw68 发表于 2018-1-24 11:35
简单问题。

太强了万分感谢！

jy03342543

brr(i, j - 2) = arr(i, j)
          arr(i, 7) = arr(i, 7) - arr(i, j)
        Else
          brr(i, j - 2) = arr(i, 7)
这几句非常关键也是核心思路 再次感谢让我学习到了这层逻辑关系