Получить адрес измененной ячейки

Обновить

April 2019

Просмотры

822 раз

1

Я пытаюсь вызвать макрос (в зависимости от адреса ячейки) всякий раз, когда какой-либо DDE связаны значение ячейки изменяется.

Я попытался Workbook.SetLinkOnData и Worksheet_Calculate события (с фиктивной формулой, чтобы вызвать событие), но проблема в том, что ни один из них не возвращает адрес обновленной ячейки.

Так есть ли способ, чтобы получить адрес обновленной ячейки, чтобы использовать его с моим макро?

Это мой макрос

Public Sub UpdateCell (Byval strTargetAddress as String)
    'Some code
End Sub

Спасибо и заранее.

1 ответы

0

How about using the Worksheet Change event:

Private Sub Worksheet_Change(ByVal Target As Range)
    'MsgBox Target.Address
    Call UpdateCell (Target.Address)
End Sub

Or if you are looking for a formula then this would do:

Private Sub Worksheet_Calculate()
    If Sheet1.Range("A1").Value = "Yes" Then Call UpdateCell("A1")
End Sub