如何在 Excel 的單一儲存格中保持累計總數？

本文將向您展示一種方法，讓您可以在 Excel 的單一儲存格中保持累計總數。例如，儲存格 A1 目前的數字是 10，當您輸入另一個數字（例如 5）時，A1 的結果值將變為 15（10+5）。您可以按照以下步驟輕鬆完成此操作。

使用 VBA 程式碼在單一儲存格中保持累計總數

使用 VBA 程式碼在單一儲存格中保持累計總數

以下 VBA 程式碼可以幫助您在一個儲存格中保持累計總數。請按照以下步驟逐步操作。

1. 打開包含要保持累計總數的儲存格的工作表。右鍵單擊工作表標籤，然後從快捷選單中選擇 檢視程式碼。

2. 在打開的 Microsoft Visual Basic for Applications 視窗中，將以下 VBA 程式碼複製並貼到程式碼視窗中。參見截圖：

VBA 程式碼：在單一儲存格中保持累計總數

Dim mRangeNumericValue As Double
'Updated by ExtendOffice 20180814

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo EndF
Application.EnableEvents = False

If Target.Count = 1 Then
    If (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) Then
        If Target.Range("A1").Value = 0 Then mRangeNumericValue = 0
       Target.Range("A1").Value = 1 * Target.Range("A1").Value + mRangeNumericValue
    End If
End If

EndF:
  Application.EnableEvents = True
mRangeNumericValue = 0
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo err0
If Target.Count = 1 Then
    If (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) Then
       mRangeNumericValue = Target.Range("A1").Value
   End If
End If
err0:
End Sub

備註：在程式碼中，A1 是您要保持累計總數的儲存格。請根據需要指定一個儲存格。

3. 按下 Alt + Q 鍵以關閉 Microsoft Visual Basic for Applications 視窗。

從現在開始，當您在儲存格 A1 中輸入數字時，總數將會像下面的截圖一樣持續更新。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！