Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11892 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11892 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free