|
▼かつし さん:
こんばんは。
>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共に かつしさんが行いたい仕様のコードにしたつもりです。
二つのコードの動作には、若干違いがあると思います。
どちらか御希望に沿う動作ではありませんか?
|
|