Note: The other languages of the website are Google-translated. Back to English

如何在Excel工作表中创建秒表?

如果工作表中有秒表,您将知道完成工作的时间。 如何在带有“开始”,“停止”和“重置”按钮的工作表中创建秒表,如以下屏幕截图所示? 如果单击“开始”按钮,它将开始计时,如果您单击“停止”按钮,它将停止计时,而“重置”按钮可以帮助您重置时间。 本文,我将讨论如何在Excel中创建简单方便的秒表。

doc创建秒表1

使用VBA代码创建具有三个按钮的秒表


使用VBA代码创建具有三个按钮的秒表

要创建带有“开始”,“停止”和“重置”三个按钮的秒表,请一一进行以下步骤。

首先,插入三个命令按钮。

1。 点击 开发商 > 插页 > 命令按钮,请参见屏幕截图:

doc创建秒表2

2。 然后拖动鼠标绘制一个按钮,插入按钮后,可以更改按钮标题,请单击 开发商 > 租房 租房 对话框中,输入新标题“Start 开始”按钮,位于旁边的文本框中 标题,请参见屏幕截图:

doc创建秒表3 2 doc创建秒表4

3。 重复上述两个步骤,以插入其他两个按钮并将其标题为“ Stop 停止“和”重设”,请参见屏幕截图:

doc创建秒表5

4。 插入按钮后,应通过单击退出设计模式 开发商 > 设计模式.

其次,创建一个VBA代码。

5。 然后,右键单击当前工作表选项卡,然后选择 查看代码,在弹出 Microsoft Visual Basic应用程序 窗口,请复制以下代码并将其粘贴到 表码:

VBA代码:创建秒表:

Public StopIt As Boolean
Public ResetIt As Boolean
Public LastTime
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("C2") = 0 Then
  StartTime = Timer
  PauseTime = 0
  LastTime = 0
Else
  StartTime = 0
  PauseTime = Timer
End If
StartIt:
  DoEvents
  If StopIt = True Then
    LastTime = TotalTime
    Exit Sub
  Else
    FinishTime = Timer
    TotalTime = FinishTime - StartTime + LastTime - PauseTime
    TTime = TotalTime * 100
    HM = TTime Mod 100
    TTime = TTime \ 100
    hh = TTime \ 3600
    TTime = TTime Mod 3600
    MM = TTime \ 60
    SS = TTime Mod 60
    Range("C2").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
    If ResetIt = True Then
      Range("C2") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
      LastTime = 0
      PauseTime = 0
      End
    End If
    GoTo StartIt
  End If
End Sub
Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  StopIt = True
End Sub
Private Sub CommandButton3_Click()
  Range("C2").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
  LastTime = 0
  ResetIt = True
End Sub

doc创建秒表6

备注:在上面的代码中, C2 是要插入秒表时间的单元格,并且 命令按钮 1, 命令按钮 2, 命令按钮 3 是按钮名称,您可以从 名称框,请参见屏幕截图:

doc创建秒表7

第三,格式化秒表时间单元。

6。 然后,您应该将时间单元格格式设置为 文本 格式,您可以根据需要更改单元格大小,字体,字体颜色,背景等,请参见屏幕截图:

doc创建秒表8

7。 完成上述步骤后,从现在开始,当您单击 Start 开始 按钮,时间将从现在开始,然后单击 Stop 停止 按钮,它将停止时间, 重设 按钮将重置时间,请参见屏幕截图:

doc创建秒表9


演示:使用VBA代码创建带有三个按钮的秒表


最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能 30 天免费试用。 60 天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (32)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
谢谢你的这篇文章,它很有帮助。 但是,有没有办法调整代码以使计时器在编辑单元格时不会停止? 理想情况下,我想点击“开始”,对同一个选项卡上的一系列单元格进行一些更改,然后点击“停止”以获得总时间。 对此的任何建议将不胜感激!
该评论由网站上的主持人最小化
你有想过这个吗? 在同一个电子表格中进行其他更改时,我也需要保持计时器运行。 谢谢。 麦克风
该评论由网站上的主持人最小化
这是一个很大的帮助,并且很容易遵循这些步骤。
该评论由网站上的主持人最小化
已尝试使用表单中的相同代码创建秒表。 计时器启动得很好,但不会停止。 请建议如何在表格中复制相同的内容
该评论由网站上的主持人最小化
试试 XNote 秒表。
该评论由网站上的主持人最小化
有什么方法可以让计时器向上或向下计数到特定时间? 我想保留开始、停止和重置按钮,但我需要它只在一秒钟内计数一分钟,一旦我按下开始。 或者从一分一秒倒计时到零(01:01)。 谢谢你的帮助!
该评论由网站上的主持人最小化
嗨,梅丽莎,
如果您需要在工作表中创建倒数计时器,可能以下文章可以帮助您!
https://www.extendoffice.com/documents/excel/2144-excel-countdown-timer.html
该评论由网站上的主持人最小化
您好,

我确实看到了那篇文章,但我需要它看起来与此页面上的秒表完全一样,但我需要它只从一分一秒开始倒计时。 我需要它以秒表形式显示,但作为倒计时工作。 有什么进一步的建议吗?


谢谢你的回复!
该评论由网站上的主持人最小化
这是我们在 excel 中设计的记分牌。
该评论由网站上的主持人最小化
很好,但是可以在同一张表中运行 2 个时钟吗? 已经用新的开始、停止和重置按钮制作了第二个时钟,但是当启动第二个时钟时,第一个时钟停止了....
该评论由网站上的主持人最小化
同样在这里你能找到治疗方法吗
该评论由网站上的主持人最小化
大家好,
此方法仅适用于工作表中的一组按钮。
如果还有其他好的想法,请在这里评论。
该评论由网站上的主持人最小化
是否可以在屏幕锁定时自动停止计时器并在我们解锁计算机时自动启动计时器?
该评论由网站上的主持人最小化
有什么方法可以让计时器将计数重置为零但仍保持计时器运行? IE。 当我按下重置时,我不想再次按下开始来计时。
该评论由网站上的主持人最小化
嗨,我正在使用这个塞子,但显示单元(“C2”)中的数字经常开始闪烁并消失 - 它们显示减号,数字不正确并且计数丢失。 它通常在大约一个小时或更长时间之后发生,但有时甚至在一个小时过去之前发生。 这是一个常见的错误吗? 如果是,有没有办法解决它? 我确实通过简单地删除:&“。”从代码中删除了 .00(即毫秒)。 & Format(0, "00") 行,无论它出现在哪里 - 这与这个问题有什么关系吗?
该评论由网站上的主持人最小化
感谢您的提示,它运行顺利,但是当我在此表中输入任何数据时它已停止运行,我们需要它继续运行一段时间输入数据我们如何解决这个问题?
该评论由网站上的主持人最小化
你好,仁恩,
可能不是解决问题的好方法。 当你编辑一个单元格时,它会中断当前执行的宏。
如果你还有什么好的方法,请在这里评论!
谢谢!
该评论由网站上的主持人最小化
你好。 我已经创建了秒表,但需要能够保存开始和停止之间的各种间隔,以便能够将它们反映为时间和运动研究。 关于如何做到这一点的任何提示?
该评论由网站上的主持人最小化
完成所有步骤,但单击开始按钮会给出错误消息“无法运行宏“'file.xlsm'!CommandButton1”。宏可能在此工作簿中不可用,或者所有宏都可能被禁用。“。 所有宏都已启用,宏在 Module1 中。 注意:我正在运行 Office 2019 for Mac,所以这可能是个问题......
该评论由网站上的主持人最小化
在此代码中添加“+10s”和“2x Speed”功能怎么样?
该评论由网站上的主持人最小化
'计时器'在这里是一个变量吗? 在代码中看不到它的相关性。
该评论由网站上的主持人最小化
是否可以让计数器只计算秒数?
所以当它达到 59 秒时,它会继续 60、61、62、63 ....
该评论由网站上的主持人最小化
您好
已按照步骤操作,但无法获得出现在计时器单元格中的时间。 我已经复制了代码,但我可以检查1。 不需要行号或者是它们2。 我将代码放入模块 1 而不是 sheet1 或 This workbook3。 完成所有这些操作后,宏列表中是否应该列出一个宏 - 我的没有。
谢谢
该评论由网站上的主持人最小化
嗨,Janice,您应该将代码作为步骤 5 放入您的活动工作表模块中。
5. 然后,右键单击当前工作表选项卡,选择查看代码,在弹出的 Microsoft Visual Basic for Applications 窗口中,将以下代码复制并粘贴到模块中。

您应该将按钮名称更改为您自己的名称。
注意:在上面的代码中,C2 是要插入秒表时间的单元格,而 命令按钮 1, 命令按钮 2, 命令按钮 3 是按钮名称,您可以从名称框中查看确切的按钮名称。

请检查他们,谢谢!
该评论由网站上的主持人最小化
这太棒了! 谢谢,克里斯 H
该评论由网站上的主持人最小化
是否可以使用组合框或下拉选择来启动和停止时钟
该评论由网站上的主持人最小化
Bonjour, j'ai voulu intégrer ce chronomètre à une autre macro, determiner le temps d'utilisation du fichier。 La macro se lance mais bloque l'utilisation du fichier.Comment faire pour utiliser votre chronomètre en même temps que d'autres codes VBA?MerciHenry。
该评论由网站上的主持人最小化
你好! 谢谢你,我怎么做才能在后续单元格中填充时间,例如。 单元格 C2 的开始/停止时间,然后是单元格 c3、c4、c5 等的不同开始/停止时间 
这里还没有评论
加载更多
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护