本篇经验将和大家分享【在VBA中，如何编写入库单保存之代码？】工具/原料more电脑壹台OFFICE办公软件方法/步骤1/7分步阅读

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

2/7

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

3/7

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

4/7

会弹出模块编辑窗口！

5/7

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

Sub 保存()

On Error GoTo 100

Dim es As Range, m%

If Sheet2.Columns(g).Find() = Then

MsgBox 已经保存过了！

Else

100:

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

m = Application.CountA(Sheet2.)

n = es.Row

If es.Row = 4 Then

MsgBox 没有填写内容！

Else

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

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

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

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

End If

End If

End Sub

6/7

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

7/7

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