分享高质量的原创Office教程、Word教程、Excel教程。
位置:主页 > excel教程 >

excel表格一个或单个单元格中保持总计运行的操作

发布时间:2019-07-10 02:10:11 来源:www.roce6.com 浏览量:
excel表格已经在我国普及,但有一些新用户会遇见对excel表格一个或单个单元格中保持总计运行进行设置的问题,其实有很多用户都反映过如何设置excel表格一个或单个单元格中保持总计运行的问题,那么到底怎样才能快速的设置excel表格一个或单个单元格中保持总计运行呢?其实很简单,只需要按照1。 打开工作表包含将在其中保持总计运行的单元格。 右键单击工作表选项卡并选择 查看代码 从上下文菜单。 2。 在开幕式上 Microsoft Visual Basic for Applications 窗口,将VBA代码下方复制并粘贴到代码窗口中。来处理就搞定了,现在详细的给大家讲下excel表格一个或单个单元格中保持总计运行的具体步骤:

 

使用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中键入数字时,总数将继续在内部运行,如下面的屏幕截图所示。