VBAのメモ 打鍵シミュレーションにおいて待ち時間をミリセック単位でウエイトしたい場合

f:id:gyokusen_since:20190830110834p:plain

開発途中の辞書登録マクロ

現在上記のアプリを開発中です。

バッチで辞書に登録しようとするために下記の辞書登録ツールが登録する終了タイミングを計算して待っている必要があります。

f:id:gyokusen_since:20190830111438p:plain

辞書のバッチ登録

sendkeysを実行する前に下記のような処理待ちを実行しようとしています。

Application.Wait [Now()] + 3849 / 86400000 '日数.1日を単位とした日にちの小数

秒単位ならば下記のやり方で大丈夫です。

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

ですがミリセック単位で指定したい場合はと調べてみると下記の記述でいけるそうです。カギ括弧はどんな意味かと調べたらApplication.evaluateとほぼ同じという意味だそうです。

Application.Wait [now() + "00:00:03.55"] 

このカギ括弧内はエクセルシートのセルに=now()+"00:00:03.55"と記述した結果と同じ意味になります。

【メモ】

Application.evaluateは文字列を評価してオブジェクトにしたり、シート上の関数式を実行してくれるという使い方らしい。。。