求助，如何实现库存自动计算？

cnzhangji

目的：
1、将“上日现货库存”的库存数量扣减完“当日现货成交”表的对应数量后（有对应的“关联批次号的”），连同“上日现货库存”表的红框里库存无变化（“当日现货成交”表里无对应关联批次号的）的其他数据一起写入“当日现货库存”表里，库存金额自动计算。
2、“当日现货成交”表里，没有“关联批次号”的，就证明是当日新成交的合同，直接将该表的蓝色框里的数据写入“当日现货库存”表的红色框里，作为当日现货库存的结转数，库存金额自动计算；

备注：
1、“当日现货成交”表里的关联批次号和关联单价，为“上日现货库存”表的批次号和单价。这两栏有数据，就证明该条现货成交记录是对应了上一日的库存进行销售或者采购的；
2、库存记录里允许有无货先销售的记录，比如“上日现货库存”表里的第10行的销售记录，以及“当日现货成交”表里的第20行，没有对应的关联号，也是新增的“先卖”的合同。
3、“当日现货成交”表里的“交易主体”也就是库存表里的“库存归属”。由于我方使用的不同的公司抬头成交的现货全部记录在日报表里，所以才这样设计。

如下图

库存自动计算

现货成交日报表-求助.rar (523.5 KB, 下载次数: 22)

2019-6-26 09:09 上传

点击文件名下载附件

cnzhangji

估摸着得用VBA来实现，所以，发到这里！

cnzhangji

朱荣兴 发表于 2019-6-26 09:08
欢迎新朋友，说明很详细，但是，缺少最关键的东西——附件，附件上传了又删除？？如果不方便上传附件，可以 ...

刚才在重新上传，可能正好您在试图打开附件！现在好了！
因为每天的库存数量不大，品种也不多，而且每天都需要报成交日报，所以，就以日报的形式来管理库存了，就有了以上想法。

cnzhangji

朱荣兴 发表于 2019-6-26 10:12
仅供参考
Sub 计算库存() '''QQ:705664849
Set d = CreateObject("scripting.dictionary")

谢谢版主！由于对VBA不懂，得慢慢啃一下！

cnzhangji

朱荣兴 发表于 2019-6-26 10:12
仅供参考
Sub 计算库存() '''QQ:705664849
Set d = CreateObject("scripting.dictionary")

版主，问个疑问：
定义了ar1, ar2范围后，那些单元格的地址是否像excel里那样为相对引用，因为当插入数据后，数据行数会增加，ar1和ar2的范围是否会自动扩大？

cnzhangji

朱荣兴 发表于 2019-6-26 11:35
肯定不会，其实，你现在把3个表格放到一个工作表内就是不合理的，可以考虑把它放到不同的工作表内

三张表放在不同的工作表内，对业务操作人员，不是很方便，比如他们要根据上一日的库存情况，来决定当日的销售策略，上一日的库存，在另一张表里，要切换来切换去（或者每天打印出来），不如放在一张表里直观。