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

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

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！