ビープ音を鳴らす【Beep関数/BeepAPI】【ExcelVBA】

ビープ音を鳴らす事はBeepステートメントで可能でしたが、
音の周波数や鳴動時間など細かい部分を選択したい場合はWindowsAPIのBeep関数で処理します。

Beep関数/BeepAPIのサンプルコード

'■WindowsAPIを使用するため、宣言(64bit/32bit)
#If Win64 Then
    Declare PtrSafe Function BeepAPI Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
#Else
    Declare Function BeepAPI Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
#End If
Public Sub sample()

    '■ド(周波数262）を0.5秒鳴らす。
    Call BeepAPI(262, 500)

    '■ド(周波数262）を1秒鳴らす。
    Call BeepAPI(262, 1000)

    '■ド(周波数262）を10秒鳴らす。
    Call BeepAPI(262, 10000)
End Sub

注意点

• 構文は　BeepAPI (音の周波数, 鳴動時間)です。
• 周波数の音階は以下。

関連記事

• ビープ音を鳴らす【Beepステートメント】