- 帖子
- 703
- 主題
- 276
- 精華
- 0
- 積分
- 1005
- 點名
- 1
- 作業系統
- Windows 10
- 軟體版本
- Office 2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-6-30
- 最後登錄
- 2024-5-29
|
本帖最後由 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 |
|
發表於 2012-7-2 13:12
| 
發表於 2012-6-30 10:47
| 
發表於 2012-6-29 21:13
| 
