Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 16328|回复: 12

[已解决]记录当前系统时间并精确到毫秒

[复制链接]
匿名  发表于 2014-8-7 21:24 |阅读模式
想做个功能,点一次按钮,就在A1记录一次当前系统时间,要精确到毫秒的
再点一次按钮就在B1显示,以此类推

最佳答案
2014-8-7 22:22
本帖最后由 1091126096 于 2014-8-7 22:25 编辑
  1. Sub ttt()
  2. ActiveCell.Select
  3. tt = Timer
  4. h = Int(tt / 3600)
  5. m = Int((tt - 3600 * h) / 60)
  6. s = Int(tt - h * 3600 - m * 60)
  7. ss = Left(tt - Int(tt), 4)
  8. Selection.NumberFormatLocal = "hh:mm:ss.000"
  9. Selection.Value = h & ":" & m & ":" & s & ss
  10. ActiveCell.Offset(0, 1).Select
  11. End Sub
复制代码
发表于 2014-8-7 21:26 | 显示全部楼层
回复

使用道具 举报

发表于 2014-8-7 21:28 | 显示全部楼层
回复

使用道具 举报

发表于 2014-8-7 22:22 | 显示全部楼层    本楼为最佳答案   
本帖最后由 1091126096 于 2014-8-7 22:25 编辑
  1. Sub ttt()
  2. ActiveCell.Select
  3. tt = Timer
  4. h = Int(tt / 3600)
  5. m = Int((tt - 3600 * h) / 60)
  6. s = Int(tt - h * 3600 - m * 60)
  7. ss = Left(tt - Int(tt), 4)
  8. Selection.NumberFormatLocal = "hh:mm:ss.000"
  9. Selection.Value = h & ":" & m & ":" & s & ss
  10. ActiveCell.Offset(0, 1).Select
  11. End Sub
复制代码

Book1.rar

6.77 KB, 下载次数: 51

回复

使用道具 举报

匿名  发表于 2014-8-8 09:48
楼上厉害,膜拜
可是还有个问题,点着点着,按钮点不到了,excel视图随着新的东西往下移了
回复

使用道具

匿名  发表于 2014-8-8 09:54
{CA1EBF31-E545-4088-833A-004017155EE1}.jpg
点着点着这时间就不对了,是不是因为INT的关系

回复

使用道具

发表于 2014-8-8 10:03 | 显示全部楼层
额,上一个问题找到答案了,嘿嘿
回复

使用道具 举报

发表于 2014-8-8 12:13 | 显示全部楼层
QQ_BD6C76 发表于 2014-8-8 09:54
点着点着这时间就不对了,是不是因为INT的关系

你不能改变光标位置。
回复

使用道具 举报

发表于 2014-8-8 13:03 | 显示全部楼层
本帖最后由 1091126096 于 2014-8-8 13:08 编辑
QQ_BD6C76 发表于 2014-8-8 09:54
点着点着这时间就不对了,是不是因为INT的关系

修改了。

Book1.rar

7.46 KB, 下载次数: 120

回复

使用道具 举报

发表于 2014-8-8 20:49 | 显示全部楼层
这个以前我好象用来做歌词记时间!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 00:02 , Processed in 0.353555 second(s), 15 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表