返回列表 上一主題 發帖

VBA音效

abcdefgp06

帖子
10 
主題
5 
精華
0 
積分
16 
點名
0  
作業系統
windows XP 
軟體版本
SP3 
閱讀權限
10 
性別
男 
註冊時間
2010-7-23 
最後登錄
2011-7-3 
1# 跳轉到 »
發表於 2010-7-23 10:35 | 只看該作者

輸出聲音

請問如何以Excel之VBA自喇叭輸出聲音?

TOP

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
133 
主題
9 
精華
0 
積分
147 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2024-11-11 
2#
發表於 2010-7-23 11:01 | 只看該作者
像這樣? 發一聲"嗶"

Sub test()
    Beep
End Su

TOP

abcdefgp06

帖子
10 
主題
5 
精華
0 
積分
16 
點名
0  
作業系統
windows XP 
軟體版本
SP3 
閱讀權限
10 
性別
男 
註冊時間
2010-7-23 
最後登錄
2011-7-3 
3# 倒序看帖
打印
tT
發表於 2011-5-17 13:14 | 只看該作者

VBA音效

Excel之VBA聲音警示使用音樂檔發聲

在宣告區宣告
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

在程式區家上呼叫音樂檔
       file1 = "D:\pocketPC\Audio-1.wav" '填要播放的音樂檔
     mciSendString "seek " & file1 & " to start", vbNullString, 0, 0
        mciSendString "open " & file1, vbNullString, 0, 0
        mciSendString "play " & file1, vbNullString, 0, 0

測試OK
收藏 分享

abcdefgp06

帖子
10 
主題
5 
精華
0 
積分
16 
點名
0  
作業系統
windows XP 
軟體版本
SP3 
閱讀權限
10 
性別
男 
註冊時間
2010-7-23 
最後登錄
2011-7-3 
4#
發表於 2011-5-17 14:36 | 只看該作者
本帖最後由 oobird 於 2011-5-17 15:55 編輯

2011/05/17另有一文
Excel之VBA聲音警示使用音樂檔發聲
經測試OK供參考

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題