Question

所以我想在细胞发生变化时出现一条消息，当细胞发生变化时通知某人。更改的单元格是从另一个工作簿中的单元格引用的。到目前为止，这是我的代码，但只有在我手动更改单元格时才有效。当我更改被引用的单元格时，它不起作用。

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    Set KeyCells = Range("B2:P43")

    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
        Is Nothing Then

        Beep

        MsgBox "Cell " & Target.Address & "has changed."

    End If
End Sub

Answer 1

尝试完全限定范围，如下所示：

Set KeyCells = Sheet1.Range("B2:P43")

单元格更改时的通知消息

1 个答案: