库存管理

lhsh36183

一指禅62 发表于 2018-5-28 08:28
附件不一致啊！

老师好，是我传错了。不好意思。我只是想说明提示出错，见截图。

a18b88

谢谢楼主分享，使用简单方便快捷。

一指禅62

lhsh36183 发表于 2018-5-28 08:30
老师好，是我传错了。不好意思。我只是想说明提示出错，见截图。

仅凭截图，我的判断是：d.keys的条目太多.

听雨的刀

比较强，顶一下,就是出入库没有规格，如同品名不同规格怎么进行计算，并传到汇总表中。

ledou87

谢谢楼主的分享

heihuasn

感谢分享，谢谢。

zhougencai

谢谢楼主的分享！

tobycn1

一指禅62 发表于 2018-5-28 08:42
仅凭截图，我的判断是：d.keys的条目太多.

DFG001汇总表的合计出错。这个怎么解决 连续购进4次应该合计为4

tobycn1

库存管理.rar (55.53 KB, 下载次数: 36)

2019-2-22 18:56 上传

点击文件名下载附件
合计错误

一指禅62

函数公式错了，应该为：

1.         If rs.RecordCount > 0 Then
   
2.             i = rs.RecordCount
   
3.             With Range("A5").Offset(i, 1)
   
4.                 .Value = "合计"
   
5.                 .Offset(0, 5).FormulaR1C1 = "=SUM(R5C:R" & i + 4 & "C7)"
   
6.                 .Offset(0, 8).FormulaR1C1 = "=SUM(R5C:R" & i + 4 & "C)"
   
7.                 .Offset(0, 11).FormulaR1C1 = "=SUM(R5C:R" & i + 4 & "C)"
   
8.                 .Offset(0, 14).FormulaR1C1 = "=SUM(R5C:R" & i + 4 & "C)"
   
9.             End With
   
10.             With Range("A5").Resize(i + 1, 16)
    
11.                 .Borders.LineStyle = xlContinuous
    
12.                 .Font.Size = 10 '字号，根据需要修改
    
13.             End With
    
14.         End If

复制代码