如何制作一个支持千分之一秒的计时器？

作者：绿色风分类：时间：2022-08-17 浏览：81

楼主
99253415

Q:如何制作一个支持千分之一秒的计时器？

A:要使Excel支持千分之一秒可以这样写公式：

=TEXT(NOW(),"S.000")

这是gouweicao78老师编写的千分之一秒计时器

Option Explicit
Dim NextTick
Dim t, start
Sub UpdateClock()
t = False
DoEvents
If t Then Exit Sub
ThisWorkbook.Sheets(1).Calculate '让工作表自动计算
NextTick = Now + TimeValue("00:00:01") / 5 '设置1/5秒钟刷新
Application.OnTime NextTick, "UpdateClock"
Range("A1") = (Timer - start) / 24 / 3600 'timer得到的秒
Range("A2") = Timer - start & "秒"
End Sub
Sub StopClock()
On Error Resume Next
t = True
start = Timer
End Sub
Sub clear()
Range("A1:A2").ClearContents
End Sub
Sub pause()
t = True
End Sub

千分之一秒计时器.rar

2楼
wise

如何列举本地电脑中的所有盘符？ http://www.exceltip.net/thread-7192-1-1.html

如何提取移动磁盘的代码？ http://www.exceltip.net/thread-20727-1-1.html

提醒了

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表