在单元格更改上执行代码的 VBA 无法处理名称更改

Question

我遇到了与 this 中相同的问题邮政。给出的答案，按照要求做了，它在给定单元格更改时执行代码。

它也对我有用，除非我尝试将 Sub 的名称更改为其他名称，否则代码将停止执​​行。没有给出警告。有谁知道这是为什么？

这是解决上一个问题的代码:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Me.Range("D2")) Is Nothing Then Exit Sub
    Application.EnableEvents = False 'to prevent endless loop

    MsgBox "You changed THE CELL!"

    Application.EnableEvents = True
End Sub

或更短的版本

Private Sub Worksheet_Change(ByVal Target As Range)
    IF Target.Address = "$D$2" Then
        MsgBox("Cell D2 Has Changed.")
    End If
End Sub

当我更改他们的名字时，两个潜艇的 react 都是一样的。是否有调用宏的触发器，我还必须更改名称？

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range)

是一个事件。它被系统调用并且必须这样命名

这里有一些阅读供您了解更多信息

http://www.cpearson.com/excel/Events.aspx