Excel VBA質問箱 IV

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

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


48547 / 76732 ←次へ | 前へ→

【33120】Re:0.5秒
発言  ichinose  - 06/1/3(火) 12:19 -

引用なし
パスワード
   皆さん、こんにちは。
今年もよろしくお願いします。

>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をそれぞれ実行してみて差を確認してみて下さい。

0 hits

【33079】0.5秒 よっちゃん 06/1/2(月) 4:36 質問
【33082】Re:0.5秒 だるま 06/1/2(月) 9:08 回答
【33084】Re:0.5秒 よろずや 06/1/2(月) 12:10 発言
【33092】Re:0.5秒 Kein 06/1/2(月) 15:24 回答
【33120】Re:0.5秒 ichinose 06/1/3(火) 12:19 発言

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