EXCEL 發出聲音

StanleyVic

帖子: 47
主題: 6
精華: 0
積分: 74
點名: 0
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
來自: Macau
註冊時間: 2011-6-15
最後登錄: 2016-7-4

16^#

發表於 2012-7-19 16:28 | 只看該作者

本帖最後由 StanleyVic 於 2012-7-19 16:29 編輯

這個例子的提問太好了. 學習了...
我沒想過會用在Excel 去介定對/錯.
平常都只會其他.. or msbox 提示..
不錯不錯..謝謝..

NeverTry , NeverNo !

帖子: 176
主題: 98
精華: 0
積分: 279
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-4-8

15^#

發表於 2012-7-12 11:27 | 只看該作者

我終於發現錯在那裡, 原來在C:\Windows\Media\ 見到的中文檔案名稱. 原來是騙人
Windows 通知.wav 名稱, 原來真實檔案名稱叫 Windows Notify.wav
唔怪得播唔到,
多謝各位耐心指教

帖子: 176
主題: 98
精華: 0
積分: 279
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-4-8

14^#

發表於 2012-7-6 12:09 | 只看該作者

辛苦了各位的指教,
試過了Sub OP 但奇怪在電腦內找不到tada.wav,
改用其它C:\Windows\Media\內的WAV檔反而播唔到
而Sub YY 去到Shell cmd, 6 顯示找不到檔案

而這問題會同電腦有關嗎?
現時電腦是WIN7 64BIT, 若執行到後, 在其它WINXP 電腦又會否出現問題

最終希望可以播到在C:\Windows\Media\ 內建的wav檔

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

13^#

發表於 2012-7-6 09:07 | 只看該作者

回復 12# oobird

突然想到，BEEP還可以編曲

Declare Function Beep Lib "kernel32.dll" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Sub yy()
f = Array(100, 523, 587, 659, 698, 784, 879, 987, 1030)
d = Array(5, 3, 3, 0, 4, 2, 2, 0, 1, 2, 3, 4, 5, 5, 5, 0, 5, 3, 3, 0, 4, 2, 2, 0, 1, 3, 5, 5, 3, 0, 2, 2, 2, 2, 2, 3, 4, 0, 3, 3, 3, 3, 3, 4, 5, 0, 5, 3, 3, 0, 4, 2, 2, 0, 1, 3, 5, 5, 1)
For i = 0 To UBound(d)
Beep f(d(i)), 500
Next
End Sub

複製代碼

oobird

　頭銜: 街友一族

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

12^#

發表於 2012-7-5 23:08 | 只看該作者

方法太多了，簡單寫幾個常用的：

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long
Private Const Mic = "C:\Windows\Media\tada.wav"
Sub op()
mciExecute ("play " & Mic)
End Sub
Sub yy()
cmd = "sndrec32 /play /close ""C:\Windows\Media\tada.wav"""
Shell cmd, 6
End Sub
Sub xx()
Beep
Application.Wait (Now + TimeValue("0:00:1"))
Beep
End Sub
Sub ww()
Set oSa = CreateObject("SAPI.SpVoice")
oSa.Speak "misinput"
End Sub

複製代碼

帖子: 176
主題: 98
精華: 0
積分: 279
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-4-8

11^#

發表於 2012-7-5 16:53 | 只看該作者

修改了錯處, 但都是沒有聲音
不肯定是否電腦問題

但請問若想簡單一點, 內建除了BEEP 聲外
還會有其它聲音嗎?
或如果要連繼BEEP 兩聲, 應該如何呢?

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2012-7-5 15:58 | 只看該作者

回復 9# enoch
你少了\
Function PlaySound(Msg As Boolean)
Dim Spath As String, Cmd As String
Spath = "C:\Windows\Media\" & IIf(Msg, "Windows 開香檳.wav", "Windows 通知.wav")
'存放音效的路徑: "C:\Windows\Media\"
Cmd = "C:\Program Files (x86)\Windows Media Player\wmplayer.exe " & Chr(34) & Spath & Chr(34)
'播放音效的程式: "C:\Program Files\Windows Media Player\wmplayer.exe " <-這裡要空一格
Shell Cmd, 0
End Function

帖子: 176
主題: 98
精華: 0
積分: 279
點名: 0
作業系統: window 7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-2-17
最後登錄: 2020-4-8

9^#

發表於 2012-7-5 15:35 | 只看該作者

不好意思, 我實在不明白錯在那裡,
可否再次指教嗎?

sound.zip (9.87 KB)

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2012-7-4 17:31 | 只看該作者

回復 5# enoch
1.自訂函數
2.儲存格寫下公式如: =IF(A1>5,PlaySound(TRUE),PlaySound(FALSE))

Option Explicit
Function PlaySound(Msg As Boolean)
Dim Spath As String, Cmd As String
Spath = "C:\Windows\Media\" & IIf(Msg, "Windows XP 啟動.wav", "Windows XP 登出音效.wav")
'存放音效的路徑: "C:\Windows\Media\"
Cmd = "C:\Program Files\Windows Media Player\wmplayer.exe " & Chr(34) & Spath & Chr(34)
'播放音效的程式: "C:\Program Files\Windows Media Player\wmplayer.exe " <-這裡要空一格
Shell Cmd, 0
End Function

複製代碼