Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11882 / 13645 ツリー ←次へ | 前へ→

【13365】時間イベントの発生方法 ケン 04/5/3(月) 16:49 質問[未読]
【13382】Re:時間イベントの発生方法 Asaki 04/5/3(月) 22:31 回答[未読]
【13389】Re:時間イベントの発生方法 ケン 04/5/4(火) 0:49 お礼[未読]
【13512】Re:時間イベントの発生方法 ケン 04/5/7(金) 0:32 質問[未読]
【13514】Re:時間イベントの発生方法 よろずや 04/5/7(金) 7:09 回答[未読]
【13576】Re:時間イベントの発生方法 ケン 04/5/7(金) 23:37 お礼[未読]

【13365】時間イベントの発生方法
質問  ケン  - 04/5/3(月) 16:49 -

引用なし
パスワード
   この質問箱への2回目の質問になります。VBA 3日目の初心者です。
よろしくお願いいたします。

「時刻が8:30になったら」や「10秒毎に」一連の処理を行いたいのですが、
これらの条件でイベントを発生させる方法はあるのでしょうか?

【13382】Re:時間イベントの発生方法
回答  Asaki  - 04/5/3(月) 22:31 -

引用なし
パスワード
   こんばんは。

OnTime メソッド をお試しください。
なお、たぶん、マクロの入ったBookは起動していることが前提となるかと思います。

【13389】Re:時間イベントの発生方法
お礼  ケン  - 04/5/4(火) 0:49 -

引用なし
パスワード
   ▼Asaki さん:
昨日の質問に引き続いて、本日もAsakiさんに回答して頂き、有難うございます。
このメソッドで解決できます。明日やってみます。
今後ともよろしくお願いいたします。

>OnTime メソッド をお試しください。
>なお、たぶん、マクロの入ったBookは起動していることが前提となるかと思います。

【13512】Re:時間イベントの発生方法
質問  ケン  - 04/5/7(金) 0:32 -

引用なし
パスワード
   ▼Asaki さん:
Sub abc()
  Application.OnTime Now + TimeValue("00:00:10"), "abc"
End Sub
で設定したOnTimeメソッドをリセットする方法をご教授お願いできますでしょうか。よろしくお願いいたします。

>OnTime メソッド をお試しください。
>なお、たぶん、マクロの入ったBookは起動していることが前提となるかと思います。

【13514】Re:時間イベントの発生方法
回答  よろずや  - 04/5/7(金) 7:09 -

引用なし
パスワード
   ▼ケン さん:
>▼Asaki さん:
>Sub abc()
>  Application.OnTime Now + TimeValue("00:00:10"), "abc"
>End Sub
>で設定したOnTimeメソッドをリセットする方法をご教授お願いできますでしょうか。よろしくお願いいたします。

(1) OnTime メソッドを実行したときの値(時刻)を覚えておく。
Dim StartTime As Date
>Sub abc()
   StartTime = Now + TimeValue("00:00:10")
  Application.OnTime StartTime, "abc"
>End Sub
(2) 覚えておいた時刻を指定してキャンセルする。
Sub reset_abc()
  Application.OnTime StartTime, "abc", , False
End Sub

【13576】Re:時間イベントの発生方法
お礼  ケン  - 04/5/7(金) 23:37 -

引用なし
パスワード
   ▼よろずや さん:
schedule設定をfalseにすれば出来るのが分かりました。有難うございます。
よろずやさんのご指導を受けて、色々調べてみても
確かにこれで出来るはずなのですが、私のプログラムでは
うまくキャンセルされません。他に原因があるのでしょう。
ぼちぼちデバッグします。今回は有難うございました。
今後もよろしくお願いいたします。

>(2) 覚えておいた時刻を指定してキャンセルする。
> Sub reset_abc()
>   Application.OnTime StartTime, "abc", , False
> End Sub

11882 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free