在VBA中如何编写入库单保存代码的实例
在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中编写入库单保存代码,并实现将物料明细保存至指定工作表的功能。这对于提高工作效率和数据管理非常有帮助。希望这篇文章对你有所启发!
版权声明:本文内容由互联网用户自发贡献,本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。