在VBA中，如何编写入库单保存之代码？

1、实例【运行保存代码，物料明细保存至【入库明细】工作表中！】

2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!

3、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！

4、会弹出模块编辑窗口！

5、在代码编辑窗口输入以下代码：

Sub 保存()

On Error GoTo 100

Dim es As Range, m%

If Sheet2.Columns("g").Find([b2]) = [b2] Then

  MsgBox "已经保存过了！"

Else

100:

  Set es = Cells.Find("*", , xlValues, , xlByRows, xlPrevious)

  m = Application.CountA(Sheet2.[a:a])

  n = es.Row

  If es.Row = 4 Then

    MsgBox "没有填写内容！"

  Else

    Range([a5], es).Copy Sheet2.Cells(m + 1, 1)

    Sheet2.Cells(m + 1, "g").Resize(es.Row - 4) = [b2]

    Sheet2.Cells(m + 1, "h").Resize(es.Row - 4) = [e2]

    Sheet2.Cells(m + 1, "i").Resize(es.Row - 4) = Now()

  End If

End If

End Sub

6、在工作表界面，【开发工具】菜单下，点击【插入】按钮，填加一表单，与保存代码相关联，并命名为【保存】！

7、点击【保存】按钮，物料信息瞬间被保存至入库明细工作表中！