将单元格作为累加器

fanjy

发布于 2023-12-11 08:04:17

30900

代码可运行

文章被收录于专栏：完美Excel完美Excel

运行总次数：0

代码可运行

标签：VBA

累加器是一个或多个单元格，用于保存输入的数值的总和。它们可以是单个单元格，如果A1=6，并且用户在A1中输入2，则显示的结果为8。或者可以是两个单元格，比如说，在A1中输入的数字会立即与B1中的值相加。

构建累加器最可靠的方法是使用Worksheet_Change()事件。当一个值被输入到单元格中时，该值被加到累加值上，并被放回累加器单元格中。

在两个单元格累加器中，一个单元格中进行输入，另一个单元格中显示总数。要重置累加器，只需手动清除累加器单元格中的值。下面的代码在单元格A1中输入值，单元格B1将累加这些值，代码如下：

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中累加在其中输入的值，代码如下：

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