[算表] 請問如何在改變欄位時同步啟動巨集功能
軟體: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
→
12/11 16:21, , 1F
12/11 16:21, 1F
→
12/11 16:40, , 2F
12/11 16:40, 2F
→
12/11 17:15, , 3F
12/11 17:15, 3F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
