返回首页
当前位置: 主页 > Excel教程 > Excel2016教程 >

如何在Excel中的一个或一个单元格中保持总计运行?

时间:2018-09-18 09:25来源:Office教程学习网 www.office68.com编辑:麦田守望者

本文将向您展示一种在Excel中的一个或单个单元格中保持总计运行的方法。 例如,单元格A1当前保留一个数字10,当输入另一个数字(如5)时,A1的结果值将为15(10 + 5)。 您可以按照以下步骤轻松完成任务。

使用VBA代码在一个或单个单元格中保持总计运行

使用VBA代码在一个或单个单元格中保持总计运行

热
Excel的制表横幅2014  -  12,02
惊人! 使用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中键入数字时,总数将继续在内部运行,如下面的屏幕截图所示。

------分隔线----------------------------
标签(Tag):excel excel2016 Excel把时间转化成分钟
------分隔线----------------------------
推荐内容
猜你感兴趣