[已解决]如何让表中的时间秒随时变动？

renyz2006 · 发表于 2010-12-7 14:10

如何让表中的时间秒随时变动？请指教~！

附件！

7no45aVj.zip (1.56 KB, 下载次数: 6)

chensir · 发表于 2010-12-7 14:14

这个最佳答案由 chensir 给出，感谢 chensir 的回答。

单击隐藏图章

Sub clock()
Calculate
st
End Sub

Sub st()
Application.OnTime Now + TimeValue("00:00:01"), "clock"
End Sub

YXWhcDj7.rar (11.1 KB, 下载次数: 18)

chensir · 发表于 2010-12-7 14:14

打开时要启动宏，关闭时要禁用宏

fjmxwrs · 发表于 2010-12-7 15:36

如果宏不能运行，是因为您的宏安全设置高了，请把宏安全设置低点的级别

Private Sub Workbook_Open()
    Timeup
End Sub
Sub Timeup()
    On Error Resume Next
    Sheets("sheet1").Range("A3") = Format(Now(), "yyyy-m-d h:mm:ss")
    Application.OnTime Now() + TimeValue("00:00:01"), "Timeup"
End Sub
BVpCi5Vl.zip (9.07 KB, 下载次数: 9)

renyz2006 · 发表于 2010-12-8 07:55

二楼、四楼作的宏都可以，就是自已复制过来也不行？？？？

shb007sd · 发表于 2010-12-8 09:04

学习

fjmxwrs · 发表于 2010-12-8 22:48

Private Sub Workbook_Open()
Timeup
End Sub
这个你是放在哪？要放在ThisWorkbook下

zhaoxuefang · 发表于 2010-12-8 23:17

看看的[em01]

zhj1978 · 发表于 2010-12-9 08:32

Private Sub Workbook_Open()
Timeup
End Sub
这个你是放在哪？要放在ThisWorkbook下

renyz2006 · 发表于 2011-2-12 10:03

多谢！已测试成功！

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