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

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

2^#

發表於 2011-4-29 10:03 | 顯示全部帖子

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

謝謝! 感恩

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

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

3^#

發表於 2011-4-29 21:51 | 顯示全部帖子

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

謝謝!

play.zip (17.77 KB)

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

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

4^#

發表於 2011-4-30 09:46 | 顯示全部帖子

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

play.zip (16.46 KB)

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

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

5^#

發表於 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! 代碼

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

6^#

發表於 2011-5-2 08:10 | 顯示全部帖子

樓上所提都沒問題。

謝謝！

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

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

7^#

發表於 2011-5-2 09:44 | 顯示全部帖子

oobird超級版主你好！很抱歉！
   1.許多動態資料會進來作比對動作
      當 A1＝>A2 時；自動撥放 C:\168.WAV
      當 B1=>B2 時；自動撥放 C:\268.WAV
      當 C1=>C2 時；自動撥放 C:\368.WAV不同條件可播放指定音效。
   2.當條件成立時所設定的聲音播放1次然後自動停止，除非條件又再次成立。
      不管一筆或多筆都成立，照常播放聲音
   3.巨集設有START、STOP執行與停止按鍵。
                     感謝！

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

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

8^#

發表於 2011-5-2 23:46 | 顯示全部帖子

Hsieh超級版主謝謝你!
   因權限不夠無法下載，請問儲存格裡有公式嗎?
   "播放曲目的對應寫在第3列"是要如何崁入?

   感恩!

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

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

9^#

發表於 2011-5-5 08:29 | 顯示全部帖子

Hsieh超級版主你好!
感謝你多次幫忙!

B1

2輸入公式=RAND() 假設B1是連結A5的資料應如何寫?
B3

3輸入音效檔名(含副檔名)    假設B3 = "C:\op.wav"  是這樣寫嗎?

當有另一組=<時請問巨集該如何修正?
      當 E1＝<E2 時；自動撥放 C:\222.WAV
      當 F1=<F2 時；自動撥放 C:\333.WAV
      當 G1=<G2 時；自動撥放 C:\444.WAV不同條件可播放指定音效。
感恩!

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