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

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

4、编写代码：在代码编辑窗口写入如下代码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

6、出库提交按钮的制作步骤跤耧锿葡与上面完全一样。只是代码略有不同。Sub 出库提交()Dim a As Long a = IIf(She髫潋啜缅ets("出库单").[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("出库单").SelectEnd Sub

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