☰

Excel VBA で 1 秒未満の時間遅延を設定するにはどうすればよいでしょうか? 質問する

tag-icon • tag-icon excel vba
Excel VBA で 1 秒未満の時間遅延を設定するにはどうすればよいでしょうか? 質問する

1秒未満の一定期間後にイベントを繰り返したい。次のコードを試してみました

Application.wait Now + TimeValue ("00:00:01")

しかし、ここでは最小遅延時間は 1 秒です。たとえば 0.5 秒の遅延を与えるにはどうすればよいでしょうか?

ベストアンサー1

API 呼び出しと Sleep を使用できます。

これをモジュールの先頭に配置します:

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

次に、次のような手順で呼び出すことができます。

Sub test()
Dim i As Long

For i = 1 To 10
    Debug.Print Now()
    Sleep 500    'wait 0.5 seconds
Next i
End Sub

おすすめ記事