多くの場合、XNUMX つのセルに連続して入力された複数の値を合計 (累積) する必要がある状況が発生します。
それらの。 たとえば、セル A1 に数値 5 を入力すると、数値 1 が B15 に表示されます。 次に、A1 に数値 7 を入力すると、セル B1 に 22 が表示されます。 一般に、会計士（および会計士だけでなく）が累積合計と呼ぶもの。
このようなストレージ セル アキュムレータは、単純なマクロを使用して実装できます。 セル A1 と B1 が配置されているシート タブを右クリックし、コンテキスト メニューから選択します。 原文 （ソースコード）. 開いた Visual Basic エディター ウィンドウで、単純なマクロ コードをコピーして貼り付けます。
Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Address(False, False) = "A1" Then If IsNumeric(.Value) Then Application.EnableEvents = False Range("A2").Value = Range(" A2").Value + .Value Application.EnableEvents = True End If End If End With End Sub もちろん、セル A1 と A2 のアドレスは、独自のものに置き換えることができます。
データ入力を追跡し、個々のセルではなく範囲全体を要約する必要がある場合は、マクロを少し変更する必要があります。
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("A1:A10")) Is Nothing Then If IsNumeric(Target.Value) Then Application.EnableEvents = False Target.Offset(0, 1) .Value = Target.Offset(0, 1).Value + Target.Value Application.EnableEvents = True End If End If End Sub A1:A10 の範囲のセルにデータが入力され、入力された数値が右隣の列に合計されるものとします。 あなたのケースで隣接していない場合は、オフセット演算子で右へのシフトを増やします - 1 をより大きな数に置き換えます。
- マクロとは、VBA でマクロ コードを挿入する場所、使用方法