同じセルに足算を繰り返したいのですが・・・

質問

同じセルに足算を繰り返したいのですが・・・
過去に参考になるご回答を見つけました。
http://okwave.jp/qa/q2154378.html
この機能をA2のセルでも同じ様に行い、E列にA2の記録を取る場合はどのようにしたらよろしいでしょうか。実際はA1～A12に適用したいです。

回答No.2

Wendy02 · ベストアンサー

その質問は格段に難しくなります。タイムスタンプはいれません。

'//上書きしてください

Private Sub Worksheet_Change(ByVal Target As Range)
　　Dim c As Variant
　　Dim n As Double
　　If Intersect(Target, Range("A1:A12")) Is Nothing Then Exit Sub
　　If Target.Count > 1 Then Exit Sub
　　If Target.Value = "" Then Exit Sub
　　c = Target.Value
　　If IsNumeric(c) = False Then Exit Sub
　　Application.EnableEvents = False
　　Application.Undo
　　n = Target.Value
　　Target.Value = c + n
　　Cells(Rows.Count, 2 + Target.Row).End(xlUp).Offset(1).Value = c
　　Application.EnableEvents = True
End Sub

お礼

ありがとうございました。
イメージ通りに出来ており感謝いたします。
早速集計業務に利用させていただきます。

回答No.1

nattocurry

リンク先の回答をまずは試してみましたか？
それをやった上で、いろいろいじって、自分用にカスタマイズしていって、それでも解らないところがあったら改めて質問しましょう。

お礼

アドバイスありがとうございました。
いじっては見たのですがVBAは素人でしてわかりませんでした。
いじった内容は、
(1)全部コピーして下に貼り付け$A$1を$A$2にして、A1,A2のセルが計算するか否か
(2)If～Thenの後に$A$2を追加する。
(2)においてはA2の計算は上手くいったのですが、履歴がA1と混じって表示されてしまいました。