制作自动化仓库入库单，数据录入、计算及保存只需一键完成

第一步：首先在表格中填写基础数据，将入库单页面的编号，品名等用数据有效性的方式进行引用，这样我们就可以实现轻松的对输入数据进行选择。这样可以尽可能的缩短我们填写数据的时间。如下图所示：

第二步：通过Excel编写VBA代码，实现计算、保存、开单等常用功能。按快捷键alt+F11或点击工作表名称右键选择查看代码，快速进入VBA代码编辑窗口，然后输入下方对应的代码。如下图所示：

开单、保存、计算的代码分别如下：Sub 开单()Set es = Cells.Find('*', , xlFormulas, , , xlPrevious)[b2] = 'SM' & Format(Now(), 'ymdhms')Range([a5], es.Offset(4)) = ''[e2] = ''End SubSub 保存()On Error GoTo 100Dim es As Range, a%If Sheet2.[f:f].Find([b2]) = [b2] ThenMsgBox '已经保存过了!'Else100:Set es = Cells.Find('*', , xlFormulas, , , xlPrevious)a = Application.CountA(Sheet2.[a:a])If es.Row = 4 Then MsgBox '没有填写内容': EndRange([a5], es).Copy Sheet2.Cells(a + 1, 1)Sheet2.Cells(a + 1, 'f').Resize(es.Row - 4) = [b2] '保存入库单Sheet2.Cells(a + 1, 'g').Resize(es.Row - 4) = [e2] '保存供应商Sheet2.Cells(a + 1, 'h').Resize(es.Row - 4) = Now() '保存日期时间MsgBox '保存成功!'End IfEnd SubSub 计算()Set es = Columns(3).Find('*', , xlFormulas, , , xlPrevious)For Each Rng In Range([c5], es)Rng.Offset(0, 2) = Rng.Offset(0, 1) * RngNextEnd Sub第三步：点击菜单栏：开发工具—插入，选择按钮插件，然后鼠标右键选择指定宏功能即可。这样我们就能够通过指定功能的方式，将控件赋予不同的代码功能。操作如下图所示：

通过上面的三个操作步骤设置，我们就做好了最简单的仓库入库单模板。现在你学会了吗？赶快去操作一下吧！精彩内容推荐