[メモ]Excel VBAで1秒以下のwait

某掲示板で議論してて、Application.Waitで1秒以下のwaitが出来ないと思っている人が多いみたい。
たしかにWIN32 API使うのも手ですが、Application.Waitで良いのです。

ただ、自分も拾ってきたサンプルソースからの流用だったんで、忘備録としてメモ。

Public Sub Wait()

     ' 0.5秒wait
     Application.Wait [Now() + "0:00:00.5"]

End Sub

ポイントは[]で囲っている所。
囲わないと秒単位でしか測れませんが、囲うとミリ秒まで指定できます。
精度はAPIと同様(ホントかなぁ)らしいですが、Excel限定というのもミソ。

Profile

me.jpg
Name : みっちー
小学校で電子工作にハマり、高校時代はゲームプログラミング、大学時代にロボット製作へどっぷり浸かりました。
社会人になっても、なにかとものを作るのが大好きで、日々ネタと仲間を求めて活動中です。

Dream Drive!!

bana.png
http://dream-drive.net

趣味のロボットとプログラムを中心としたコンテンツのサイトです。

My Robots

kolink2.jpg
KO-LINK2
第2世代 並行リンク足ロボット

kolink.jpg
KO-LINK
並行リンク足ロボット

BusterGX.jpg
BusterGX (Ex Walker)
G-ROBOT + ROBO-XERO

kumaco.jpg
KUMACO
ぬいぐるみロボット

SARUBO.jpg
SARUBO
JX-SYSTEM搭載ぬいぐるみロボット

kokuten3.jpg
KOKUTEN 3
リアルタイム逆運動学制御ロボット

meros.jpg
MEROS
膝なしロボット
(胸部マトリックスLED搭載)
by Mechaniker

kokuten12.jpg
KOKUTEN 1&2
はじめてのロボット
by Mechaniker

協賛広告

月別 アーカイブ

このブログ記事について

このページは、みっちーが2011年9月12日 20:26に書いたブログ記事です。

ひとつ前のブログ記事は「双葉のロボット用小型サーボ(RS30x)あれこれ」です。

次のブログ記事は「明日は、もんじゃー!」です。

最近のコンテンツはインデックスページで見られます。過去に書かれたものはアーカイブのページで見られます。