[算表] 請問如何在改變欄位時同步啟動巨集功能

[jackyxxx (123)]

軟體:excel

版本:2007

請問一下我從台銀抓匯率資料想做到價提示的功能
但我只能做到第一次打開檔案時到價會提示
或是自己在該欄位調整時到目標價會產生提示
自動抓取台銀的匯率下來的資料卻不會產生提示

VBA(第一次進入價到提示)

Private Sub Workbook_Open()

If Range("I3") >= [I4] Then
    MsgBox "下單通知：目標價位已到，請盡速賣出"
End If


If Range("I3") <= [I5] Then
    MsgBox "下單通知：目標價位已到，請盡速購買"
End If

End Sub

VBA(匯率變更後產生提示)

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$3" Then

    If Range("B3") >= [I4] Then
        MsgBox "下單通知：目標價位已到，請盡速賣出"
    End If

    If Range("B3") <= [I5] Then
        MsgBox "下單通知：目標價位已到，請盡速購買"
    End If

End If

End Sub

可以請問是那裡做錯了嗎?
我只有開啟檔案及自己更改B3的時候會顯示提示
B3抓取資料下來達到條件卻不會顯示
另外想請問Vba做得到聲音的提示嗎?

檔案連結
http://goo.gl/dGrKsa

麻煩各位大大了

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 118.166.161.136
→ soyoso:將判斷寫在 Worksheet_Calculate 內試試
→ soyoso:http://goo.gl/lKrJNH 聲音提示，google其他網友的寫法
→ jackyxxx:感謝soyoso大大  回答超快速  晚上再來研究看看