何秒後に実行する

５秒後にほかのシートに移動するなど、何秒後に実行するということは出来るんでしょうか？
出来るなら教えて下さい。
一応、メッセージボックスを表示するのと、
ほかのシートに移動したいのです。（２つ一緒に実行するのではありません）

No.1 ベストアンサー 回答者： hogehage 回答日時： 2005/07/19 15:19

５秒間処理待ちの場合。

この後に続けたい処理を書きます。

Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 5)

この回答へのお礼

うまくいきました。
ありがとうございます。

お礼日時：2005/07/19 15:46

No.2 回答者： Wendy02 回答日時： 2005/07/19 15:41

こんにちは。

＞（２つ一緒に実行するのではありません）
？
こういうことかな？

Sub WaitCommand()
　Application.Wait Now + TimeValue("00:00:05")
　Worksheets("Sheet3").Select
　Beep
End Sub


↓こちらのほうは、ひじょうに時間にムラあります。

Sub WaitCommand2()
　Set WshShell = CreateObject("WScript.Shell")
　WshShell.Popup "5秒待てば自動的に実行します。", 5, "テスト"
　Set WshShell = Nothing
End Sub

この回答へのお礼

ありがとうございます。

お礼日時：2005/07/19 15:50