返回列表 上一主題 發帖

EXCEL 發出聲音

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
1# 跳轉到 »
發表於 2012-6-29 19:28 | 顯示全部帖子
本帖最後由 av8d 於 2012-6-29 19:38 編輯

回復 1# enoch


   

是這樣嗎?
或是
Dim S1$
If S1 <> "" Then
        With 工作表1.WindowsMediaPlayer1     '加入MediaPlayer播放音樂
            .URL = "D:\我的音樂名稱.mp3"  '請修改音樂檔案
            .Visible = False        '隱藏WindowsMediaPlayer元件
            .Controls.Play          '播放音樂
        End With
End If

備註: 記得先插入一個WindowsMediaPlayer1元件

D:\我的音樂名稱.mp3   看你音樂是放C:還是D:~以上範例是放在D:

TOP

av8d

帖子
712 
主題
281 
精華
0 
積分
1019 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-5-22 
2#
發表於 2012-7-2 13:12 | 顯示全部帖子
本帖最後由 av8d 於 2012-7-3 08:25 編輯

回復 5# enoch


   


另外提供你一個可以發出聲音的~
是利用函數去發出聲音的~也蠻實用的~

在 Excel 中, 按 Alt F11 進入 Visiual Basic 編輯器畫面,
點選 [插入]/[模組], 畫面會跳出程式碼視窗, 在裡面複製貼上如下程式:
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Function SndPlay(Pathname As String) As Long
SndPlay = sndPlaySound(Pathname, SND_ASYNC)
End Function

然後切換回到 Excel 工作表, 在某個儲存格(不是A1或C5)輸入如下公式:
=IF(A1 < C5,sndplay("C:\Windows\Media\Windows XP 電話鈴聲.wav"),0)

註: 需確定 "C:\Windows\Media\ "裡有 "Windows XP 電話鈴聲.wav" 這個檔案
於是在 A1 和 C5 裡分別輸入數字, 當 A1 小於 C5 的時候,
電腦就會播放電話鈴聲

轉載於 http://tw.group.knowledge.yahoo.com/smt-knowldge/listitem/view?iid=15

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題