12
返回列表 上一主題 發帖

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

wells330

帖子
35 
主題
8 
精華
0 
積分
57 
點名
0  
作業系統
w7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2010-6-1 
最後登錄
2021-2-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-4-29 08:24 | 只看該作者

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

各位前輩大家好!
       可以幫忙看一下這巨集哪裡有錯誤嗎?
       這是我在舊論壇裡找到的應用，用Office2000和Office2010都沒辦法順利執行,
       音效檔案測試也沒問題,按F8偵錯也沒問題,就是發不出聲音,
       是否需要修改的地方請各位前輩指正.

         謝謝!   

Private Sub Worksheet_Calculate()

    Dim spath As String, cmd As String
  
    If Range("A1").Value <= Range("B1").Value Then
  
    spath = "C:\op.wav"
  
        cmd = "sndrec32 /play /close " & Chr(34) & spath & Chr(34)
   
        Shell cmd, 6
   
    End If
  
End Sub
收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

chin15

帖子
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

TOP

wells330

帖子
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! 代碼

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 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檔~ 這樣比較能夠討論到~ 為什麼會有問題~
學習才能提升自己

TOP

wells330

帖子
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! 代碼

TOP

Hsieh

帖子
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

放錯工作表模組
學海無涯_不恥下問

TOP

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! 代碼

TOP

chin15

帖子
227 
主題
3 
精華
1 
積分
273 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-3-22 
最後登錄
2013-1-29 
8#
發表於 2011-4-30 20:38 | 只看該作者
我測試能通過，也許你的路徑檔案不存在。

TOP

Hsieh

帖子
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
但是，錄音機能用來播放音效嗎?
學海無涯_不恥下問

TOP

wells330

帖子
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! 代碼

TOP

        靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。
12
返回列表 上一主題