求教老师们，一个关于时间的问题

淹死的鱼有图

如图，wps，怎么样才能不用按F9去刷新时间，而是时间自动一秒一秒的走动

夏天的风shh4695

用VBA 吧。
Sub ty()
With Sheets("Sheet3")
    [a3] = Now
    Application.OnTime Now + TimeValue("00:00:01"), "ty"
End With
End Sub

qdtzq

没有WPS，MSOFFICE参考吧
Sub 开始()
    Application.OnTime Now + TimeValue("00:00:01"), "开始"
    Application.Calculate
End Sub

Sub 停止()
    Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), Procedure:="开始", Schedule:=False
End Sub

全党

添加单元格改变自动触发事件代码

wanghan519

要不试试exceldna，里面有专门的rtd函数的例子，好处是不影响主线程

淹死的鱼有图

夏天的风shh4695 发表于 2023-6-1 13:48
用VBA 吧。
Sub ty()
With Sheets("Sheet3")

我用的是wps。老师这些代码，我不会使用

淹死的鱼有图

全党 发表于 2023-6-1 14:19
添加单元格改变自动触发事件代码

没有看懂老师说的话意思，我是个小白

micch

既然在vba版求助，那肯定是懂vba吧，写代码实现定时刷新就行

slonby

请参考。。。。

淹死的鱼有图

wanghan519 发表于 2023-6-1 15:07
要不试试exceldna，里面有专门的rtd函数的例子，好处是不影响主线程

厉害呀老师