0

エクセル2007でのマクロの質問をお願いします 標準モジュール

Declare Function BeepAPI Lib "kernel32.dll" Alias "Beep" _
(ByVal dwFreq As Long, ByVal dwDuration As Long) As Long



Sheet2のシートに下記を書き込み

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("uri")) Is Nothing Then Exit Sub
Call BeepAPI(2000, 50)
Call BeepAPI(40, 450)
Call BeepAPI(2000, 50)
Call BeepAPI(40, 450)
Call BeepAPI(2000, 50)
Call BeepAPI(40, 450)
Else
Call BeepAPI(2000, 450)
Call BeepAPI(40, 50)
Call BeepAPI(2500, 450)
Call BeepAPI(40, 50)
Call BeepAPI(2500, 450)
Call BeepAPI(40, 50)
End If
End Sub



Sub Sample03_2()
Worksheets.Add after:=Worksheets(Worksheets.Count)
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("kai")) Is Nothing Then Exit Sub
Call BeepAPI(1500, 50)
Call BeepAPI(40, 450)
Call BeepAPI(1500, 50)
Call BeepAPI(40, 450)
Call BeepAPI(1500, 50)
Call BeepAPI(40, 450)
Else
Call BeepAPI(1500, 450)
Call BeepAPI(40, 50)
Call BeepAPI(1500, 450)
Call BeepAPI(40, 50)
Call BeepAPI(1500, 450)
Call BeepAPI(40, 50)
End If
End Sub


エクセル特にマクロ初心者の者です、いろいろと教えていただきありがとうございます。
エクセルの数個のセルに数値が入った時に２種類の音が鳴るように設定したいのですが

sheet1,sheet2がありシート２の特定の数個のセルに一つでも数値が入ったり数値が変わったら音が鳴るようにしたいのです
前回教えていただいたように２種類の音の区別でuri kaiという名前でそれぞれ登録し上記ののように書き込みをしましたが

コンパイルエラー：名前が適切ではありません Worksheet_Change というメッセ―ジが出ます

よくわからないので教えていただきませんかお願いします

質問者が選んだベストソリューション

Yahoo!知恵袋 3940日前