偵錯沒問題,就是無法執行 - Excel程式區

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 61
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-3-12

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2011-5-1 00:09 | 顯示全部帖子

WINDWOS 錄音機
C:\Windows\system32\SoundRecorder.exe
但是，錄音機能用來播放音效嗎?

學海無涯_不恥下問

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 61
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-3-12

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2011-5-2 22:16 | 顯示全部帖子

播放曲目的對應寫在第3列

附件請解壓縮到電腦後再開啟
一般模組

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long
Sub op(mypath)
On Error Resume Next
mciExecute "play " & mypath
End Sub

複製代碼

工作表模組

Private Sub Worksheet_Calculate()
For Each a In [B1:D1]
If a > a.Offset(1, 0) Then
mypath = ThisWorkbook.Path & "\" & a.Offset(2, 0)
Application.OnTime Now + TimeValue("00:00:03") * i, "'op " & Chr(34) & mypath & Chr(34) & "'"
i = i + 1
Application.OnTime Now + TimeValue("00:00:03") * i, "'op " & Chr(34) & mypath & Chr(34) & "'"
i = i + 1
End If
Next
End Sub

複製代碼

PlaySound.rar (90.72 KB)

學海無涯_不恥下問

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 61
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-3-12

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2011-5-3 00:02 | 顯示全部帖子

B1:D2我用RANDBETWEEN函數
第三列就直接輸入該欄條件成立要播放的曲目
按F9重算就會播放

學海無涯_不恥下問

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 61
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-3-12

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2011-5-3 11:45 | 顯示全部帖子

本帖最後由 Hsieh 於 2011-5-3 22:32 編輯

另一個API函數用法sndPlaySound
一般模組

Private Declare Function sndPlaySound Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Function SndPlay(Pathname As String) As Long
SndPlay = sndPlaySound(Pathname, SND_ASYNC)
End Function

複製代碼

工作表模組

Private Sub Worksheet_Calculate()
For Each a In [B1:D1]
If a > a.Offset(1, 0) Then
mypath = ThisWorkbook.Path & "\" & a.Offset(2, 0)
Application.OnTime Now + TimeValue("00:00:03") * i, "'SndPlay " & Chr(34) & mypath & Chr(34) & "'"
i = i + 1
Application.OnTime Now + TimeValue("00:00:03") * i, "'SndPlay " & Chr(34) & mypath & Chr(34) & "'"
i = i + 1
End If
Next
End Sub

複製代碼

B1:D2輸入公式
=RAND()
B3:D3輸入音效檔名(含副檔名)
按F9重算
WIN XP+2003版
WIN 7+2010版
測試通過

PlaySound.zip (85.04 KB)

學海無涯_不恥下問