Excel VBA質問箱 IV

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

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


27834 / 76732 ←次へ | 前へ→

【54211】Re:onTime 動作
発言  ichinose  - 08/2/29(金) 18:20 -

引用なし
パスワード
   ▼かつし さん:
こんばんは。

>ichinoseさん、サジェッション有難う御座います。
>私の説明不足で申し訳ありません。自分が行いたいのは、他の条件もあり「マクロを動作指示15秒後に、Range("M5").Select以下の文を動作させたい」と言う事です。

なるほど・・・。Ontimeが安全なんですけどね!!
まっ、構造的にどうしてもと言う場合もあるでしょうね!!


二つサンプルコードを提示しますので、検討してみてください。

標準モジュールに


'============================================================
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub test1()
  MsgBox Now()
  Sleep 15000
  MsgBox Now()
End Sub
'=======================================================================
Sub test2()
  Dim stt As Date
  stt = Now()
  MsgBox stt
  Do Until Second(Now() - stt) > 15
   DoEvents
   Loop
  MsgBox Now()
End Sub

test1,test2共に かつしさんが行いたい仕様のコードにしたつもりです。

二つのコードの動作には、若干違いがあると思います。

どちらか御希望に沿う動作ではありませんか?
0 hits

【54187】onTime 動作 かつし 08/2/28(木) 17:52 質問
【54190】Re:onTime 動作 ichinose 08/2/28(木) 21:26 発言
【54199】Re:onTime 動作 かつし 08/2/29(金) 11:38 質問
【54211】Re:onTime 動作 ichinose 08/2/29(金) 18:20 発言
【54234】Re:onTime 動作 かつし 08/3/1(土) 16:04 回答
【54235】Re:onTime 動作 ichinose 08/3/1(土) 16:27 発言
【54253】Re:onTime 動作 かつし 08/3/2(日) 15:04 回答
【54274】Re:onTime 動作 ichinose 08/3/2(日) 17:32 発言

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