excel - 宏在单元格更改值时提醒我 - 弹出警报 - EXCEL

Question

我希望创建一个宏以在单元格的值发生变化时提醒我。此特定列中的单元格可以具有“OVER”或“UNDER”的值。我想编写代码以在值更改时通过弹出窗口提醒我(消息:“单元格 A 越过(上方)”)。

谢谢，

帕特里克

Answer 1

你会想要连接到 Worksheet_Change event .
这样的事情应该让你开始:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value = "OVER" Then
        MsgBox "Cell " & Target.Address & " crosses OVER"
    ElseIf Target.Value = "UNDER" Then
        MsgBox "Cell " & Target.Address & " crosses UNDER"
    End If
End Sub

Sub just_testing()
    Dim mycell As Object
    Set mycell = ActiveSheet.Cells(1, 1)
    Call Worksheet_Change(mycell)
End Sub

使用此代码，将单元格 A1 的值更改为 OVER(区分大小写!)将打印消息“Cell $A$1 crosses OVER”。

根据 OP 提供的更多信息进行编辑:
对于自动工作表更改，您需要使用 Worksheet_Calculate 事件(下面的示例)。由于某些奇怪的原因，Excel 似乎要求您拥有 =NOW() Worksheet_Calculate 实际触发的工作表中的任何位置。

Private Sub Worksheet_Calculate()
    Dim mycell As Object
    Set mycell = ActiveSheet.Cells(1, 1)
    If mycell.Value = "OVER" Then
        MsgBox "Cell " & mycell.Address & " crosses OVER"
    ElseIf mycell.Value = "UNDER" Then
        MsgBox "Cell " & mycell.Address & " crosses UNDER"
    End If
End Sub