VBAサンプル集
Beep音で音楽（Beep,Sleep）

Option Explicit

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Sub PlayMusic()
　　Dim i As Long
　　Dim varHlookup As Variant
　　For i = 2 To Cells(5, Columns.Count).End(xlToLeft).Column
　　　　On Error Resume Next
　　　　varHlookup = Application.WorksheetFunction.HLookup(Cells(5, i), Range("B2:W3"), 2, False)
　　　　If Err Then
　　　　　　Sleep (Cells(6, i))
　　　　Else
　　　　　　Call CallBeep(varHlookup, Cells(6, i))
　　　　End If
　　　　On Error GoTo 0
　　Next i
End Sub

Sub CallBeep(ByVal lngfreq As Long, ByVal lngTime As Long)
　　Call Beep(lngfreq, lngTime)
End Sub