软件:EXCEL
版本:2013
使用宏当达成条件时播放音效
Private Declare Function PlayWaveSound Lib "winmm.dll" Alias "sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Sub sound()
Dim soundName As String
soundName = "C:\WINDOWS\Media\Windows 灿烂.wav"
'指定音效档
PlayWaveSound soundName, 0
End Sub
以上是语法 虽然会发出声音 但永远是出现
C:\WINDOWS\Media\Windows 叮咚.wav
这个声音
无论语法路径如何修改音效都不会跟着变