Excel VBAで音を鳴らす（Beep音）

VBAでBeep音を鳴らす方法を紹介します。

Beep()関数を呼び出すだけです。

Sub Sample_Beep()

    ' 音を鳴らす『ピッ』
    Beep
    
End Sub

１０回鳴らしたい場合には、繰り返し処理をつかいます。

Sub Sample_Beep10times()

    ' １秒ごとに１０回音を鳴らす
    ' 『ピッ』『ピッ』『ピッ』『ピッ』『ピッ』『ピッ』『ピッ』『ピッ』『ピッ』『ピッ』
    For i = 1 To 10
        Beep
        Application.Wait (Now() + TimeValue("00:00:01"))
    Next i
    
End Sub