打開工作簿時如何自動增加數字？

如果您想在每次打開工作簿時自動將數字單元格增加1，則可以手動添加1。 但是，有沒有更好的方法在打開Excel文檔時自動為數字加1？

使用VBA代碼打開工作簿時，自動增加數字

使用VBA代碼打開工作簿時，自動增加數字

下面的簡單VBA代碼可以幫助您在每次打開工作簿時自動為數字單元格加1，請這樣做：

1。 按住 ALT + F11 鍵，然後打開 Microsoft Visual Basic for Applications 窗口。

2。 在 項目-VBA項目 窗格，雙擊 的ThisWorkbook 打開 模塊，然後將以下代碼複製並粘貼到模塊中，請參見屏幕截圖：

VBA代碼：打開工作簿時自動增加一個數字：

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

備註：在上面的代碼中， Sheet1 A2 是包含要自動增加的數字的工作表和單元格。 請根據您的需要更改它們。

3。 然後你應該將 Excel 文件另存為 Excel啟用宏的工作簿 格式，請參見屏幕截圖：

從現在起，當您打開該特定工作簿時，Sheet2 中單元格 A1 中的數字將自動加 1。

備註：此代碼僅適用於數字單元格。