跟我制作简易仓库系统：[5]入库出库自动记帐

画按钮： 打开我们前面设计的“入库单”表。依次点击“开发工具”选项卡/控件/插入/表单控件，选择“按钮”控件。

设置按钮格式： 在“入库单”表中任意位置，画出按钮控件。如图。右键点击按钮，将按钮文字更改为“入库提交”或“入库记帐”。再次右键点击按钮，在设置控件格式中，将字体字号、文字颜色等设置为自己喜爱的样式。

插入模块：点击开发工具/代码/visual basic，（或者AIT+F11)弹出VB编辑窗口。点击VB编辑器中的插入，选择模块点击，会出现一个新的模块。

编写代码：在代码编辑窗口写入如下代码 Sub 入库提交() Dim a As Long    a = IIf(Sheets("入库单").[P14] = "", Sheets("入库单").[P14].End(xlUp).Row, 14)      Range("C5:W" & a).Select      Selection.Copy      'Sheets("数据库").Visible = True '显示数据库表 Dim b As Long    b = Sheets("数据库").[B65536].End(xlUp).Row + 1    Sheets("数据库").Select    Sheets("数据库").Cells(b, 1).Select    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _        :=False, Transpose:=False    'ActiveWindow.SelectedSheets.Visible = False '隐藏数据库表    Dim c As Long    Sheets("入库单").Select     Range("P5:P14") = "" End Sub

指定“入库提交”宏： 在入库单中，右击入库提交按钮，点击指定宏，在宏列表中选取“入库提交”，确定。

出库提交按钮的制作步骤与上面完全一样。只是代码略有不同。 Sub 出库提交() Dim a As Long    a = IIf(Sheets("出库单").[U14] = "", Sheets("出库单").[U14].End(xlUp).Row, 14)      Range("C5:W" & a).Select      Selection.Copy      Sheets("数据库").Visible = True '显示数据库表 Dim b As Long    b = Sheets("数据库").[a65536].End(xlUp).Row + 1    Sheets("数据库").Select    Sheets("数据库").Cells(b, 1).Select    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _        :=False, Transpose:=False   ' ActiveWindow.SelectedSheets.Visible = False '隐藏数据库表    Sheets("出库单").Select End Sub

指定“出库提交”宏： 在出库单中，右击出库提交按钮，点击指定宏，在宏列表中选取“出库提交”，确定。

代码测试： 分别在入库单、出库单中录入数据，点击“入库提交”、“出库提交”按钮，系统会自动找到数据库中A列最后一行，并将单据信息对应数据库中的字段逐行写入。