如果单元格发生更改，请调用Sub

Question

如果某个单元格有变化，我想调用Sub。使用以下代码，这可以像lang一样工作，因为单元格中有一些东西。

Private Sub Worksheet_Change(ByVal Target As Range) If Target = Range("A1") Or Target = Range("A2") Then Call "Name of Sub" End Sub

但是，如果单元格中没有任何内容＆＃34; A1＆＃34;或者＆＃34; A2＆＃34;，我遇到了问题。任何人都有想法，如何解决？

Answer 1

这已经是vba的一种设计模式：

Private Sub Worksheet_Change(ByVal Target As Range)
    If (Not Intersect(Target, Range("A1")) Is Nothing) Or (Not Intersect(Target, Range("A2")) Is Nothing) Then
        Debug.Print "HERE"
    End If
End Sub

交叉检查Target中的任何单元格是A1还是A2。