Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11797 / 13646 ツリー ←次へ | 前へ→

【14070】UserFormの自動終了と音の処理について TOKU 04/5/19(水) 22:48 質問[未読]
【14071】Re:UserFormの自動終了と音の処理について IROC 04/5/20(木) 8:52 回答[未読]
【14083】Re:UserFormの自動終了と音の処理について TOKU 04/5/20(木) 16:50 質問[未読]
【14090】Re:UserFormの自動終了と音の処理について IROC 04/5/20(木) 18:30 回答[未読]
【14091】Re:UserFormの自動終了と音の処理について TOKU 04/5/20(木) 18:38 お礼[未読]

【14070】UserFormの自動終了と音の処理について
質問  TOKU  - 04/5/19(水) 22:48 -

引用なし
パスワード
   VBAでUserFormを5秒間だけ表示し、その後、音(サウンド)を鳴らす方法を
誰か知っている方がいましたら教えて下さい。
※音のファイル形式は01.wavとした場合

【14071】Re:UserFormの自動終了と音の処理について
回答  IROC  - 04/5/20(木) 8:52 -

引用なし
パスワード
   >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

【14083】Re:UserFormの自動終了と音の処理について
質問  TOKU  - 04/5/20(木) 16:50 -

引用なし
パスワード
   ▼IROC さん:
>次の使用例は、10 秒を過ぎるとメッセージを表示します。
>
>If Application.Wait(Now + TimeValue("0:00:10")) Then
>  MsgBox "時間が過ぎました。"
>End If
上記を参考に作成したんですけど、うまく動きませんでした。
どの部分にUserFormを入れればいいのですか??

【14090】Re:UserFormの自動終了と音の処理について
回答  IROC  - 04/5/20(木) 18:30 -

引用なし
パスワード
   UserForm モジュールの イニシャライズ・イベント か
アクティベイト・イベント で良いかと思います。

【14091】Re:UserFormの自動終了と音の処理について
お礼  TOKU  - 04/5/20(木) 18:38 -

引用なし
パスワード
   ▼IROC さん:
アクティベイト・イベントで出来ました。(^o^)>
ありがとうございました。m(_ _)m
また機会があれば、助けてください。(^3^)

11797 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free