11/10/02 00:54:07.16 HeHAUiQt0
>>349
Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" ( _
ByVal pszSound As String, _
ByVal hmod As Long, _
ByVal fdwSound As Long _
) As Long
Public Const SND_ASYNC = &H1
Public Sub test()
Dim WrkSndFile As String
WrkSndFile = ThisWorkbook.Path & "\test.wav"
PlaySound WrkSndFile, 0, SND_ASYNC←適当に条件をつける