动态值大于数字时发出警报

Question

我正在寻找一种方法让excel在动态值（市场Feed数据）超出x％时提醒我。警报需要出现在我所有窗口的前面，并带有一个msg框“CHECK VALUES”。

这可能吗？有没有人有这方面的代码示例？

更具体地说

Minimum difference = 0.5

CELL A = 10
CELL B = 11
Difference = 1

ALERT user "Difference > 0.5"

提前谢谢。

谢谢。这很完美。现在我明白它是如何工作的，我希望有另一个类似于上面的解决方案。 A1和B1中的两个单元都在不断变化（变量）。单元C1是= ABS（B1-A1）。我现在需要的是一个代码，当Cell C1大于0.5时提醒我。

Answer 1

您可以使用worksheet_change事件。请尝试以下代码。

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error GoTo err_rout

    Application.EnableEvents = False

    If Target.Address = "$A$1" And Target.CountLarge = 1 Then

        If (Target.Value - Target.Offset(0, 1)) > 0.5 Then
            MsgBox "CHECK VALUES"
        End If
    ElseIf Target.Address = "$B$1" And Target.CountLarge = 1 Then
        If (Target.Value - Target.Offset(0, -1)) > 0.5 Then
            MsgBox "CHECK VALUES"
        End If
    End If


err_rout:
    Application.EnableEvents = True
End Sub