VBAのBeepで警告音を鳴らす方法をわかりやすく解説

Beepの概要

Beepの基本的な使い方

以下のコードを実行すると、システムの標準警告音が鳴ります。

Sub BeepExample()
    Beep
End Sub

解説：

• Beep を実行すると、システムのデフォルトの警告音が鳴る。
• VBAのMsgBox の音とは異なり、カスタマイズはできない。
• 環境によって音が異なる（消音設定されていると聞こえない）。

Beepを複数回鳴らす

ループを使って複数回 Beep を実行することも可能です。

Sub MultiBeep()
    Dim i As Integer
    For i = 1 To 3
        Beep
        Application.Wait Now + TimeValue("00:00:01") ' 1秒待機
    Next i
End Sub

解説：

• For i = 1 To 3 のループで 3 回 Beep を鳴らす。
• Application.Wait を使って 1 秒ずつ間隔を空けて音を鳴らす。

条件に応じて Beep を鳴らす

ユーザーがエラーを起こした場合に Beep を鳴らす例です。

Sub CheckValue()
    Dim num As Integer
    num = InputBox("1～10の数値を入力してください")
    
    If num < 1 Or num > 10 Then
        Beep
        MsgBox "エラー: 1～10の範囲で入力してください", vbCritical
    Else
        MsgBox "正しい値が入力されました", vbInformation
    End If
End Sub

解説：

• ユーザーが 1～10 の範囲外の数値を入力すると Beep を鳴らし、エラーメッセージを表示。
• 範囲内の値なら「正しい値が入力されました」と表示される。

Beepのカスタマイズ

VBAの標準Beepでは音を変えられませんが、Windows API の Beep 関数を使うと周波数と長さを指定できます。

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

Sub CustomBeep()
    BeepAPI 1000, 500 ' 1000Hzの音を500ミリ秒鳴らす
End Sub

解説：

• Windows API の Beep 関数を呼び出し、周波数と持続時間を指定可能。
• BeepAPI 1000, 500 は、1000Hz の音を 500 ミリ秒間鳴らす。
• システムによっては Beep API が無効化されている場合があるので注意。

注意点

• VBAのBeepは音色や長さを変更できない: 変更したい場合は Windows API を利用する必要がある。
• 消音設定だと聞こえない: ユーザーがミュートしている場合、Beep は鳴らない。
• Beepの代わりにMsgBoxの音を活用できる: MsgBox の vbCritical や vbExclamation も音を鳴らせる。

よくある質問

Q: Beepの音を変更できますか？

A: VBA標準の Beep は変更できませんが、Windows API の Beep 関数を使えば可能です。

Q: Beepが鳴らない原因は？

A: 消音設定やサウンド設定でシステム音が無効化されている可能性があります。

Q: Beep をループして鳴らすことはできますか？

A: はい、For ループや Do While ループを使えば可能です。

まとめ

• Beep ステートメントを使うと、VBAで簡単に警告音を鳴らせる。
• 複数回鳴らしたり、エラーチェックと組み合わせて使用できる。
• 標準の Beep は音の種類や長さを変更できない。
• Windows API の Beep を使うと周波数や長さを指定可能。
• 消音設定されていると Beep が聞こえないことがあるので注意。