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

天生懒美人

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

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

师傅，你的这一段代码加到我原来的代码中去的话，应该怎么加呢？我表格中有代码，也就是你之前帮我弄的那一个，但是，我不知道如果要加入你这一段的话，应该怎么加，可以帮我加进去看看吗？

天生懒美人

3190496160 发表于 2021-3-7 11:08
Sub kucun()
With Sheets("单品每日监控")
    r = .Cells(Rows.Count, 18).End(xlUp).Row

谢谢老师，请问这段代码是写在模块中的还是写到表格中的呢？

天生懒美人

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

Hi 版主，我试了将你的这一段代码放在模块中测试了下，但是单元格不能自动计算出结果来当AD列的已下单数据变动（或者有数据时），请问这代码如何修改一下，才可以达到当AD列的已经单数据有变动时，S列的剩余库存数自动计算出结果来呢？

下面这一段代码是我根据你的代码截图手动打的，你帮忙看看是我手动打错了吗？

Sub lqxs()
Dim Arr, i&, aa, j%, kc, xd
Dim d, k, t
Set d = CreateObject("Scripting.Dictionary")
Sheet1.Activate
Arr = [a1].CurrentRegion
For i = 3 To UBound(Arr)
If Arr(i, 23) <> "" Then d(Arr(i, 23)) = d(Arr(i, 23)) & i & ","
Next
k = d.keys: t = d.items
For i = 0 To UBound(k)
t(i) = Left(t(i), Len(t(i)) - 1)
If InStr(t(i), ",") Then

aa = Split(t(i), ",")

kc = Arr(aa(0), 19)
For j = 1 To UBound(aa)
xd = Arr(aa(j), 30)
kc = kc - xd
Cells(aa(j), 19) = kc
Next
End If
Next
End Sub

天生懒美人

psxk3535 发表于 2021-3-7 11:47
函数的，就是可能复杂点，懂得太少，勿笑

非常感谢！我也有想过用index这函数，也想过用match，但是还是不大会运用，脑袋都想破了，就是破不了这个问题。明明感觉不复杂的东西，我就是想不出来应该如何灵活运用你比我厉害多了，虽然是函数，但是你这个函数确实可以计算出我想要的结果。只不过是每次都要填充函数而已。
再次感谢你的帮助！

psxk3535

天生懒美人 发表于 2021-3-8 00:07
非常感谢！我也有想过用index这函数，也想过用match，但是还是不大会运用，脑袋都想破了，就是破不了这个 ...

每次都要填充函数？

天生懒美人

psxk3535 发表于 2021-3-8 11:52
每次都要填充函数？

就是函数要每一个单元格都填充上才会出现结果呀，难道不是吗？

psxk3535

设置好就不用了每次更改了，不过有VBA可能更好一些

一把小刀闯天下

天生懒美人 发表于 2021-3-7 23:56
师傅，你的这一段代码加到我原来的代码中去的话，应该怎么加呢？我表格中有代码，也就是你之前帮我弄的那 ...

试一下，，，

求一个计算剩余库存数的函数公式.zip (32.51 KB, 下载次数: 33)

2021-3-8 15:28 上传

点击文件名下载附件

psxk3535

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

这个好，代码比较简洁，学习学习

boy8199

这种问题 多数是因为 表格设计不合理导致的.

给你公式 照样是混乱的

个人感觉,你参考一下:
应该 把 表分成两个.
一个表保留其他信息
一个表保留数量信息:一个月31列来汇总发出 或订单 用月初数 -月末 生成 库存.

或者

把表拆成32个 其中一个是汇总表. 每天一个 sheet

每个月 一个 文件.

授人以鱼不如授人以渔