先进先出例子

a园园

做个先进先出，求大神支支招，给点思路

micch

先把表结构改了，做成流水表，也就是数量是一列，批号是一列，不要4列这种。 出入库作为一列。这样从上到下按顺序统计数量就行了

a园园

micch 发表于 2024-9-27 22:19
先把表结构改了，做成流水表，也就是数量是一列，批号是一列，不要4列这种。 出入库作为一列。这样从上到下 ...

名称是C列，入库是D列，出库是F列，是流水表

micch

我的意思是（个人习惯）这种结构统计没有那种标准表统计来的方便

一定要出库和出库登记在同一行，那就循环的时候走Z字形路好了。

用函数麻烦，代码，就是从上而下循环

a园园

修改了......

micch

a园园 发表于 2024-9-27 22:35
修改了......

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Column = 7 Then
   
3.     Product = Range("C" & Target.Row).Value
   
4.     ar = GetList(Product)
   
5.     Range("G:j").ClearContents
   
6.     Target.Resize(UBound(ar), 4).Value = ar
   
7. End If
   
8. End Sub
   
9. 
   
10. Function GetList(P0)
    
11.     With Sheet1
    
12.     r = .Cells(.Rows.Count, 2).End(3).Row
    
13.     ar = .Range("A1:F" & r).Value
    
14.     End With
    
15.     Dim d As New Dictionary
    
16.     ReDim br(0 To r, 1 To 4)
    
17.     br(0, 1) = "批号": br(0, 3) = "剩余库存"
    
18.     For i = 2 To UBound(ar)
    
19.         If ar(i, 3) = P0 Then
    
20.         If ar(i, 4) = "入库" Then '先入库才有出库
    
21.             code = ar(i, 6)
    
22.             If Not d.Exists(code) Then
    
23.                 j = j + 1
    
24.                 br(j, 1) = code
    
25.                 br(j, 3) = ar(i, 5)
    
26.             Else
    
27.                 k = d(code)
    
28.                 br(k, 3) = br(k, 3) + ar(i, 5)
    
29.             End If
    
30.         Else '出库
    
31.             v = ar(i, 5)
    
32.             For k = 1 To j
    
33.                 If br(k, 3) >= v Then '出库结束
    
34.                     br(k, 3) = br(k, 3) - v
    
35.                     Exit For
    
36.                 Else '先进的先出
    
37.                     v = v - br(k, 3)
    
38.                     br(k, 3) = 0
    
39.                 End If
    
40.             Next
    
41.         End If
    
42.         End If
    
43.     Next
    
44.     GetList = br
    
45. End Function
    

复制代码

micch

micch

如果入库批号不会重复，那么就不需要字典，字典是考虑入库批号可能多次入库做的入库叠加

micch

1. Function GetList(P0)
   
2.     With Sheet1
   
3.     r = .Cells(.Rows.Count, 2).End(3).Row
   
4.     ar = .Range("A1:F" & r).Value
   
5.     End With
   
6.     ReDim br(0 To r, 1 To 4): k = 1
   
7.     br(0, 1) = "批号": br(0, 3) = "剩余库存"
   
8.     For i = 2 To UBound(ar)
   
9.         If ar(i, 3) = P0 Then
   
10.         If ar(i, 4) = "入库" Then       '先入库才有出库
    
11.             j = j + 1
    
12.             br(j, 1) = ar(i, 6)
    
13.             br(j, 3) = ar(i, 5)
    
14.         Else '出库
    
15.             v = ar(i, 5)
    
16.             'Do循环好处是K记录有剩余库存的最早的批号
    
17.             '可以每次出库从记录位置开始出库，不用从头判断
    
18.             Do While v > 0 And k <= j
    
19.                 If v > br(k, 3) Then
    
20.                     v = v - br(k, 3)
    
21.                     br(k, 3) = 0
    
22.                     k = k + 1
    
23.                 Else
    
24.                     br(k, 3) = br(k, 3) - v
    
25.                     v = 0
    
26.                 End If
    
27.             Loop
    
28.         End If
    
29.         End If
    
30.     Next
    
31.     GetList = br
    
32. End Function
    

复制代码

a园园

入库批号会重复的

感谢大神，这么快就做出来了，我得要几天学会套用，不知道要多长时间才弄自己写出来