ExcelのXNUMXつまたはXNUMXつのセルで合計を実行し続けるにはどうすればよいですか？

この記事では、Excelの1つまたは10つのセルで合計を継続する方法を説明します。 たとえば、セルA5は現在数値1を保持していますが、15などの別の数値を入力すると、A10の結果値は5（XNUMX + XNUMX）になります。 あなたはそれを簡単に成し遂げるために次のようにすることができます。

VBAコードを使用してXNUMXつまたはXNUMXつのセルで合計を実行し続ける

VBAコードを使用してXNUMXつまたはXNUMXつのセルで合計を実行し続ける

以下のVBAコードは、セル内で合計を実行し続けるのに役立ちます。 ステップバイステップで次のようにしてください。

1.ワークシートを開くと、合計を実行し続けるセルが含まれています。 シートタブを右クリックして、 コードを表示 コンテキストメニューから選択します。

2.オープニングで アプリケーション向け Microsoft Visual Basic ウィンドウで、VBAコードの下をコピーしてコードウィンドウに貼り付けます。 スクリーンショットを参照してください：

VBAコード：XNUMXつまたはXNUMXつのセルで合計を実行し続ける

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

Note：コードでは、A1は内部で合計を実行し続けるセルです。 必要に応じてセルを指定してください。

3。 プレス 他の + Q を閉じるためのキー アプリケーション向け Microsoft Visual Basic 窓。

これ以降、セルA1に数値を入力すると、以下のスクリーンショットに示すように、合計が内部で実行され続けます。