2016 - 2024

感恩一路有你

在VBA中如何编写入库单保存代码的实例

浏览量:2497 时间:2024-03-16 07:37:07 作者:采采

在VBA中,编写入库单保存代码是一个常见的需求。通过以下实例,我们将分享如何在VBA中编写保存代码,将物料明细保存至入库明细工作表中。

运行保存代码,保存物料明细至入库明细工作表

首先,在工作表中点击菜单栏中的【开发工具】,然后在工具栏内找到并点击【Visual Basic】,这会进入VBA编辑界面。接着点击菜单栏中的【插入】选项,选择【模块】,会弹出模块编辑窗口。在代码编辑窗口中输入以下代码:

```vba

Sub 保存()

On Error GoTo 100

Dim es As Range, m%

If ("B").Find([B2]) [B2] Then

MsgBox "已经保存过了!"

Else

100: Set es ("*", , xlValues, , xlByRows, xlPrevious)

m (Sheet2.[A:A])

n

If 4 Then

MsgBox "没有填写内容!"

Else

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

Sheet2.Cells(m 1, "G").Resize( - 4) [B2]

Sheet2.Cells(m 1, "H").Resize( - 4) [E2]

Sheet2.Cells(m 1, "I").Resize( - 4) Now()

End If

End If

End Sub

```

关联保存表单与保存按钮

在工作表界面下的【开发工具】菜单中,点击【插入】按钮,添加一个表单,并与保存代码相关联。将该表单命名为【保存】。点击【保存】按钮,即可将物料信息瞬间保存至入库明细工作表中。

通过以上步骤,你可以轻松地在VBA中编写入库单保存代码,并实现将物料明细保存至指定工作表的功能。这对于提高工作效率和数据管理非常有帮助。希望这篇文章对你有所启发!

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