EXCEL 發出聲音

enoch

中學生 Rank: 2

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

11^# 跳轉到 »

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

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

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

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

複製代碼

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

複製代碼

TOP

enoch

中學生 Rank: 2

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

TOP

enoch