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

szzhangsuai · 发表于 2006-3-22 10:08

liujy · 发表于 2006-3-22 10:13

=NOW()吗?

szzhangsuai · 发表于 2006-3-22 10:33

原来可以这样子：
Sub clock()
ActiveWorkbook.Worksheets(1).Cells(1, 1).Value = _
Format(Now, "hh:mm:ss")
Application.OnTime (Now + TimeSerial(0, 0, 1)), "clock"
End Sub

文科生 · 发表于 2006-3-22 12:02

怎样让它停下来？

zw1028 · 发表于 2006-3-22 12:29

我也想问这个问题：怎么停下来？

qlz110 · 发表于 2006-3-22 12:35

在代码里加一句判断，例如如果B1＝1，就停下来：

　　Sub clock()
If Range("b1") = 1 Then Exit Sub
ActiveWorkbook.Worksheets(2).Cells(1, 1).Value = _
Format(Now, "hh:mm:ss")
Application.OnTime (Now + TimeSerial(0, 0, 1)), "clock"
End Sub

文科生 · 发表于 2006-3-22 12:48

也是一个办法。谢楼上的兄弟。

zw1028 · 发表于 2006-3-22 18:04

6楼的代码，好像也不行？？

zw1028 · 发表于 2006-3-22 19:26

怎么没人回答？可以肯定地说6楼的代码不行：如B1=1，那代码本身运行就跳过时间代码，所以时间就不会动；如果B1=0或" ",那么时间开始运行。但是如果时间已在运行，此时就是B1=1，再运行代码，时间也不会停下来。希望高手帮忙解决！！谢谢！！

zw1028 · 发表于 2006-3-22 21:29

在线等！

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

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

评分