OnTime を使って、分間隔で実行したいのですが

締切済

質問者：yasima278
質問日時：2007/11/09 10:42
回答数：4件

時間指定ができる「ONTime」と思って試行錯誤をしておりますが、For-Next　のような繰り返しは、時間になった時点でNext回数すべてが実行されてしまいました。ステプアップ的な動作は出来ないでしょうか？

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

最新から表示
回答順に表示

No.4

回答者： Kame_LABO
回答日時：2007/11/11 13:51

C2はB2の10分後になっていますか？

1分毎に1回ベルがなる（実行マクロ名が実行される）ようになっているはずです。

WINDOWS　XP　で　EXCEL2003　の環境です。

- 0
- 件

通報する

No.3

回答者： Kame_LABO
回答日時：2007/11/11 11:16

10回行ないたい場合は、指定時刻をFor～Nextでまわして10回指定すればいいのではないでしょうか？

For intI=0 To 9
指定時刻 = TimeValue(Range("L1") & "時" & Range("L4")+intI & "分" & "00秒") 'スタート時間

待ち時間 = TimeValue("00時" & "00分" & "30秒") '30秒

Range("C2") = 指定時刻'--->ここが問題になりますが・・・
Range("D2") = 待ち時間

Application.OnTime TimeValue(指定時刻), "実行マクロ名", TimeValue(待ち時間)

Next intI

で指定時間の先の00秒を最初に開始して、1分ごとに10回処理をします。

この回答への補足

ありがとうございます。
このまままわすと、指定時間になって１０回連続にベルがなってしまいますが？
（Ｃ2　は単に表示をしているだけです。）

よろしくお願いいたします。

補足日時：2007/11/11 11:36

通報する

- 0
- 件

通報する

No.2

回答者： Kame_LABO
回答日時：2007/11/10 16:28

>　00秒で実行させたいと

と言うのはどういうことでしょうか？

5分00秒ちょうどに実行させたいと言うこと？
5分間隔とすると次ぎは10分00秒ちょうど？

OnTimeはそのような指定が可能です。

具体的にダメだと判断したプログラムを見せてもらえませんでしょうか？

この回答への補足

ご回答ありがとうございます。
申し訳ございませんが、メールの到着が遅くこのコラムの表示の順番がチグハグになってしまっております。
プログラムを添付しました。
いま、テスト用として、１分で動かしております。
スタート時が４５秒でも「次の分の００秒」で動作しています。
OnTimeは単発動作のようですので、１回だけの動作は正常に終了しています。
これをFor-Nextで１０回設定すると、　指定時間に、OnTimeとマクロが１０回連続で動いてしまいます。

何かか良い方法をお願い致します。

Sub 繰り返す()

Dim 待ち時間
Dim 指定時刻

Range("B2") = Now '年/月/日/時/分

Range("L1") = Hour(Time) '時
Range("L2") = Minute(Time) '分
Range("L3") = Second(Time) '秒
Range("L4") = Range("L2") + "01" '次の分後にスタートする時間

指定時刻 = TimeValue(Range("L1") & "時" & Range("L4") & "分" & "00秒") 'スタート時間

待ち時間 = TimeValue("00時" & "00分" & "30秒") '30秒

Range("C2") = 指定時刻
Range("D2") = 待ち時間

Application.OnTime TimeValue(指定時刻), "実行マクロ名", TimeValue(待ち時間)

End Sub

Sub 実行マクロ名()

'ベルを鳴らす

Dim wavfile As String
wavfile = "C:\Windows\Media\ringin.wav "
Shell "mplay32.exe /play /close " & wavfile

End Sub