本篇经验将和大家分享【在VBA中，如何编写入库单保存之代码？】
工具/原料
电脑壹台
OFFICE办公软件
方法/步骤
1、实例【运行保存代码，物料明细保存至【入库明细】工作表中！】
2、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visualbasic】!
3、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！
4、会弹出模块编辑窗口！
5、在代码编辑窗口输入以下代码：Sub保存()OnErrorGoTo100Di葡矩酉缸mesAsRange,m%IfS茑霁酌绡heet2.Columns("g").Find([b2])=[b2]ThenMsgBox"已经保存过了！"Else100:Setes=Cells.Find("*",,xlValues,,xlByRows,xlPrevious)m=Application.CountA(Sheet2.[a:a])n=es.RowIfes.Row=4ThenMsgBox"没有填写内容！"ElseRange([a5],es).CopySheet2.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()EndIfEndIfEndSub
6、在工作表界面，【开发工具】菜单下，点击【插入】按钮，填加一表单，与保存代码相关联，并命名为【保存】！
7、点击【保存】按钮，物料信息瞬间被保存至入库明细工作表中！
