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

ShaoQiang

如何在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

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

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

GBKEE

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

bobomi

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

ShaoQiang

回復 2# luhpro

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

ShaoQiang

回復 3# GBKEE

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

bobomi

sndrec32.zip (60.64 KB)

下載次數: 8

2014-12-6 13:52

stillfish00

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

ShaoQiang

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

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

stillfish00

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