当两个单元格中的两个值相等时，Msg框需要VBA代码

我在A3:A103、B3:B103、C3:C103、E3:E103列中分别有一个工作表，其中包含股票价值、高、低、股票名称的实时数据，并且每隔几秒钟更新一次

我想弹出消息框如下

1当A列中的值等于B列中的值时，将消息框作为买入股票名称。股票名称列在E列

2当A列中的值等于C列中的值时，则消息框作为销售-库存名称。股票名称列在E列

例如，当A6=B6时，消息框应为Buy-stock name，其中stock name为E6

请帮助为此提供VBA代码。

尝试以下操作：

Private Sub Worksheet_Change(ByVal Target As Range)        
    If Range("A" & Target.Row) = Range("B" & Target.Row) Then
        MsgBox "Buy - " & Range("E" & Target.Row)
    ElseIf Range("A" & Target.Row) = Range("C" & Target.Row) Then
        MsgBox "Sell - " & Range("E" & Target.Row)
    End If
End Sub

---

关键是在您有数据的工作表中使用工作表更改事件。

Alex，非常感谢您的代码。由于印度市场现在已经关闭，我会尽量在明天告诉你。我不知道工作表变更事件。当我粘贴股票经纪人提供的其他链接工作簿中的链接时，A、B和C列数据会自动更新。Alex，当我在工作表中手动输入A1和B1中的两个相等值时，它不起作用。你能帮我吗？你用过调试器吗？例如，代码是否执行，比较了哪些值等？它仅在A1=B1时有效，然后我双击E1，然后按enter键。这几乎就像不工作一样。Plz帮助。可能是工作表更改事件没有捕获自动更新的价格。我不知道你是如何将实时价格输入电子表格的？如果在代码的开头添加Debug.Print Target.Address，则可以帮助您检查价格更新是否实际触发了工作表更改事件