如何在打开工作簿时自动增加数字？

如果希望每次打开工作簿时，某个数字单元格能自动加 1，当然可以手动添加 1。但是，有没有更好的方法可以在打开 Excel 文档时自动为数字加 1 呢？

使用 VBA 代码在打开工作簿时自动增加数字

使用 VBA 代码在打开工作簿时自动增加数字

以下简单的 VBA 代码可以帮助您在每次打开工作簿时自动为数字单元格加 1，请按照以下步骤操作：

1. 按住 ALT + F11 键，打开 Microsoft Visual Basic for Applications 窗口。

2. 在“Project-VBAProject”窗格中，双击“ThisWorkbook”以打开模块，然后将以下代码复制并粘贴到模块中，如下图所示：

VBA 代码：在打开工作簿时自动增加数字：

Private Sub Workbook_Open()
Worksheets("Sheet1").Range("A2") = Worksheets("Sheet1").Range("A2") + 1
End Sub

注意：在上述代码中，Sheet1 和 A2 是包含要自动增加的数字的工作表和单元格。请根据需要进行更改。

3. 然后，您需要将 Excel 文件保存为启用宏的工作簿格式，如下图所示：

从现在开始，当您打开这个特定的工作簿时，Sheet1 中 A2 单元格中的数字将自动加 1。

注意：此代码仅适用于数字单元格。