エクセルでＡ５のあたいが８０を超えたら音楽を鳴らしたい

質問

いつもｇｏｏの皆さんにお世話になっています。

エクセルでＡ５の値が８０を超えたら音楽を鳴らしたい
のですが、どうやったら良いのか分かりません。

もしエクセルで可能でしたらどなたか教えてください。

回答No.1

nicotinism · ベストアンサー

適当なイベントが分からないので・・ご参考までに。
a1の値によって鳴らす判断をしています

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim strSoundFile As String 'WAVファイル名
Dim strPlaySound As String '命令文
Dim rtnVal As Long 'Shell の戻り値

strSoundFile = "C:\windows\Media\Notify.wav"
If Dir(strSoundFile) = "" Then
MsgBox "サウンドファイルが見つかりません"
Exit Sub
End If

If Me.Range("a5") > 80 And Me.Range("a1") = 0 Then
strPlaySound = "mplay32.exe /play /close " & strSoundFile
rtnVal = Shell(strPlaySound, vbHide)
Me.Range("a1") = 1 '鳴らさない
End If

If Me.Range("a5") <= 80 Then
Me.Range("a1") = 0
End If

End Sub

お礼

お陰様でうまくいきました。
最初教えて頂いたマクロを標準モジュールに書いてしまって当然なんの反応もなくて（この程度の知識しかありません）。今朝になってSheetに書けばよいとやっと分かりました。スピーカーから音が出て子供と一緒に感動しました。また一つＶＢＡで進歩できました。
詳しく教えて頂きましてありがとうございました。
マクロの内容を全て理解するのは無理ですが
どこを変えればいいのかは分かりますので
今後も大事に使わせて頂きます。