怎么根据每天的出入库记录，来实现实时库存

sinosky008

怎么根据每天的出入库记录，来实现实时库存；合格产品与不合格产品各自的库存量

maqiuhua

VBA可以实现，统计汇总

鄂龙蒙

是否有原库存？？？

maqiuhua

我是按照你的物料号来匹配的，良品和不良品分开的，另外你D列类型是空的我都按入库来处理的，S列空的我都按良品来处理的，看下是不是你所需要的
Sub shuju()
Dim brr()
Set d = CreateObject("scripting.dictionary")
  arr = Sheet1.Range("a2:s" & Sheet1.Range("a65536").End(xlUp).Row)
                  For a = 1 To UBound(arr)
                      If Not d.exists(arr(a, 7)) Then
                         n = n + 1
                         d(arr(a, 7)) = n
                         ReDim Preserve brr(1 To 11, 1 To n)
                            For b = 1 To 5
                                brr(b, n) = arr(a, b + 4)
                            Next
                                If arr(a, 4) = "出库" Then
                                   If arr(a, 19) = "不良品" Then
                                      brr(10, n) = arr(a, 12)
                                      brr(11, n) = -arr(a, 12)
                                   Else
                                      brr(7, n) = arr(a, 12)
                                      brr(8, n) = -arr(a, 12)
                                   End If
                                Else
                                   If arr(a, 19) = "不良品" Then
                                      brr(9, n) = arr(a, 12)
                                      brr(11, n) = arr(a, 12)
                                   Else
                                      brr(6, n) = arr(a, 12)
                                      brr(8, n) = arr(a, 12)
                                   End If
                                End If
                      Else
                         m = d(arr(a, 7))
                         If arr(a, 4) = "出库" Then
                                   If arr(a, 19) = "不良品" Then
                                      brr(10, m) = arr(a, 12) + brr(10, m)
                                      brr(11, m) = brr(11, m) - arr(a, 12)
                                   Else
                                      brr(7, m) = brr(7, m) + arr(a, 12)
                                      brr(8, n) = brr(8, m) - arr(a, 12)
                                   End If
                                Else
                                   If arr(a, 19) = "不良品" Then
                                      brr(9, m) = brr(9, m) + arr(a, 12)
                                      brr(11, m) = brr(11, m) + arr(a, 12)
                                   Else
                                      brr(6, m) = brr(6, m) + arr(a, 12)
                                      brr(8, m) = brr(8, m) + arr(a, 12)
                                   End If
                                End If
                       End If
                  Next
                  Sheet2.Range("a3:K10000").ClearContents
                  Sheet2.[a3].Resize(n, 11) = Application.Transpose(brr)
End Sub

david.li

maqiuhua 发表于 2018-2-27 14:41
我是按照你的物料号来匹配的，良品和不良品分开的，另外你D列类型是空的我都按入库来处理的，S列空的我都按 ...

请问能否给程序增加注释，谢谢

未来还有明天

人才，大神真多，牛气

xuemengke

大神，你好，我在你这基础上更改了，但是不能运用宏了，能帮我修改下吗