当特定文本出现在列中时，Excel VBA弹出窗口

我正在处理一个Excel，其中有一些股票价格数据实时更新（.rtd函数），链接到一个交易软件。当条件匹配且文本“买入”和“卖出”仅出现在列“G”中时，尝试获取弹出警报

对以下代码感到困惑，但只有在手动更改数据时才会出现弹出窗口。数据动态更新时不会显示任何内容

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Range("G3:G550").Find(what:="Sell", LookIn:=xlValues, lookat:=xlWhole, MatchCase:=True) Is Nothing Then
MsgBox "Sell" & Target.Address
Else
MsgBox "Buy" & Target.Address
End If
End Sub

我试过了，但什么也没发生。。。。你能帮我做这个吗

Private Sub Worksheet_Calculate() 

    Dim Rng1 As Range 
    Dim Value As String 
    Dim Prompt As String 
    Dim Title As String 

    Set Rng1 = Range("G3:G500") 
    Value = Buy 
    Prompt = "Buy This" 
    Title = "Name" 

    If Rng1.Value = Value Then 
        MsgBox Prompt, vbInformation, Title 
    End If 

End Sub

---

工作表\u更改

不是由公式计算触发的。您需要

工作表\u calculate

。也许可以试试：我没有任何RDT可供测试。您不能将英语中的每个单词都大写！！