Всплывающее окно Excel VBA всякий раз, когда в столбце появляется определенный текст - PullRequest
Новая
       10

Всплывающее окно Excel VBA всякий раз, когда в столбце появляется определенный текст

0 голосов
/ 17 октября 2019

Я работаю с 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
...