请教：如何在excel里显示实时跳动的时间?

hrz0836 · 发表于 2006-3-24 01:23

If Range("b1") <> 1 Then Application.OnTime (Now + TimeSerial(0, 0, 1)), "clock"

xinxin2021 · 发表于 2023-9-23 12:40

这个打开excel自动显示跳动的时间问题，这多年了，依然没有解决。

496033221 · 发表于 2024-3-19 11:54

xinxin2021 发表于 2023-9-23 12:40
这个打开excel自动显示跳动的时间问题，这多年了，依然没有解决。

建一个宏模块
Sub biao()
Sheet1.[a1] = Now
Application.OnTime Now + TimeValue("00:00:01"), "biao"
End Sub
在ThisWorkbook 加下面代码
Private Sub Workbook_Open()
Call biao
End Sub
有个缺点，打开这个表以后，再打开别的表，先关这个表关不掉

hxj119 · 发表于 2024-3-19 12:33

公式无法实现“实时跳动的时间”，只能用VBA代码解决！

		自动登录	找回密码
密码			免费注册

[已解决] 请教：如何在excel里显示实时跳动的时间?