alex_bn_lee

导航

2011年10月18日 #

Excel VBA 循环“我中毒了~”

摘要： 来源：http://mcdelfino.blog.51cto.com/2058744/691131 Dim Runtime As Date Sub RunTimer() Runtime = Now() + TimeValue("00:00:01") Application.OnTime Runtime, "my_Procedure" End Sub Sub my_Procedure() Static count As Integer count = count + 1 ... 阅读全文

posted @ 2011-10-18 16:29 McDelfino 阅读(350) 评论(0) 推荐(0) 编辑

Excel VBA 实现电子钟

摘要： 来源：http://mcdelfino.blog.51cto.com/2058744/691026Dim Runtime As Date '定义时间变量 Sub RunTimer() Runtime = Now() + TimeValue("00:00:02") '时间显示为增加1秒 Application.OnTime Runtime, "my_Procedure" '在这个指定的时间执行下面的过程End Sub Sub my_Procedure() Range("A1") = Format(Time, &q 阅读全文

posted @ 2011-10-18 15:23 McDelfino 阅读(1240) 评论(0) 推荐(0) 编辑