[µo°Ý] «ç¼Ë¨Ïexcel »¡¥Xwav

¦Û§Ú·Pı¨}¦n

¯u®`¡ãexcel¥Î64¦ì¤¸³o¨Ç³£µL®Ä¤F
excel 32ÁÙ¥i¥H¥Î¡K

Option Explicit

'API Class to take care of playing the file
Public Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
                        ByVal uFlags As Long) As Long

¦Û§Ú·Pı¨}¦n

2012¦~´¿¸g°Q½×¹L¡A¤£¹L¨ì¤F64¦ìªºexcel¥þ³£¥¢®Ä¤F
http://forum.twbts.com/viewthrea ... ntable&tid=7013

¦Û§Ú·Pı¨}¦n

32ªºexcel¥i¥H¥Î.rar (601.2 KB)

¤U¸ü¦¸¼Æ: 12

2017-12-11 11:08

ªþ¤WÀɮסA®³¨ì64¦ì¤¸´N¤£¯à¥Î¤F¡K

¦Û§Ú·Pı¨}¦n

§Ú·Q­n§Úªºexcel­n¹³¥¦¤@¼Ë¡K·|Á¿¸Ü
https://youtu.be/17Wvun4onuY

c_c_lai

¦^´_ 1# ¦Û§Ú·Pı¨}¦n
'API Class to take care of playing the file
Public Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
                        ByVal uFlags As Long) As Long
'  ­×§ï¦¨¦p¤U«K¥i¥H¤F ( PtrSafe )
'  API Class to take care of playing the file
Public Declare PtrSafe Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
                        ByVal uFlags As Long) As Long

c_c_lai

¦^´_ 3# ¦Û§Ú·Pı¨}¦n
¦pªG¦P®É­n¦b 32 / 64 ¦ì¤¸¤U§¡¯à°õ¦æ¡A½Ð­×§ï¦¨¡G
#If VBA7 Then
    'API Class to take care of playing the file
    Public Declare PtrSafe Function sndPlaySound32 Lib "winmm.dll" _
    Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
                        ByVal uFlags As Long) As Long
#Else
    Public Declare Function sndPlaySound32 Lib "winmm.dll" _
    Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
                        ByVal uFlags As Long) As Long
#End If

¦Û§Ú·Pı¨}¦n

¦^´_ 6# c_c_lai
¯uªº¬O±Ï­W±ÏÃøªºµÐÂÄ¡A¤Ó·PÁ¤F¡ã
§Ú·Q³£¨S¦³ÁÙ¥i¥H32©M64³£¥i¥Îªº¡A³o¤@©Û¡C
¤Ó§¹¬ü¤F