遊び：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 HappyBirthdayBeep()

    ' ハッピーバースデー
    Call Beep(260.7, 1000) 'ド
    Call Beep(293.3, 1000) 'レ
    Call Beep(260.7, 1000) 'ド
    Call Beep(349.2, 1000) 'ファ
    Call Beep(330, 2000) 'ミ
    Call Beep(260.7, 1000) 'ド
    Call Beep(293.3, 1000) 'レ
    Call Beep(260.7, 1000) 'ド
    Call Beep(392, 1000) 'ソ
    Call Beep(349.2, 2000) 'ファ
    Call Beep(260.7, 1000) 'ド
    Call Beep(521.5, 1000) 'ド
    Call Beep(440, 1000) 'ラ
    Call Beep(349.2, 1000) 'ファ
    Call Beep(330, 1000) 'ミ
    Call Beep(293.3, 2000) 'レ
    Call Beep(469.9, 1000) 'シ♭
    Call Beep(440, 1000) 'ラ
    Call Beep(349.2, 1000) 'ファ
    Call Beep(392, 1000) 'ソ
    Call Beep(349.2, 2000) 'ファ

End Sub

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

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