Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Excel 2016)
Wait マクロについて
投稿日時: 18/02/27 11:34:25
投稿者: はじめて

お世話になります。
 
マクロの中で次のマクロを使って実行時間の待ちを管理しています。
WaitTime = Now + TimeVale("0:00.01")
Application.Wait WaitTime
これは1秒なのでもう少し待ち時間を短くしたいのですが方法がわかりません。
Waitマクロでなくても構いませんが、待ち時間を短くする方法をご教示していただけないでしょうか。
よろしくお願いします。

回答
投稿日時: 18/02/27 11:41:37
投稿者: WinArrow
投稿者のウェブサイトに移動

↓を、参考にして、SLEEPを検討してみてください。
https://www.sejuku.net/blog/37388

投稿日時: 18/02/27 12:36:58
投稿者: はじめて

WinArrow さん
早速のご教示ありがとうございます。
以下のようにマクロを入力し実行しましたがエラーが出ました。
エラー
SubまたはFunctionが定義されていません。
Private〜〜〜〜〜を一番上に入れるといううことがわかりません。
 
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long)
 
Sub 秒待ち()
 
    Dim time As Long
    time = 500
    Sleep time
    MsgBox time & "ミリ秒後に表示しました"
     
End Sub

投稿日時: 18/02/27 12:51:06
投稿者: はじめて

WinArrow さん
以下のようにマクロを修正しましたところ出来ました。
ありがとうございました。
 
Sub 秒待ち()
    Dim time As Long
    time = 500
     
    Application.Wait [Now()] + time / 86400000
     
     
' Sleep time
     
' MsgBox time & "ミリ秒後に表示しました"
End Sub

投稿日時: 18/02/27 13:38:49
投稿者: はじめて

 WinArrow さん
 
お世話になりました。
ありがとうございました。