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

时间:2015-01-29 07:49:59

标签: excel excel-vba rtd vba

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

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

有更好的方法吗?

1 个答案:

答案 0 :(得分:0)

这会每秒更新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