Excel VBAでドレミの音を鳴らす（Beep音）

以前、VBAでBeep音を鳴らす方法を紹介しました。

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

ここでは、音階を奏でる方法を紹介します。

次のVBAプログラムを書きます。

Option Explicit

#If Win64 Then
    Private Declare PtrSafe Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
    
    Private Declare PtrSafe Function MessageBeep Lib "user32" (ByVal wType As Long) As Long
#Else
    Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
    
    Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long
#End If


' 音階
Sub ScaleBeep()

    Call Beep(261, 1000) 'ド
    Call Beep(293.3, 1000) 'レ
    Call Beep(330, 1000) 'ミ

End Sub

VBAエディターに貼り付けた際に、赤文字になっても心配しなくて大丈夫です。

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