如何通过表格数据自动生成入库单(制作自动化仓库入库单)
Excel除了我们日常的数据整理,利用表格特有的代码功能,我们还可以实现一些高级的数据操作比如说仓库入库单的制作,它能够实现通过点击自动完成数据录入、计算以及保存等操作,今天小编就来聊一聊关于如何通过表格数据自动生成入库单?接下来我们就一起去研究一下吧!
![如何通过表格数据自动生成入库单(制作自动化仓库入库单)](http://img.studyofnet.com/upimg/964418894.jpg)
如何通过表格数据自动生成入库单
Excel除了我们日常的数据整理,利用表格特有的代码功能,我们还可以实现一些高级的数据操作。比如说仓库入库单的制作,它能够实现通过点击自动完成数据录入、计算以及保存等操作。
上面就是我们仓库入库单的效果演示,我们可以通过计算、保存、开单的按钮设置,点击就能够自动进行数据的计算、保存以及清除之前数据重新输入等多种操作。是不是感觉非常的方便了?下面我们就来学习一下具体的操作方法。
第一步:首先在表格中填写基础数据,将入库单页面的编号,品名等用数据有效性的方式进行引用,这样我们就可以实现轻松的对输入数据进行选择。这样可以尽可能的缩短我们填写数据的时间。如下图所示:
第二步:通过Excel编写VBA代码,实现计算、保存、开单等常用功能。按快捷键alt F11或点击工作表名称右键选择查看代码,快速进入VBA代码编辑窗口,然后输入下方对应的代码。如下图所示:
开单、保存、计算的代码分别如下:
Sub 开单()
Set es = Cells.Find("*", , xlFormulas, , , xlPrevious)
[b2] = "SM" & Format(Now(), "ymdhms")
Range([a5], es.Offset(4)) = ""
[e2] = ""
End Sub
Sub 保存()
On Error GoTo 100
Dim es As Range, a%
If Sheet2.[f:f].Find([b2]) = [b2] Then
MsgBox "已经保存过了!"
Else
100:
Set es = Cells.Find("*", , xlFormulas, , , xlPrevious)
a = Application.CountA(Sheet2.[a:a])
If es.Row = 4 Then MsgBox "没有填写内容": End
Range([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 If
End Sub
Sub 计算()
Set es = Columns(3).Find("*", , xlFormulas, , , xlPrevious)
For Each Rng In Range([c5], es)
Rng.Offset(0, 2) = Rng.Offset(0, 1) * Rng
Next
End Sub
第三步:点击菜单栏:开发工具—插入,选择按钮插件,然后鼠标右键选择指定宏功能即可。这样我们就能够通过指定功能的方式,将控件赋予不同的代码功能。操作如下图所示:
通过上面的三个操作步骤设置,我们就做好了最简单的仓库入库单模板。现在你学会了吗?赶快去操作一下吧!
免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com