[發問] 偵錯沒問題,就是無法執行

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

2^#

發表於 2011-4-29 08:51 | 只看該作者

用錄音程式播放音樂還是頭一次看到
使用Wimm.dll應該純淨點，也可避免版本衝突
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long
Private Const Mic = "c:\op.wav"
Sub op()
mciExecute ("play " & Mic)
End Sub

帖子: 35
主題: 8
精華: 0
積分: 57
點名: 0
作業系統: w7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-6-1
最後登錄: 2021-2-19

3^#

發表於 2011-4-29 10:03 | 只看該作者

大家好！
本來是想用我在舊論壇裡找到的應用，加以修改再使用，現在應直接說明想達成的效果。
我想做的是：
1.如:當 A1>A2 時；自動撥放 C:\168.WAV、當 B1=>B2 時；自動撥放 C:\258.WAV........不同條件可播放指定音效。
2.當條件成立時所設定的聲音播放2次然後自動停止，除非條件又再次成立。
3.巨集有START、STOP按鍵。

謝謝! 感恩

50 字節以內
不支持自定義 Discuz! 代碼

hugh0620

　暱稱: VBA向前衝

高中生 Rank: 3 Rank: 3

帖子: 559
主題: 58
精華: 0
積分: 626
點名: 0
作業系統: win8
軟體版本: office2013
閱讀權限: 50
性別: 男
來自: TW
註冊時間: 2010-11-22
最後登錄: 2024-6-14

4^#

發表於 2011-4-29 13:21 | 只看該作者

回復 3# wells330

可否附上您的test檔~ 這樣比較能夠討論到~ 為什麼會有問題~

學習才能提升自己

帖子: 35
主題: 8
精華: 0
積分: 57
點名: 0
作業系統: w7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-6-1
最後登錄: 2021-2-19

5^#

發表於 2011-4-29 21:51 | 只看該作者

檔案已上傳；麻煩各位前輩了。:)

謝謝!

play.zip (17.77 KB)

50 字節以內
不支持自定義 Discuz! 代碼

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

6^#

發表於 2011-4-29 23:59 | 只看該作者

回復 5# wells330

放錯工作表模組

學海無涯_不恥下問

帖子: 35
主題: 8
精華: 0
積分: 57
點名: 0
作業系統: w7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-6-1
最後登錄: 2021-2-19

7^#

發表於 2011-4-30 09:46 | 只看該作者

Hsieh版主你好！
已修正；出現以下錯誤麻煩指正謝謝!

play.zip (16.46 KB)

50 字節以內
不支持自定義 Discuz! 代碼

chin15

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

8^#

發表於 2011-4-30 20:38 | 只看該作者

我測試能通過，也許你的路徑檔案不存在。

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

9^#

發表於 2011-5-1 00:09 | 只看該作者

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

學海無涯_不恥下問

帖子: 35
主題: 8
精華: 0
積分: 57
點名: 0
作業系統: w7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-6-1
最後登錄: 2021-2-19

10^#

發表於 2011-5-1 22:57 | 只看該作者

大家好！
真的是好手雲集！小弟先謝謝各位
   先回覆Hsieh超級版主：W7的錄音機真的只能用來錄音，不能播放音效（作業系統；EXCEL版本的不同弄的．．．．．．。）你的細心我會多加學習。
      chin15大大妳好！妳建議的巨集我有試過OK有聲音，但我真不之從何修改起？請各位前輩幫幫忙！
   1.我有許多動態資料會進來作比對動作，如:當 A1>A2 時；自動撥放 C:\168.WAV、
      當 B1=>B2 時；自動撥放 C:\258.WAV........不同條件可播放指定音效。
   2.當條件成立時所設定的聲音播放1次然後自動停止，除非條件又再次成立。
   3.巨集有START、STOP按鍵。
                     謝謝!    感恩

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long
Private Const Mic = "c:\op.wav"
Sub op()
mciExecute ("play " & Mic)
End Sub

50 字節以內
不支持自定義 Discuz! 代碼