Как вызвать событие в Excel на основе изменения в ячейках? Изменение ячеек вызвано данными со стокового сервера - PullRequest
0 голосов
/ 02 июня 2019

Я получаю данные с сервера, используя =RTD("pi.rtdserver", ,"NSE_ADANIPORTS-EQ", "lastTradeTime"). Эта формула находится в ячейке A2. Я хочу отслеживать значение, которое является временной меткой из этой формулы, и всякий раз, когда она изменяется, я хочу вставить строку, чтобы иметь возможность создавать историю данных в строке.

Я пробовал несколько вариантов, основанных на различных поисковых запросах, но ни один из них не работает. В настоящее время я использую приведенный ниже код, который отлично работает, когда дело касается вставки строки, но он продолжает процесс независимо от того, изменяется значение в ячейке A2 или нет.

Private Sub Worksheet_Calculate()
    capturerow = 2

    currow = Range("A65536").End(xlUp).Row

    Cells(currow + 1, 1) = Cells(capturerow, 1)
    Cells(currow + 1, 2) = Cells(capturerow, 2)
    Cells(currow + 1, 3) = Cells(capturerow, 3)
    Cells(currow + 1, 4) = Cells(capturerow, 4)
    Cells(currow + 1, 5) = Cells(capturerow, 5)
    Cells(currow + 1, 6) = Cells(capturerow, 6)
    Cells(currow + 1, 7) = Cells(capturerow, 7)
    Cells(currow + 1, 8) = Cells(capturerow, 8)
    Cells(currow + 1, 9) = Cells(capturerow, 9)
    Cells(currow + 1, 10) = Cells(capturerow, 10)
Cells(currow + 1, 11) = Cells(capturerow, 11)

End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...