macros单元格更改时提醒我值 – popup警报 – EXCEL

我正在寻找创build一个macros来提醒我，当一个单元格的值更改。 这个特定列中的单元格可以具有“OVER”或“UNDER”的值。 我想编写代码来通过一个popup框（消息：“单元格下（上）”）提醒我当值的变化。

谢谢，

帕特里克

Answer 1

您将要挂钩到Worksheet_Change事件 。
像这样的东西应该让你开始：

 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（区分大小写！）将显示消息“单元$ A $ 1跨越OVER”。

---

根据OP提供的进一步信息进行编辑：
对于自动工作表更改，您需要使用Worksheet_Calculate事件（下面的示例）。 而出于某种奇怪的原因，Excel似乎要求在Worksheet_Calculate的工作表的任何位置都有=NOW()来实际触发。

 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