VBA: Как вызвать функцию события листа путем автоматического изменения ячейки по ссылке?

Question

Моя проблема заключается в следующем: Приведенная ниже функция запускает функцию «если тогда», когда я вручную изменяю значение в ячейке D9. Что я должен сделать, чтобы заставить его работать с автоматическим изменением значения ячейки D9 через ссылку.

Другими словами, если я, где связать ячейку D9 с ячейкой A1 и изменить значение A1, могу ли я по-прежнему работать с указанной ниже функцией?

Private Sub Worksheet_Change(ByVal Target As range)
  If Target.Address = "$D$9" Then

  If range("C12") = 0 Then
    Rows("12:12").Select
    Selection.RowHeight = 0
  Else:
    Rows("12:12").Select
    Selection.RowHeight = 15
  End If
End Sub

Answer 1

Как насчет этого:

Private Sub Worksheet_Change(ByVal Target As Range)

    On Error Resume Next

    Dim rngDependents As Range
    Set rngDependents = Target.Dependents

    If Target.Address = "$D$9" Then
        MsgBox "D9 has changed"
    ElseIf Not Intersect(rngDependents, Range("$D$9")) Is Nothing Then
            MsgBox "D9 has been changed indirectly"
    End If

End Sub

Answer 2

попробуйте сделать вашу функцию, тогда в другой ячейке используйте функцию с вводом ссылки на ячейку d9. Когда вы измените значение в ячейке d9, ваша функция будет оценена.