質問: timevalue("00:01:00") application.ontime timevalue(指定時刻), "sendmail", timevalue(待ち時間) call 次のメール送信 みたいな感じで書いてます。 ユーザーフォームが開いている状態でタイマーのマクロ(他のマクロ)を動かすのって無理なんですか? ちなみに、不定期なタイマーの方法がわからなかったので、それもわかれば教えていただけませんか。 一定時間感覚のタイマーはあったのですが、不定期なタイマーのマクロが調べても見つからず... タイマーのマクロを何個も書いてなんとか、一つのタイマー処理が終わったら次のタイマーマクロを呼び出すって方法を取りました。 もし、もっと簡単な書き方などあったらアドバイスお願いします。
回答: >不定期なタイマーは、例えば13時、14時、16時、19時、20時みたいに規則性のない時間でメールを送信(マクロ起動)をしたいのです。 >時間は外部からではなく、設定しときたいのです。 sub sendmail() dim v as variant, i as long '・・・・ '・・・・ '・・・・ v = array(timevalue("07:30:00"), timevalue("13:00:00"), timevalue("14:00:00"), _ timevalue("16:00:00"), timevalue("19:00:00"), timevalue("20:00:00")) for i = lbound(v) to ubound(v) if v(i) > time then exit for next if i > ubound(v) then i = lbound(v) application.ontime v(i), "sendmail", timevalue("00:01:00") end sub