=NOW()的刷新 ,像时钟一样,
温馨提示:答案为网友推荐,仅供参考
第1个回答 2023-11-01
可以使用VBA代码编程实现,或其他方法。
Simplify Excel 是一款Excel的扩展库(COM加载程序)有自定义函数支持定时刷新,可以了解一下 不用写vba代码,内部封装好了。
第2个回答 2010-12-29
Sub AAA()
Range("A1") = Time()
Application.OnTime Now + TimeValue("00:00:01"), "AAA"
End Sub
Range("A1") = Time()
Application.OnTime Now + TimeValue("00:00:01"), "AAA"
End Sub
第3个回答 2010-12-29
使用API函数Sleep延时处理
Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Sub a()
Dim i as long
Dim t
For i =1 to 10000
Sleep 1000
t = Now()
Doevents
Next i
End Sub本回答被提问者和网友采纳
Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
Sub a()
Dim i as long
Dim t
For i =1 to 10000
Sleep 1000
t = Now()
Doevents
Next i
End Sub本回答被提问者和网友采纳