enoch

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-6-29 17:56 | 只看該作者

EXCEL 發出聲音

有一個工作表需要不停輸入資料
能否利用IF 條件, 當輸入資料遇到錯誤時發出聲音
請指教

樓主熱帖

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

2^#

發表於 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

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

3^#

發表於 2012-6-29 21:13 | 只看該作者

有一個工作表需要不停輸入資料
能否利用IF 條件, 當輸入資料遇到錯誤時發出聲音
請指教
enoch 發表於 2012-6-29 17:56

VBA 內建功能,但非常細聲

if .... then
Call Beep
end if

複製代碼

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2012-6-29 21:55 | 只看該作者

先要解決的是EXCEL如何能得知你輸入錯誤？
如打一篇文章，打錯字時發聲提醒？

TOP

enoch

中學生 Rank: 2

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

5^#

發表於 2012-6-30 09:39 | 只看該作者

多謝指教,
原來加上聲音是這麼簡單的方法簡單,
但請問除了 BEEP 外, 還有其它內建的聲音選擇嗎

另外在EXCEL 如何插入WindowsMediaPlayer元件呢

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

6^#

發表於 2012-6-30 10:47 | 只看該作者

本帖最後由 oobird 於 2012-6-30 13:26 編輯

http://www.funp.net/955169
原帖的連結：http://qa.pcuser.com.tw/modules/ ... =41630&forum=24

TOP

av8d

大學生 Rank: 4

帖子: 712
主題: 281
精華: 0
積分: 1019
點名: 0
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2025-5-22

7^#

發表於 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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2012-7-4 17:31 | 只看該作者

回復 5# enoch
1.自訂函數
2.儲存格寫下公式如: =IF(A1>5,PlaySound(TRUE),PlaySound(FALSE))

Option Explicit
Function PlaySound(Msg As Boolean)
Dim Spath As String, Cmd As String
Spath = "C:\Windows\Media\" & IIf(Msg, "Windows XP 啟動.wav", "Windows XP 登出音效.wav")
'存放音效的路徑: "C:\Windows\Media\"
Cmd = "C:\Program Files\Windows Media Player\wmplayer.exe " & Chr(34) & Spath & Chr(34)
'播放音效的程式: "C:\Program Files\Windows Media Player\wmplayer.exe " <-這裡要空一格
Shell Cmd, 0
End Function

複製代碼

TOP

enoch

中學生 Rank: 2

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

9^#

發表於 2012-7-5 15:35 | 只看該作者

不好意思, 我實在不明白錯在那裡,
可否再次指教嗎?

sound.zip (9.87 KB)

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2012-7-5 15:58 | 只看該作者

回復 9# enoch
你少了\
Function PlaySound(Msg As Boolean)
Dim Spath As String, Cmd As String
Spath = "C:\Windows\Media\" & IIf(Msg, "Windows 開香檳.wav", "Windows 通知.wav")
'存放音效的路徑: "C:\Windows\Media\"
Cmd = "C:\Program Files (x86)\Windows Media Player\wmplayer.exe " & Chr(34) & Spath & Chr(34)
'播放音效的程式: "C:\Program Files\Windows Media Player\wmplayer.exe " <-這裡要空一格
Shell Cmd, 0
End Function

TOP