VBAでエラーが発生したときに音を鳴らしたいのですがどうすればいいでしょう？

VBAでエラーが発生したときに音を鳴らしたいのですがどうすればいいでしょう？

No.1 ベストアンサー 回答者： misatoanna 回答日時： 2009/05/09 16:36

単純な警告音でよいのでしたら、

　If Range("A1").Value >= 10 Then Beep
のように記述すればよいでしょう。
この場合、コントロールパネル－サウンド－一般の警告音　で指定されている音が
出ます。

ユーザー指定の音(*.mid、*.wav)を出したい場合は、次のように記述します。
　Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
　　　(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
　　　ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

　Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　Dim SndFile As String, SndPlay As Long
　　If Target.Address <> "$A$1" Then Exit Sub
　　If Target.Value >=10 Then
　　　SndFile = "C:\xxxx\xxxx\xxxx.wav"　　'音声ファイルのフルパス
　　　SndPlay = mciSendString("Play " & SndFile, "", 0, 0)
　　End If
　End Sub

この回答へのお礼

ありがとうございます。

お礼日時：2009/05/10 02:03

No.2 回答者： hallo-2007 回答日時： 2009/05/09 16:44

取り合えず、エラーが発生したときの処理

エラー処理
http://excelvba.pc-users.net/fol6/6_8.html

音を鳴らす　Beepコマンド
http://officetanaka.net/excel/vba/statement/Beep …

APIを使用したBeepコマンド
http://exceler.blog68.fc2.com/
は参考になりますでしょうか。

この回答へのお礼

ありがとうございます。

お礼日時：2009/05/10 02:03