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

質問

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

回答No.1

misatoanna · ベストアンサー

単純な警告音でよいのでしたら、
　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

お礼

ありがとうございます。

回答No.2

hallo-2007

取り合えず、エラーが発生したときの処理
エラー処理
http://excelvba.pc-users.net/fol6/6_8.html

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

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

お礼

ありがとうございます。