- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：VBAで判定音を鳴らす方法）
VBAで判定音を鳴らす方法
このQ&Aのポイント
- VBAを使用して、Windows7のExcel2010で動作させる際にメディアプレーヤーが表示されてしまう問題が発生しています。
- 改造することでメディアプレーヤーを表示せずに判定音を鳴らす方法を教えてください。
- プログラムや音楽データの関連付けを確認することも必要です。
- mitsu14
- お礼率50% (3/6)
- Visual Basic
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
音楽（曲）ならmciSendString を使うのが簡単ですが 特定のフォルダーに置くとPCによって鳴らなくなるのでシステムの音を使う例です。 音楽ではなく短いシステム音で判定します。 Option Explicit Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value = "" Then MessageBeep &H10 End If If WorksheetFunction.IsText(Target.Value) = True Then MessageBeep &H30 End If If WorksheetFunction.IsNumber(Target.Value) = True Then MessageBeep &H40 End If End Sub
お礼
お礼が遅くなってすみませんが、 ありがとうございます。 記載の通り、短いシステム音でしたので、 タイマと連続をかませてNG音を連続させることによって 使用できました。 本当にありがとうございました。