エクセルのマクロ

質問

仕事の都合で早急に仕上げなければならないことがあり
困っています。
内容としては

エクセルのA1セルに０～無限までの数値がランダムに
繰り返し表示されるとした場合で
（例えばA1セルに０と表示された後、数秒たつと１００００と表示されて、
また数秒たつと３０００と表示されて、
また数秒たつと０になったりをA1セルは繰り返します。
A1に表示される数値も更新時間も完全にランダムです。）
１以上の数値がA1セルに表示された場合のみ
その数値をB1セルに抜き出し、更新毎にB1セルで合計し続ける。
（例えばA1に１０と表示されるとB1に１０と表示し
その後A1に１００と表示されるとB1に１１０と表示
その後A1に３００と表示されるとB1に４１０と表示）

というマクロを作りたいのですが完全に手詰まりになってしまっています・・・

どなたか詳しい方いらっしゃいましたら申し訳ございませんが
知恵を貸していただけないでしょうか？
よろしくお願いいたします。

回答No.1

hige_082 · ベストアンサー

対象のシートモジュールへコピペしてください

'マクロ等でA1を書き換えるなら
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Address = "$A$1" Then Exit Sub
Range("b1").Value = Range("b1").Value + Target.Value
End Sub

'A1に数式を設定しているなら
Private Sub Worksheet_Calculate()
Range("b1").Value = Range("b1").Value + Range("a1").Value
End Sub

＞１以上の数値がA1セルに表示された場合のみ
と、ありますが
＞エクセルのA1セルに０～無限までの数値がランダムに
と、ありますので、A1が変化すればすべて足しています

以上、参考まで

補足

ありがとうございます。

大変申し訳ありませんがもうひとつお伺いしたいのですが

Private Sub Worksheet_Calculate()
Range("b1").Value = Range("b1").Value + Range("a1").Value
End Sub
上記のご教授いただいたマクロをA1セルの値が変化すると自動実行するようにするにはどうすればよいのでしょうか？

回答No.2

hige_082

＞A1セルの値が変化すると自動実行するようにするにはどうすればよいのでしょうか？
例えば
A1に
=A2
として
A2に適当に数字を入れれば試せます

お礼

ありがとうございます。
やってみます。