[算表] VBA 音效問題
軟體: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
這個聲音
無論語法路徑如何修改音效都不會跟著變
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.37.202.156
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1454436273.A.09C.html
→
02/03 07:04, , 1F
02/03 07:04, 1F
![](https://i.imgur.com/4FuTZwX.jpg)
→
02/03 07:05, , 2F
02/03 07:05, 2F
→
02/03 11:35, , 3F
02/03 11:35, 3F
→
02/03 11:55, , 4F
02/03 11:55, 4F
→
02/03 11:56, , 5F
02/03 11:56, 5F
→
02/03 11:57, , 6F
02/03 11:57, 6F
→
02/03 12:01, , 7F
02/03 12:01, 7F
→
02/03 12:11, , 8F
02/03 12:11, 8F
→
02/03 12:28, , 9F
02/03 12:28, 9F
→
02/03 12:29, , 10F
02/03 12:29, 10F
→
02/03 12:29, , 11F
02/03 12:29, 11F
→
02/03 12:32, , 12F
02/03 12:32, 12F
→
06/23 12:07, , 13F
06/23 12:07, 13F
→
06/23 12:07, , 14F
06/23 12:07, 14F