Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

66813 / 76807

←次へ　｜　前へ→


	【14556】Re:タイマーイベントをミリ秒単位で

ちん - 04/6/1(火) 18:57 -


	引用なし

	パスワード

ぐうぐうさん、ちゃっぴさん今晩は、ちんといいます。
API関数の「ＳＬＥＥＰ」を使用してはどうでしょうか。

Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)
Sub a1()
　　
　　Debug.Print "Start Time=" + Format(Time, "hh:mm:ss")
　　For i1 = 1 To 100
　　　Sleep (20)
　　Next i1
　　Debug.Print "END Time=" + Format(Time, "hh:mm:ss")
End Sub

１ミリ単位から指定できます。（Sleep(1)）

以上、参考までに・・・

▼ぐうぐうさん：
>はじめまして。
>タイマーイベントをミリ秒単位で
>発生させる方法をご存知の方がいたら教えていただけないでしょうか。
>
>現在はしたのようにしていますが
>next_on = Now() + TimeValue("00:00:03")
>Application.OnTime Next_on, "GOGO"　
>
>next_onにミリ秒単位で指定したいのです。
>
>よろしくお願いします。
>

0 hits

▼

【14554】タイマーイベントをミリ秒単位で ぐうぐう 04/6/1(火) 18:31