VBA を使った日計累計の計算方法

こんにちは。ちょっと教えていただきたいのですが、エクセルで例えば
A１は日計　B1は累計の表があり
A1に【１】と入力すればB１も【１】と表示され
またＡ１に【3】と入力すればＢ１は【４】と加算されるようにしたいのですが
どのような式を入れればよいでしょうか？

たくさんのサイトを見てもこれ！といったものが無くここでお力をお借りしたいと思いました。

本当は翌日昼の１２時で日計をリセットできるようにしたいのですが
まずは上記のようなことをしたいので、よろしくお願い致します。

No.2 ベストアンサー 回答者： mygoonickname 回答日時： 2021/08/10 17:15

こんにちは。

　希望のものに近いか不明ですが、下記は如何でしょうか？
電卓の足し算だけの様な機能？　手入力なので、誤記があるかも知れません。

マクロで、Microsoft Excel Objects内のSheetへの記載になります。

Private Sub Worksheet_Change(Byval Target As Range)
IF Target.Address <> "$A$1" Then Exit Sub

Application.EnableEvents = False
Range("C1").Value = Range("B1").Value
Range("B1").Value = Range("B1").Value + Range("A1").Value
Application.EnableEvents = True
End Sub

元に戻すのは難しいので、C1へバックアップとして残しています。

あと、12時でリセットという意味が分かりません。。。

この回答へのお礼

ありがとうございます！
ちょっとやってみます！

１２時でリセットというのは
例えば日にちが変わる夜中０時までは日計の欄を何回も入力しなおせるんですが、０時を前日の集計を締めるという感じです。

ちょっと文章では難しいですね。すみません

お礼日時：2021/08/10 17:29

No.1 回答者： mygoonickname 回答日時： 2021/08/10 16:59

こんにちは。

A1とは、セルの事でしょうか？
同じA1のセルに、違う数字を入れて、単純に合計をB1に出すのでしょうか？

A1：１　→　B1：１
A1：３　→　B1：４
A1：５　→　B1：９

仮に、入力を間違えた場合は、元の値の保持がないので、戻せないとかの
　不具合がありそうですが、大丈夫でしょうか？

この回答へのお礼

早々にありがとうございます！


そうです！A1はセルA1です。（言葉足らずですみません）
そうですね…不具合はちょっと具合悪いですね…


A1：3　　⇒　B1：4
で
仮にA1に入力する数字を誤入力した場合、A1をDeleteで消した際には
B1は【１】に戻るようなこともできるのでしょうか？

お礼日時：2021/08/10 17:06