Board logo

標題: [發問] 如何在A1這儲存格數字超過100或小於100時發出聲響 [打印本頁]
作者: ShaoQiang    時間: 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
作者: luhpro    時間: 2014-12-6 01:25

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

訊息的意思是找不到 sndrec32 程式.
作者: GBKEE    時間: 2014-12-6 07:02

回復 1# ShaoQiang
會是 sndrec32.EXE 有問題?
可Goolge相關的訊息看看
作者: bobomi    時間: 2014-12-6 07:43

http://forum.twbts.com/viewthrea ... %3Bfilter%3D2592000
作者: ShaoQiang    時間: 2014-12-6 12:16

回復 2# luhpro

剛剛搜尋一下，我電腦的確是沒有Sndrec32.exe這個檔案
作者: ShaoQiang    時間: 2014-12-6 12:20

回復 3# GBKEE

大大你好
剛剛有google有關sndrec32.exe這檔案，大概知道這檔案的作用，但不知道這檔案要從哪裡取得，不知道有人知道嗎
作者: bobomi    時間: 2014-12-6 13:52

[attach]19714[/attach]
作者: stillfish00    時間: 2014-12-10 17:09

不指定聲音檔的話可以直接用 Beep 發出警告音
作者: ShaoQiang    時間: 2014-12-11 17:00

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


請問一下大大要如何用Beep發出警告聲音呢
作者: stillfish00    時間: 2014-12-11 20:04

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)