セルの数値が規定の範囲に入れば音を鳴らしたい

質問

ＥＸＣＥＬ上でセルの数値はリアルタイムで変化しています。このセルの数値が例えば1から10の間に入ったら音を鳴らしたいのですが、どなたか教えて頂けませんでしょうか。

回答No.1

merlionXX · ベストアンサー

仮にそのセルをA1とします。
セルの数値がどのようにリアルタイムで変化するのかわかりませんが、入力されるのでしたら、

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Value <= 10 And Target.Value >= 1 Then Beep
End Sub

計算で変化するのでしたら
Private Sub Worksheet_Calculate()
If Range("A1").Value <= 10 And Range("A1").Value >= 1 Then Beep
End Sub

ではいかがでしょうか？

お礼

初期の目的は達しました。このＢｅｅｐ音を使って行きます。ありがとうございました。

補足

計算で変化する方を貼り付けてみましたら、ポンという単音が出ました。成功です、ありがとうございました。また教えていただきたいですが、ＷＡＶを鳴らすためには、どのような処理をすればよろしでしょうか。よろしくお願いします

回答No.3

chibita_papa

こんなのもあります

Application.Speech.Speak "かわりました"

コントロールパネルの音声認識で
ケンジ君　にすれば男性
ナオコさんにすれば女性の声に出来ます

お礼

初心者ですのでどう使うのか判らないですが研究します。ありがとうございました。

回答No.2

kobouzu_su

こんにちは。

Api関数 PlaySoundを使うのが一番簡単なようです。

例えば、フォルダー、C:\abc　の　XYZ.wav　を鳴らす場合。

'-----------------------------------
Private Sub Worksheet_Calculate()
　　Call TestSound
End Sub
'----------------------------------

●以下は標準モジュール

'--------------------------------------
Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Public Const SND_ASYNC = &H1

'-------------------------------------------------
Sub TestSound()
　　Call PlaySound("C:\abc\XYZ.wav", 0, SND_ASYNC)
End Sub
'--------------------------------------------------

これだけです。

お礼

初心者ですのでどう使うのか判らないですが研究します。ありがとうございました。