标签：VBA
累加器是一个或多个单元格，用于保存输入的数值的总和。它们可以是单个单元格，如果A1=6，并且用户在A1中输入2，则显示的结果为8。或者可以是两个单元格，比如说，在A1中输入的数字会立即与B1中的值相加。
构建累加器最可靠的方法是使用Worksheet_Change()事件。当一个值被输入到单元格中时，该值被加到累加值上，并被放回累加器单元格中。
在两个单元格累加器中，一个单元格中进行输入，另一个单元格中显示总数。要重置累加器，只需手动清除累加器单元格中的值。下面的代码在单元格A1中输入值，单元格B1将累加这些值，代码如下：
代码语言：javascript复制Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Address(False, False) = "A1" Then
If IsNumeric(.Value) Then
Application.EnableEvents = False
Range("B1").Value = Range("B1").Value .Value
Application.EnableEvents = True
End If
End If
End With
End Sub在单个单元格累加器中，在将值写回单元格之前禁用事件尤为重要，否则循环将持续，直到Excel耗尽堆栈空间。此外，由于累加器单元格的值被覆盖，因此需要一个静态变量。还要提供一种清除累加器的方法。下面的代码在单元格A1中累加在其中输入的值，代码如下：
代码语言：javascript复制Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Static dAccumulator As Double
With Target
If .Address(False, False) = "A1" Then
If Not IsEmpty(.Value) And IsNumeric(.Value) Then
dAccumulator = dAccumulator .Value
Else
dAccumulator = 0
End If
Application.EnableEvents = False
.Value = dAccumulator
Application.EnableEvents = True
End If
End With
End Sub通过输入一个空白或非数字值来清除累加器。
也可以使用循环引用在不使用VBA的情况下构造双单元格累加器。若要避免错误，首先选择“文件——Excel选项”，然后在“Excel选项”对话框中选择“公式”选项卡，选取其中的“启用迭代计算”，在“最多迭代次数”框中输入1。在单元格B1中输入下面的公式：
=A1 B1
此时，每次在单元格A1中输入值时，单元格B1将其累加。
可以构造更复杂的累加器来有条件地添加累加值（例如，仅当A1>B1时），但通常情况下，这种类型的累加器是不可靠的，因为不能总是阻止用户重新计算，而且很少或根本没有机会进行更正。
