如何制作仓库收入支出明细表(怎么做仓库进出库存明细表)

本期目标：制作一个简单的出入库登记表。 根据唯一字段条码，来登记入库数量，出库数量，自动计算库存数量。

效果图：

简单的制作出入库流水表

目标：手工输入条码和名称，支出输做入入库或出库数量后，自动计算本期仓库余数，自动输入填写日期。

这个需要用到WorkSheet的Change事件。明细表进入VBA界面。

我们的表格在Sheet1,单击选中

选中WorkS仓库heet的Change事件后，会自动生成程序收尾

看代收入码：

Private Sub Workshe怎么et_Change(ByVal Target As Range)怎么 If Target.Column <> 4 And Ta制作rget.Column <> 5 Then Exit Sub If Target.Row < 2 Then Exit Su仓库b r = Target.Row arr = Range("a1:e" & r).Value For i = r To 2 Step -1 If arr(r, 2) = arr(i, 2) Then jin = jin arr(i, 4) 进出 chu = chu arr(i, 5) End If Next i Range("f" & r).Value = jin - chu Range("a" & r)如何.Value = Now库存() End Sub支出

程序功能：从输入行开始合计与本行条码一样的总进货数减去总出货数，然后填写到余数列，并写入日期。

为了减少误操作，我库存们可以设计一个限制区域，做光标移到日期列（第一列）和余数列（第6列）时，让光标自动移开。这在WorkSheet的SelectionChange事件里实现，前面步骤与选择Change事件一样，我们直接上代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 Then Targe明细表t.Offset(0, 进出1).Select Exit Sub End If If Target.Column = 6 Then Target.Offset(0, -1).Select Exit Sub End If如何 End Sub

最终效果

这个功能用公式也能收入实现，只是数据量稍微一大，会造成打开文件是卡顿，用VBA其实是把集中的计算分开了。

想解决哪方面的问题，请给我留言。下期我想把这个表格做个下拉菜单，让输入简便化一些。