本期目标：制作一个简单的出入库登记表。 根据唯一字段条码，来登记入库数量，出库数量，自动计算库存数量。
效果图：
简单的出入库流水表
目标：手工输入条码和名称，输入入库或出库数量后，自动计算本期仓库余数，自动输入填写日期。
这个需要用到WorkSheet的Change事件。进入VBA界面。
我们的表格在Sheet1,单击选中
选中WorkSheet的Change事件后，会自动生成程序收尾
看代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 And Target.Column <> 5 Then Exit Sub
If Target.Row < 2 Then Exit Sub
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
Target.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其实是把集中的计算分开了。
想解决哪方面的问题，请给我留言。下期我想把这个表格做个下拉菜单，让输入简便化一些。
,
