如何实现三个按钮记录每一次点击的时间登记到旁边的表格里

夕之枫

点击开始计时，时间计算，点一次记录成绩自动出现在右边表格时间栏，时间继续执行，知道点击清空计时计时停止

夕之枫

高手顺便增加一个暂停计时按钮更好

LIUZHU

看起来简单，做起来还有点麻烦，要写不少的代码

夕之枫

LIUZHU 发表于 2024-5-23 10:38
看起来加单，做起来还有点麻烦，要写不少的代码

嗯！其实就是一个登记时间，看起来简单，码起来麻烦

LIUZHU

不知道是不是这个效果

LIUZHU

代码如下，好久没写VBA了，生疏了

1. Option Explicit
   
2. Public IsGo As Boolean
   
3. Sub 开始计时()
   
4.     IsGo = True
   
5.     Application.Run "连续计时"
   
6. End Sub
   
7. Private Sub 连续计时()
   
8.     Range("A2").Value = Format(Now(), "hh:mm:ss")
   
9.     If IsGo = True Then Application.OnTime Now() + TimeValue("00:00:01"), "连续计时"
   
10. End Sub
    
11.    
    
12. 
    
13. Sub 清空计时()
    
14.     IsGo = False
    
15.     Range("A2").Value = ""
    
16. End Sub
    
17. 
    
18. Sub 记录计时()
    
19.     Dim r1&
    
20.     r1 = Range("E" & Rows.Count).End(xlUp).Row
    
21.     Range("E" & (r1 + 1)).Value = Range("A2").Value
    
22. End Sub
    
23. 
    
24. Sub 暂停计时()
    
25.     IsGo = False
    
26. End Sub

复制代码

LIUZHU

上附件，请审核

LIUZHU

那个毫秒的效果做不来

夕之枫

LIUZHU 发表于 2024-5-23 11:01
那个毫秒的效果做不来

获取时间能改成00:00:00吗？不要获取now（）

micch

常见的计时器都能实现这个了，比Excel好用多了。

现在体育比赛记录成绩都用软件连接计时器，自动记录成绩时间了。也许特定情况下需要吧，不过确实要写不少代码，先关注一下。