エクセル、一定時間で数を増やす方法

セルの数値を一定の時間間隔で自動的に増やすことがしたいのですが、ご存知の方がいらしたら是非教えて下さい。

例えば、30秒ごとに1ずつ増やしたいと設定すると、"1"と入力した数が10分後には"20"と自動的に変わるようにしたいのです。
毎日リセットして"1"から始めたいので、その方法も併せて教えて下さい。

どうぞ宜しくお願いします。

No.1 ベストアンサー 回答者： merlionXX 回答日時： 2005/07/14 12:58

VBAでいいんですよね？

sheet1のA1に表示します。

Sub スタート()
Sheet1.Range("A1:B1") = ""
Application.OnTime Now, "timerA"
End Sub

Sub timerA()
With Sheet1
If .Cells(1, 2) <> "" Then Exit Sub
.Cells(1, 1) = .Cells(1, 1) + 1
End With
Application.OnTime Now + TimeValue("00:00:30"), "timerB"
End Sub

Sub timerB()
With Sheet1
If .Cells(1, 2) <> "" Then Exit Sub
.Cells(1, 1) = .Cells(1, 1) + 1
End With
Application.OnTime Now + TimeValue("00:00:30"), "timerA"
End Sub

途中で止めたい場合は、B1になにか入れてください。