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

天生懒美人

boy8199 发表于 2021-3-8 17:41
这种问题 多数是因为 表格设计不合理导致的.

给你公式 照样是混乱的

谢谢，你说的我都懂。但是因为我想要的库存数据不多，而且为了方便综合去查看其它信息，所以没有再另外分开去做库存表了。

天生懒美人

一把小刀闯天下 发表于 2021-3-8 15:28
试一下，，，

谢谢师傅，这个好用。但是可不可以将它改成从上一条剩余库存（S列）的记录开始计算，再前面的是就直接不计算了，当对应的已下单数量（AD列）不为空时？

因为我前面那几天都没有去填数据，所以刚刚你的代码复制过去时，AD列一填充数据，然后S列的一整列的剩余库存数都为负数了

天生懒美人

psxk3535 发表于 2021-3-8 15:19
设置好就不用了每次更改了，不过有VBA可能更好一些

谢谢，是的，VBA好点。不过依然感谢您的帮助

boy8199

天生懒美人 发表于 2021-3-8 18:43
谢谢，你说的我都懂。但是因为我想要的库存数据不多，而且为了方便综合去查看其它信息，所以没有再另外分 ...

混乱.不便于分析.

出错 也不易被发现.   而且 业务 不会像你想的一样 一直不变.  这种 不通用的vba 非常容易出问题.

还有 你在表格里面 加的自动计算的代码, 都会不是特别合适的.

今天 省事,明天麻烦,尤其是 数据 累计 多了以后 再整理分析或变换 太麻烦了.

一把小刀闯天下

天生懒美人 发表于 2021-3-8 18:48
谢谢师傅，这个好用。但是可不可以将它改成从上一条剩余库存（S列）的记录开始计算，再前面的是就直接不 ...

无法处理，条件不够

首先R列升序（日期列），如果最近期相同编码2有剩余库存（S列），比如库存为1，但当前已下单数量为2怎么去处理，不处理不行因为满足条件了，但处理了结果为负，所以至少来说缺少条件

作为一个真实的问题应该不会出现这一情况的，因为库存都不够怎么可能还存下单数大于库存数的。可能你这R列不一定为升序，如果是这样确实会出现这种情况的，可以先给你按R列做一下升序处理的，，，

1391299131

s7公式{=SUMIFS($S$3:S6,$R$3:R6,MAX(IF($W$3:W6=W7,$R$3:R6,0)),$W$3:W6,W7)-AD7}

天生懒美人

一把小刀闯天下 发表于 2021-3-8 19:37
无法处理，条件不够

首先R列升序（日期列），如果最近期相同编码2有剩余库存（S列），比如库存为1，但 ...

R列的日期列可以忽略吗，只按它A列的品名，或者编码2来做查找的条件，如果一致的话，就用上一条记录（不管上一条记录的日期是什么）来做减数，并且，这个剩余库存数后期会手动增加，因为剩余的卖完了，会补充库存数进去的。我刚刚试了一下，你之前的代码，我只要在最顶上的那几列输入了库存数后，后面的我想手动修改剩余库存数为更多时, 它还是会采用代码自动计算的结果，这一点可以更改成可以手动输入数字吗？

天生懒美人

1391299131 发表于 2021-3-8 21:35
s7公式{=SUMIFS($S$3:S6,$R$3:R6,MAX(IF($W$3:W6=W7,$R$3:R6,0)),$W$3:W6,W7)-AD7}

非常感谢！SUMIFS的这个函数我也有考虑过，但是我不会组合使用，您这又给了我一个新思路。感谢！只不过我今天没有花花了，明天有花花的时候再给您奉上

一把小刀闯天下

天生懒美人 发表于 2021-3-8 22:25
R列的日期列可以忽略吗，只按它A列的品名，或者编码2来做查找的条件，如果一致的话，就用上一条记录（不 ...

'如果是最后一行可以实现，否则我理解不了。函数整体替换，自己先试一下

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

1391299131

天生懒美人 发表于 2021-3-8 22:27
非常感谢！SUMIFS的这个函数我也有考虑过，但是我不会组合使用，您这又给了我一个新思路。感谢！只不过我 ...

{=INDEX($S$3:S6,MATCH(MAX(IF($W$3:W6=W7,$R$3:R6,0)),IF($W$3:W6=W7,$R$3:R6,0),0))-AD7}