Excel VBA質問箱 IV

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

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


47219 / 76732 ←次へ | 前へ→

【34474】Re:Excelを起動してる間、マクロを動かし続...
回答  Kein  - 06/2/3(金) 13:05 -

引用なし
パスワード
   VBEへ新規に標準モジュールを挿入し、その先頭から以下のマクロを入力してください。

Private MyTime As Date

Sub Macro2()
  MyTime = TimeSerial(1,0,0)
 Application.OnTime MyTime, "Macro1"
End Sub

Sub Macro1()
  MsgBox "OnTimeで呼び出されました !" '←任意のコードに変更
  MyTime = MyTime + TimeValue("1:00:00")
  Application.OnTime MyTime, "Macro1"
End Sub

Sub Auto_Close()
  Application.OnTime MyTime, "Macro1", , False
End Sub

なおテストする際は、Macro2の MyTime に値を入れるコードでは

MyTime = TimeSerial(13,12,0)

などと「現在時刻より1〜2分後の時刻を指定」し、Macro1では

MyTime = MyTime + TimeValue("00:01:00")

というように、1分後の時刻を設定するコードに変更してみて下さい。
それにより、1時間のインターバルを1分に短縮してテストすることができます。

0 hits

【34456】Excelを起動してる間、マクロを動かし続... 岡田 06/2/3(金) 3:46 質問
【34459】Re:Excelを起動してる間、マクロを動かし続... やっちん 06/2/3(金) 8:06 発言
【34474】Re:Excelを起動してる間、マクロを動かし続... Kein 06/2/3(金) 13:05 回答
【34492】Re:Excelを起動してる間、マクロを動かし... 岡田 06/2/3(金) 20:29 質問
【34495】Re:Excelを起動してる間、マクロを動かし... Kein 06/2/3(金) 21:14 発言
【34498】Re:Excelを起動してる間、マクロを動かし... 岡田 06/2/3(金) 22:31 お礼
【34512】Re:Excelを起動してる間、マクロを動かし... gako 06/2/4(土) 15:15 質問
【34514】Re:Excelを起動してる間、マクロを動かし... Kein 06/2/4(土) 15:36 発言

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