|
>VBAでUserFormを5秒間だけ表示し
ヘルプに使用例が載っていました。
Wait メソッドの使用例
次の使用例は、実行中のマクロを当日の午後 6 時 23 分まで停止します。
Application.Wait "18:23:00"
次の使用例は、実行中のマクロを約 10 秒間停止します。
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 10
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
次の使用例は、10 秒を過ぎるとメッセージを表示します。
If Application.Wait(Now + TimeValue("0:00:10")) Then
MsgBox "時間が過ぎました。"
End If
>その後、音(サウンド)を鳴らす方法を
API関数を使うと出来ます。
http://homepage1.nifty.com/MADIA/vb/API/sndPlaySound.htm
|
|