如何在 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 能力。立即下载，体验前所未有的高效！