麻辣家族討論版版 » Excel程式區 » 如何在A1這儲存格數字超過100或小於100時發出聲響

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

[發問] 如何在A1這儲存格數字超過100或小於100時發出聲響

中學生 Rank: 2

帖子: 41
主題: 10
精華: 0
積分: 51
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2014-11-9
最後登錄: 2022-1-13

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2014-12-5 23:18 | 只看該作者

[發問] 如何在A1這儲存格數字超過100或小於100時發出聲響

如何在A1這儲存格數字超過100或小於100時發出聲響，執行以下的程式都會出現找不到檔案的錯誤，但我檔案路徑應該沒放錯啊!
可以請問一下問題是出在哪裡嗎?

Sub Alert()
Dim spath As String, cmd As String
spath = "C:\Users\Administrator\Desktop\超過100.wav"
      cmd = "sndrec32 /play /close " & Chr(34) & spath & Chr(34)
      Shell cmd, 6
End Sub

Sub Alert2()
Dim spath As String, cmd As String
spath = "C:\Users\Administrator\Desktop\小於100.wav"
      cmd = "sndrec32 /play /close " & Chr(34) & spath & Chr(34)
      Shell cmd, 6
End Sub

Sub 每隔若干秒執行()
IF Time < TimeValue("08:45:00") And Time > TimeValue("13:45:00") Then Exit Sub
With Activesheet
For Each x In .Range("A1",.Range("A1").end(xlDown))
   If x > 100 Then Application.Run "Alert"
   If x < 100 Then Application.Run "Alert2"
Next
End With
t = DateAdd("s",每隔若干秒,Time)
Application.OnTime t, "每隔若干秒執行"
End Sub

樓主熱帖

收藏

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

10^#

發表於 2014-12-11 20:04 | 只看該作者

回復 10# ShaoQiang
If [A1].Value <> 100 Then Beep

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

中學生 Rank: 2

帖子: 41
主題: 10
精華: 0
積分: 51
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2014-11-9
最後登錄: 2022-1-13

9^#

發表於 2014-12-11 17:00 | 只看該作者

不指定聲音檔的話可以直接用 Beep 發出警告音
stillfish00 發表於 2014-12-10 17:09

請問一下大大要如何用Beep發出警告聲音呢

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

8^#

發表於 2014-12-10 17:09 | 只看該作者

不指定聲音檔的話可以直接用 Beep 發出警告音

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

中學生 Rank: 2

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

7^#

發表於 2014-12-6 13:52 | 只看該作者

sndrec32.zip (60.64 KB)

中學生 Rank: 2

帖子: 41
主題: 10
精華: 0
積分: 51
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2014-11-9
最後登錄: 2022-1-13

6^#

發表於 2014-12-6 12:20 | 只看該作者

回復 3# GBKEE

大大你好
剛剛有google有關sndrec32.exe這檔案，大概知道這檔案的作用，但不知道這檔案要從哪裡取得，不知道有人知道嗎

中學生 Rank: 2

帖子: 41
主題: 10
精華: 0
積分: 51
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: Taipei
註冊時間: 2014-11-9
最後登錄: 2022-1-13

5^#

發表於 2014-12-6 12:16 | 只看該作者

回復 2# luhpro

剛剛搜尋一下，我電腦的確是沒有Sndrec32.exe這個檔案

中學生 Rank: 2

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

4^#

發表於 2014-12-6 07:43 | 只看該作者

http://forum.twbts.com/viewthrea ... %3Bfilter%3D2592000

超級版主 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兔年全勤獎章

3^#

發表於 2014-12-6 07:02 | 只看該作者

回復 1# ShaoQiang
會是 sndrec32.EXE 有問題?
可Goolge相關的訊息看看

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2014-12-6 01:25 | 只看該作者

如何在A1這儲存格數字超過100或小於100時發出聲響，執行以下的程式都會出現找不到檔案的錯誤，但我檔案路徑 ...
ShaoQiang 發表於 2014-12-5 23:18

訊息的意思是找不到 sndrec32 程式.

靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。

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