我想存储一个不断变化的RTD函数的值。假设我设置了单元格A1 = SomeRTDFunction(
)。我该怎么做呢?
我想到的一种可能性是创建一个Sub
,它在某个计时器上连续运行,而不是从该单元格复制该值并将其连续放入另一个单元格。
有更好的方法吗?
答案 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