EXCELの計算結果によって音を出したりはできますか？

質問

こんにちは。
エクセルの計算結果の数値が一定以上ならサウンドを出したりさせる方法はありませんでしょうか？

例えば、C1=A1-B1　の様な計算式を設定しておくとして、C1の数値が10以上なら音を出して知らせる、というような事をしたいと思っています。
A1　B1　C1
100 80 20　←この場合計算結果のセルC1の数値が10以上なので音が出る

EXCELの標準機能だとできないと思うのですが、何かしらの方法を使って実現することはできますでしょうか？

回答No.1

kigoshi · ベストアンサー

マクロ使ってもいいなら、

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 3).Value >= 10 Then Beep
End Sub

とかではどうでしょう。

回答No.3

kigoshi

任意の音声ファイル(wavなど)を鳴らすこともできるようです。

例）
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 3).Value >= 10 Then Shell "mplay32.exe /play /close C:\WINDOWS\Media\Windows XP Ringin.wav"
End Sub

「C:\WINDOWS\Media\Windows XP Ringin.wav」
の部分を変えることで任意の音を鳴らせます。

回答No.2

imogasi

Ｓｈｅｅｔ１のＣ１セルの値を問題にしているとして
（１）標準モジュールに
Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
を貼り付け（ウインドウズＡＰＩ関数）
（２）シートモジュールのＣｈａｎｇｅイベントに
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 3) > 20 Then
Call Beep(262, 300)
Call Beep(294, 300)
Call Beep(330, 300)
Call Beep(349, 300)
Call Beep(392, 300)
Call Beep(440, 300)
Call Beep(494, 300)
Call Beep(523, 300)
End If
End Sub
を入れる。
Ｃ１に＝Ａ１－Ｂ１の式が入っているとして
Ａ１，Ｂ１の値を変えるとｃ１が２０超ならドレミがなる。
（ＷＥＢ記事を参考にしました）
http://homepage1.nifty.com/MADIA/vb/vb_bbs/200408_04080006.html
等