库存管理

一指禅62

明细表做相应修改（其他表估计也要做相应修改）

库存管理.rar (38.41 KB, 下载次数: 177)

2017-7-13 17:23 上传

点击文件名下载附件

一味清欢

楼主，我今天测试数据时发现，汇总表中相同的数据无法计算，您能帮忙看看什么原因吗？感谢感谢！！！

例如，A物品  入库两次都是12个  汇总以后不是24  是12。

一指禅62

一味清欢 发表于 2017-7-17 11:44
楼主，我今天测试数据时发现，汇总表中相同的数据无法计算，您能帮忙看看什么原因吗？感谢感谢！！！

例 ...

您说的情况我不太明白。
在 明细表  中显示为 2条 记录
在 汇总表  中显示为 本月收入 24
BUG:当前代码不区分 “年”，这倒是硬伤，请您注意。

一味清欢

https://h5.qzone.qq.com/ugc/share/E0C7D750DF931CA6BEB4F1699CD22D92?uw=1404588376&subtype=0&blog_photo=0&appid=311&ciphertext=E0C7D750DF931CA6BEB4F1699CD22D92&g_f=2000000393&_wv=1

突然上传不了附件，您看这个。。这三个图示同时拍的 ，，汇总表数据不对。。不知道为什么

一指禅62

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     Rem 明细表代码。第8行为上期结存，在A9单元格粘贴，并做相应计算
   
4.     If Target.Address = "$G$4" Then
   
5.         Sheet5.Protect UserInterfaceOnly:=True
   
6.         If Trim(Target.Value) <> "" Then
   
7.             Dim rs As New ADODB.Recordset, SQL$, R%, key$
   
8.             Range("A9:G65536").ClearContents
   
9.             Range("A9:G65536").Borders.LineStyle = xlNone
   
10.             SQL = "Select 月,日,凭证类,摘要,入库数量,出库数量 from [DataBase$] " & _
    
11.                 "where 物料编码='" & Trim(Target.Value) & "' order by 月,日,凭证类 asc"
    
12.             rs.Open SQL, cnn, 1, 3
    
13.             If rs.RecordCount > 0 Then
    
14.                 Range("A9").CopyFromRecordset rs
    
15.                 R = rs.RecordCount + 8
    
16.                 Range("G9:G" & R).FormulaR1C1 = "=R[-1]C7+RC5-RC6"
    
17.                 Range("D" & R + 1) = "合计"
    
18.                 Range("E" & R + 1 & ":F" & R + 1).FormulaR1C1 = "=SUM(R8C:R" & R & "C)"
    
19.                 Range("A8:G" & R + 1).Borders.LineStyle = xlContinuous
    
20.             End If
    
21.             rs.Close
    
22.             Set rs = Nothing
    
23.         End If
    
24.     End If
    
25. End Sub

复制代码

因没有时间，其他表未做修改。

bxchunxu

这个作用不是很大，但是很不错了。

皇者之疯

感谢楼主分享，学习

尼克松

经过删除期初、出入库明细后，出现较多问题。  例如。 1.打开主界面时，点击相应的物料号，获取不了当前的库存量。  2.打开明细帐，选择对应的物料编码也没带出对的库存量。  3.打开汇总表，选择对应的月份也没显示。

Exlm

一指禅62 发表于 2017-7-13 17:23
明细表做相应修改（其他表估计也要做相应修改）

学习学习~~谢谢分享

开口笑pe

感谢楼主的分享