制作入库提交按钮

为了实现自动记账，我们需要制作一个入库提交按钮。首先，在“入库单”表中选择一个位置画出按钮控件，并将按钮文字更改为“入库提交”或“入库记账”。然后，右键点击按钮，在设置控件格式中可以根据个人喜好设置字体、字号和文字颜色。

插入模块

点击开发工具/代码/visual basic（或者按下ALT F11），弹出VB编辑窗口。在VB编辑器中选择插入，然后选择模块，会出现一个新的模块。

编写代码

在代码编辑窗口中写入以下代码：

Sub 入库提交()
    Dim a As Long
    a  IIf(Sheets("入库单").Range("P14")  "", Sheets("入库单").Range("P14").End(xlUp).Row, 14)
    Range("C5:W" amp; a).Select
    Sheets("数据库").Visible  True '显示数据库表
    Dim b As Long
    b  Sheets("数据库").Cells(, 1).End(xlUp).Row   1
    Sheets("数据库").Select
    Sheets("数据库").Cells(b, 1).Select
     Paste:xlPasteValues, Operation:xlNone, SkipBlanks:False, Transpose:False
      False '隐藏数据库表
    Sheets("入库单").Select
    Range("P5:P14")  "" '清空入库单中的数据
End Sub

指定入库提交宏

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

制作出库提交按钮

与制作入库提交按钮的步骤相似，我们也需要制作一个出库提交按钮。同样在“出库单”中选择一个位置画出按钮控件，并将按钮文字更改为“出库提交”。右键点击按钮，在设置控件格式中可以自定义字体、字号和文字颜色。

编写出库提交代码

在VB编辑窗口中写入以下代码：

Sub 出库提交()
    Dim a As Long
    a  IIf(Sheets("出库单").Range("U14")  "", Sheets("出库单").Range("U14").End(xlUp).Row, 14)
    Range("C5:W" amp; a).Select
    Sheets("数据库").Visible  True '显示数据库表
    Dim b As Long
    b  Sheets("数据库").Cells(, 1).End(xlUp).Row   1
    Sheets("数据库").Select
    Sheets("数据库").Cells(b, 1).Select
     Paste:xlPasteValues, Operation:xlNone, SkipBlanks:False, Transpose:False
      False '隐藏数据库表
    Sheets("出库单").Select
End Sub

指定出库提交宏

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

代码测试

现在，我们可以在入库单和出库单中录入数据。当点击“入库提交”或“出库提交”按钮时，系统会自动找到数据库中列A的最后一行，并将单据信息对应到数据库中的字段逐行写入。

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。