- 帖子
- 41
- 主題
- 10
- 精華
- 0
- 積分
- 51
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- Taipei
- 註冊時間
- 2014-11-9
- 最後登錄
- 2022-1-13
|
[發問] 如何在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 |
|
發表於 2014-12-5 23:18
| 
