VBAでBeepメソッドを使ってPCスピーカーからビープ音を鳴らす方法

Beepメソッドの基本

VBAのBeepメソッドは、PCスピーカーからビープ音を発生させることができる関数です。主に、ユーザーに通知を与えたり、エラーが発生したことを知らせたりするために使用されます。

Beepメソッドは、単純な構文を持ち、以下のように使用することができます。

Beep

Beep

このコードを実行すると、PCスピーカーからビープ音が発生します。

また、Beepメソッドは、引数を取ることもできます。
引数は、ビープ音の長さと周波数を指定するために使用されます。長さは、ミリ秒単位で指定され、周波数は、ヘルツ単位で指定されます。以下は、引数を使用してBeepメソッドを呼び出す例です。

Beep 500, 1000

1	Beep 500, 1000

このコードを実行すると、500ミリ秒間、1000ヘルツの周波数でビープ音が発生します。

Beepメソッドは、単純で使いやすい関数であり、VBAプログラマーにとって非常に便利です。
ただし、PCスピーカーからの音は非常に限定的であり、より複雑な音を生成するためには、別の方法を使用する必要があります。

以下のコードは、エラーが発生した場合にビープ音を鳴らす例です。この例では、Beepメソッドを使用して、エラー発生時にビープ音を1回鳴らすように指定しています。

Sub Test()
    On Error GoTo ErrorHandler
    ' ここで何らかの処理を実行する
    Exit Sub
ErrorHandler:
    Beep
    MsgBox "エラーが発生しました！"
End Sub

Sub Test()

On Error GoTo ErrorHandler

' ここで何らかの処理を実行する

Exit Sub

ErrorHandler:

Beep

MsgBox "エラーが発生しました！"

End Sub

以下のコードは、プログラムの処理中にビープ音を鳴らす例です。この例では、ループを使用して、10回ビープ音を鳴らしています。

Sub Test()
    For i = 1 To 10
        Beep
        Application.Wait (Now + TimeValue("0:00:01"))
    Next i
End Sub

Sub Test()

For i = 1 To 10

Beep

Application.Wait (Now + TimeValue("0:00:01"))

Next i

End Sub

この例では、Beepメソッドを使用して、ビープ音を鳴らすためにループを使用しています。また、Application.Waitメソッドを使用して、ビープ音が1秒間鳴るように指定しています。

以下のコードは、フォームがアクティブになった時にビープ音を鳴らす例です。この例では、フォームのActivateイベントでBeepメソッドを呼び出して、フォームがアクティブになった時にビープ音を鳴らしています。

Private Sub UserForm_Activate()
    Beep
End Sub

Private Sub UserForm_Activate()

Beep

End Sub

この例では、フォームのActivateイベントでBeepメソッドを呼び出して、フォームがアクティブになった時にビープ音を鳴らしています。