求一个函数公式或者VBA来计算每天的剩余库存数

天生懒美人

老师们，请教一下，有什么函数公式或者VBA可以帮我实际计算每天销售后的库存剩余数量，这个每天的剩余数量是对应产品的前一天的剩余数量-当天的已下单数量，具体请查看附件中的表格，谢谢！

3190496160

逻辑关系也到不是很复杂，但是，如果没哟上一天的呢？？？剩余库存取哪里的数据呢？？？？？

3190496160

Sub kucun()
With Sheets("单品每日监控")
    r = .Cells(Rows.Count, 18).End(xlUp).Row
    ar = .Range("r1:ad" & r)
    For i = 3 To UBound(ar)
        hh = ""
        If i > 3 Then
            rq = ar(i, 1) - 1
            For s = 3 To i - 1
                If ar(s, 1) = rq And Trim(ar(s, 6)) = Trim(ar(i, 6)) Then
                    hh = s
                    Exit For
                End If
            Next s
            If hh <> "" Then
                ar(i, 2) = ar(hh, 2) - ar(i, 13)
            End If
        End If
    Next i
    .Range("r1:ad" & r) = ar
End With
MsgBox "ok!"
End Sub

3190496160

psxk3535

函数的，就是可能复杂点，懂得太少，勿笑

蓝桥玄霜

库存的例子：
代码放在模块里

一把小刀闯天下

'假设"日期"R列升序，否则先手工排序。另外当前值是通过最近期库存计算而来的

'就是说并不一定是前一天，如果它不存在可能取的是再前面的某一天的数据并计算，就是最近期，，，

Option Explicit

Sub 库存计算()
  Dim arr, i, dic
  Set dic = CreateObject("scripting.dictionary")
  With Sheets("单品每日监控")
    arr = .Range("r3:ad" & .Cells(.Rows.Count, "w").End(xlUp).Row).Value
    For i = 1 To UBound(arr, 1)
      If Len(arr(i, 6)) > 0 And dic.exists(arr(i, 6)) Then arr(i, 2) = arr(dic(arr(i, 6)), 2) - arr(i, 13)
      dic(arr(i, 6)) = i
    Next
    .[r3].Resize(UBound(arr, 1), 2) = arr
  End With
End Sub

天生懒美人

3190496160 发表于 2021-3-7 10:56
逻辑关系也到不是很复杂，但是，如果没哟上一天的呢？？？剩余库存取哪里的数据呢？？？？？

如果是最开始的那一条记录，那就是手动输入，后面的就是从上一条记录去取剩余库存数据。

天生懒美人

一把小刀闯天下 发表于 2021-3-7 15:30
'假设"日期"R列升序，否则先手工排序。另外当前值是通过最近期库存计算而来的

'就是说并不一定是前一天 ...

感谢老师！对的，日期不一是前一天，所以，这个日期可以暂时忽略，只要取上一条记录的数据来当作减数就可以了。

天生懒美人

蓝桥玄霜 发表于 2021-3-7 12:53
库存的例子：
代码放在模块里

感谢版主
我试一下看看