如何在Excel中的一個或單個單元格中保持總計運行？

本文將向您展示一種在Excel中的一個或單個單元格中保持總計運行的方法。 例如，單元格A1當前保存一個數字10，當輸入另一個數字（例如5）時，A1的結果值為15（10 + 5）。 您可以按照以下步驟輕松完成它。

使用VBA代碼在一個或單個單元中保持總計運行

使用VBA代碼在一個或單個單元中保持總計運行驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節省50％的時間，并減少數千次鼠標單擊！

下面的VBA代碼可以幫助您在一個單元格中保持總計運行。 請按以下步驟進行。

1.打開工作表，其中包含您將繼續運行的單元格。 右鍵單擊工作表標簽，然后選擇 查看代碼 從上下文菜單。

2.在開幕 Microsoft Visual Basic應用程序 窗口，將下面的VBA代碼復制并粘貼到“代碼”窗口中。 看截圖：

VBA代碼：在一個或單個單元格中保持總計運行

Dim mRangeNumericValue As DoubleUpdated by ExtendOffice 20180814Private Sub Worksheet_Change(ByVal Target As Range)On Error GoTo EndFApplication.EnableEvents = FalseIf Target.Count = 1 ThenIf (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) ThenIf Target.Range("A1").Value = 0 Then mRangeNumericValue = 0Target.Range("A1").Value = 1 * Target.Range("A1").Value + mRangeNumericValueEnd IfEnd IfEndF:Application.EnableEvents = TruemRangeNumericValue = 0End SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)On Error GoTo err0If Target.Count = 1 ThenIf (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) ThenmRangeNumericValue = Target.Range("A1").ValueEnd IfEnd Iferr0:End SubCopy

備注：在代碼中，A1是您將始終在其中繼續運行的單元格。 請根據需要指定一個單元格。

3。 按 其他 + Q 關閉鍵 Microsoft Visual Basic應用程序 窗口。

從現在開始，當在單元格A1中鍵入數字時，總數將繼續在內部運行，如下圖所示。

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel