如何从RTD函数创建输出的历史日志

Question

我想存储一个不断变化的RTD函数的值。假设我设置了单元格A1 = SomeRTDFunction(）。我该怎么做呢？

我想到的一种可能性是创建一个Sub，它在某个计时器上连续运行，而不是从该单元格复制该值并将其连续放入另一个单元格。

有更好的方法吗？

Answer 1

这会每秒更新Range("A1").Value Your_RTD_Function。

Sub RunRTDFunctionContinuously()

    Dim nextSecond As Date

    nextSecond = DateAdd("s", 1, Now())

   'Your instruction below  

   Range("A1").Value = Your_RTD_Function

    Application.OnTime _
        Procedure:="RunRTDFunctionContinuously", _
        EarliestTime:=nextSecond

End Sub