|
皆さん、こんにちは。
今年もよろしくお願いします。
>Application.Wait Time + TimeValue("00:00:01")
>これは1秒後ですが、
>0.5秒後とか0.1秒後とか1秒以下後にするにはどう書けばいいのですか?
正確さは欠きますが、こんな方法も試してみて下さい。
標準モジュールに
'========================================
Private tt As Double
'========================================
Sub test1()
tt = [now()]
Application.OnTime [now()+"00:00:01"], "sample"
End Sub
'========================================
Sub test2()
tt = [now()]
Application.OnTime [now()+"00:00:00.50"], "sample"
End Sub
'========================================
Sub test3()
tt = [now()]
Application.OnTime [now()+"00:00:00.01"], "sample"
End Sub
'========================================
Sub sample()
MsgBox Application.Text([now()] - tt, "hh:mm:ss.00")
End Sub
として、 test1,test2,test3をそれぞれ実行してみて差を確認してみて下さい。
|
|