麻辣家族討論版版 » Excel程式區 » VBA音效

返回列表下一主題上一主題發帖

VBA音效

小學生 Rank: 1

帖子: 10
主題: 5
精華: 0
積分: 16
點名: 0
作業系統: windows XP
軟體版本: SP3
閱讀權限: 10
性別: 男
註冊時間: 2010-7-23
最後登錄: 2011-7-3

1^# 跳轉到 » 正序看帖

字體大小: 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

樓主熱帖

收藏

小學生 Rank: 1

帖子: 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供參考

　暱稱: Jack

中學生 Rank: 2

帖子: 133
主題: 9
精華: 0
積分: 147
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2010-5-1
最後登錄: 2024-11-11

3^#

發表於 2010-7-23 11:01 | 只看該作者

像這樣? 發一聲"嗶"

Sub test()
Beep
End Su

小學生 Rank: 1

帖子: 10
主題: 5
精華: 0
積分: 16
點名: 0
作業系統: windows XP
軟體版本: SP3
閱讀權限: 10
性別: 男
註冊時間: 2010-7-23
最後登錄: 2011-7-3

2^#

發表於 2010-7-23 10:35 | 只看該作者

輸出聲音

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

靜思自在 : 多做多得。少做多失。

返回列表下一主題上一主題