|
本文将向您展示一种在Excel中的一个或单个单元格中保持总计运行的方法。 例如，单元格A1当前保留一个数字10，当输入另一个数字（如5）时，A1的结果值将为15（10 + 5）。 您可以按照以下步骤轻松完成任务。
使用VBA代码在一个或单个单元格中保持总计运行
使用VBA代码在一个或单个单元格中保持总计运行
惊人！ 使用Excel中的标签，如Firefox，Chrome，Internet Explore 10！
以下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。 按 其他 + Q 键关闭 Microsoft Visual Basic for Applications 窗口。
从现在开始，当在单元格A1中键入数字时，总数将继续在内部运行，如下面的屏幕截图所示。
| 