如何用VBA做一个进销存

shywxiaodong

请教各位大神，如何能用VBA做一个简单的进销存，如附加
附件中一共有4张表格，期初库存、采购入库、销售出库、以及最后需要的库存报表

解释：期初库存其实上是上月结存的库存
        采购入库时本期采购入库的产品
        销售出库时本期销售的产品
注：同一sku产品可能有不同的kpc和so（kpc和so是唯一对应的）
目标：如何实现一键自动生成实时库存报表，库存量为0的产品自动不显示。

shywxiaodong

初学VBA，希望各位大神予以指导，谢谢！

鄂龙蒙

《库存报表》中的E列日期要啥用？！

shywxiaodong

鄂龙蒙 发表于 2019-5-28 18:33
《库存报表》中的E列日期要啥用？！

因为产品特性，日期需要体现一下。是生产日期，跟着最初的入库一起进来的

shywxiaodong

朱荣兴 发表于 2019-5-29 09:36
没有细看，自己测试
Sub kucunb() '''QQ:705664849
Set d = CreateObject("scripting.dictionary")

灰常感谢大神，有一个数量要是0的话，我想整行不显示，该加个什么代码呢？

shywxiaodong

朱荣兴 发表于 2019-5-29 14:19
那个数据？这种说法非常模糊

就是库存报表里面最后一列的数值为0的时候，就表示这行产品没有库存了，我不需要显示0库存的产品

于箱长

shywxiaodong 发表于 2019-5-29 13:21
灰常感谢大神，有一个数量要是0的话，我想整行不显示，该加个什么代码呢？

1. Sub 隐藏空行()
   
2.     Dim x As Range, rng As Range
   
3.     a = Range("f65536").End(xlUp).Row
   
4.     For Each x In Range("f2:f" & a)
   
5.         If x = 0 Then
   
6.             If rng Is Nothing Then Set rng = x Else Set rng = Union(rng, x)
   
7.         End If
   
8.     Next
   
9.     If Not rng Is Nothing Then rng.EntireRow.Hidden = True
   
10. End Sub
    

复制代码

如果数量得0，隐藏空行