excel表格加减自动计算 excel出入库自动加减

Excel的功能远不止于日常的数据整理。借助其独特的表格代码，我们还能实现一系列高级的数据操作。例如，仓库入库单的制作，能通过简单的点击操作自动完成数据录入、计算以及保存等繁琐任务。

以下便是我们仓库入库单的效果演示。通过精心的按钮设置，如计算、保存和开单，可以轻松实现数据的快速计算、保存以及清除旧数据重新输入等操作。这无疑极大地提高了我们的工作效率。那么，接下来让我们逐步学习如何操作吧。

第一步：在表格中填入基础数据。利用数据有效性的方式，将入库单页面的编号、品名等进行引用，这样便能轻松选择输入数据。这样做能大大缩短我们填写数据所需的时间，如图所示：

对于开单、保存和计算的代码，具体如下：

开单过程：

```vba

Sub 开单()

With [b2]

.Value = "" & Format(Now(), "ymdhms")

End With

Range([a5], ...).Clear '清除内容

End Sub

```

保存过程：

```vba

Sub 保存()

If Sheet2.[f:f].Find([b2].Value) [b2].Value Then

Sheet2.[a5:...].Offset(Sheet2.Cells.Count - 1).End(xlUp).Offset(1).Resize(1).Value = ...

'其他代码...

MsgBox "保存成功!"

Else

MsgBox "已经保存过了!"

End If

End Sub

```

计算过程：

```vba

Sub 计算()

For Each Rng In Columns(3).Cells[c5:...] '指定范围，通过更改`...`调整列名和起始单元格等

Rng.Offset(0, 2).Value = Rng.Offset(0, 1).Value Rng.Value '进行相应的计算等操作

Next Rng

End Sub

```

第三步：在菜单栏中点击“开发工具”-“插入”，然后选择按钮插件。接着右键点击按钮，选择指定宏功能即可。这样我们就能通过指定功能的方式，为不同的控件赋予相应的代码功能了。操作步骤如图所示：