Question

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

我想弹出Msg Box;

1）当A栏中的值等于B栏中的值时，则Msg Box为＆＃34;买入 - （股票名称）＆＃34;。库存名称列在E。

中

2）当A列中的值与C列中的值相等时，则Msg Box为Sale - （股票名称）＆＃34;。库存名称列在E。

中

例如，当A6 = B6时，Msg Box应该是＆＃34;买 - （股票名称）＆＃34;库存名称为E6

请帮助为此提供VBA代码。

Answer 1

试试这个：

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

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

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

1 个答案: