数値が入っているセルにさらに数値を入力すると・・・

質問

恐らくこんなことは出来ないだろうと思いますが、ご教授下さい。
草野球の成績管理をエクセルで行っているのですが、
前試合までの成績が下記の通り入力されているとします。
　 　Ａ　　　Ｂ　　　Ｃ　　　Ｄ　　　Ｅ　　　Ｆ
1 打数　安打　打点　四死球　三振　打率
2 　３　　　１　　　０　　　０　　　　１　　.333
新たに試合が行われ、その成績が４打数０安打０打点０四死球１三振だとします。
成績を更新する際、いつも頭の中で「打数は３＋４＝７だな」と
考えながらＡ２セルを「７」と入力していくのですが、
Ａ２セルに４を入力すると自動的に加算され、７が表示されるという方法はあるのでしょうか？
自分なりに調べてみたのですが分からず・・・宜しくお願いします。

回答No.1

hallo-2007 · ベストアンサー

通常であれば、別途データのシートを作成します。
　 　Ａ　　　Ｂ　　　Ｃ　　　Ｄ　　　Ｅ　　　Ｆ
1 試合日　選手名　打数　安打　打点　四死球　三振　打率
2 11月4日　阿部　　３　　　１　　　０　　　０　　　　１　　.333
・・・・
集計のシートには　SUMIF関数で選手ごとの合計がでます。
入力の間違いもわかりますし、他にも活用方法があるかもしれません。

お礼

なるほど！SUMIF関数がありましたね…！
ぜひこの方法でやっていきたいと思います。ありがとうございました。

回答No.2

higekuman

マクロで実現することは出来ます。

シートモジュールに、こう書けば良いです。

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Me.Cells(2, 1).Resize(, 5)) Is Nothing And IsNumeric(Target.Value) Then
Application.Undo
Dim x
If IsNumeric(Target.Value) Then
x = Target.Value
End If
Application.Undo
Target.Value = Target.Value + x
End If
Application.EnableEvents = True
End Sub

このままだと、加算し続けて、リセット用に別のマクロを組む必要があるのですが、書き込まれている値か、書こうとしている値が、文字列の場合は、加算しないようになっているので、数字以外の適当な文字を書いて削除すると、0になります。

これ、理解できていないと、たぶん改造は出来ないと思います。

お礼

ご丁寧な説明、誠にありがとうございます。
マクロですか…一度かじりかけたのですが訳分からず…という状況なので、正直全然分かりません、ごめんなさい。
ただ、今後マクロを勉強していくとしたらぜひ参考になりますので、ご活用させていただきます。ありがとうございました。