Call 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

Однако, если в ячейке нет ничего «A1» или «A2», яполучить проблему.У кого-нибудь есть идеи, как это решить?

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.