除了日常的数据整理，Excel的表格特有的代码功能还能实现更为高级的数据操作。比如制作仓库入库单时，只需点击就能自动完成数据录入、计算及保存等操作，大大提升了工作效率。
让我们来演示一下仓库入库单的实际效果。通过预先设置的计算、保存和开单按钮，只需点击就能实现数据的自动计算、保存以及清除数据重新输入等操作。这无疑大大提高了工作的便捷性。接下来，我们将学习具体的操作方法。
第一步：在表格中填入基础数据，利用数据有效性引用入库单页面的编号、品名等，使数据选择更加轻松，以缩短数据填写的时间。具体步骤和效果如图示。
开单操作代码：
vba
Sub 开单()
Set es = Cells.Find(“”, , xlFormulas, , , xlPrevious)
[b2] = “” & Format(Now(), “ymdhms”)
Range([a5], es.Offset(4)) = “”
[e2] = “”
End Sub
保存操作代码：
vba
Sub 保存()
Dim es As Range, a%
If Sheet2.[f:f].Find([b2]) = [b2] Then
MsgBox “已经保存过了!”
Else
Set es = Cells.Find(“”, , xlFormulas, , , xlPrevious)
a = Application.CountA(Sheet2.[a:a])
If es.Row = 4 Then MsgBox “没有填写内容”: Exit Sub
Range([a5], es).Copy Destination:=Sheet2.Cells(a + 1, 1)
Sheet2.Cells(a + 1, “f”).Resize(es.Row – 4).Value = [b2] ‘保存入库单
Sheet2.Cells(a + 1, “g”).Resize(es.Row – 4).Value = [e2] ‘保存供应商信息
Sheet2.Cells(a + 1, “h”).Resize(es.Row – 4).Value = Now() ‘保存日期时间信息
MsgBox “保存成功!”
End If
End Sub
计算操作代码：
