如何在Excel工作表中创建秒表?
如果工作表中有秒表,您将知道完成工作的时间。 如何在带有“开始”,“停止”和“重置”按钮的工作表中创建秒表,如以下屏幕截图所示? 如果单击“开始”按钮,它将开始计时,如果您单击“停止”按钮,它将停止计时,而“重置”按钮可以帮助您重置时间。 本文,我将讨论如何在Excel中创建简单方便的秒表。
使用VBA代码创建具有三个按钮的秒表
要创建带有“开始”,“停止”和“重置”三个按钮的秒表,请一一进行以下步骤。
首先,插入三个命令按钮。
1。 点击 开发商 > 插页 > 命令按钮,请参见屏幕截图:
2。 然后拖动鼠标绘制一个按钮,插入按钮后,可以更改按钮标题,请单击 开发商 > 租房在 租房 对话框中,输入新标题“Start 开始”按钮,位于旁边的文本框中 标题,请参见屏幕截图:
![]() |
![]() |
![]() |
3。 重复上述两个步骤,以插入其他两个按钮并将其标题为“ Stop 停止“和”重设”,请参见屏幕截图:
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
备注:在上面的代码中, C2 是要插入秒表时间的单元格,并且 命令按钮 1, 命令按钮 2, 命令按钮 3 是按钮名称,您可以从 名称框,请参见屏幕截图:
第三,格式化秒表时间单元。
6。 然后,您应该将时间单元格格式设置为 文本 格式,您可以根据需要更改单元格大小,字体,字体颜色,背景等,请参见屏幕截图:
7。 完成上述步骤后,从现在开始,当您单击 Start 开始 按钮,时间将从现在开始,然后单击 Stop 停止 按钮,它将停止时间, 重设 按钮将重置时间,请参见屏幕截图:
演示:使用VBA代码创建带有三个按钮的秒表
最佳办公效率工具
Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%
- 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
- 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
- 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
- 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
- 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
- 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
- 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
- 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
- 超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能 30 天免费试用。 60 天退款保证。

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松
- 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
- 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
- 每天将您的工作效率提高50%,并减少数百次鼠标单击!


#18021
该评论由网站上的主持人最小化
0
0

#18022
该评论由网站上的主持人最小化
0
0

#18315
该评论由网站上的主持人最小化
0
0

#20917
该评论由网站上的主持人最小化
0
0

#22941
该评论由网站上的主持人最小化
0
0

#23110
该评论由网站上的主持人最小化
报告
0
0

#23111
该评论由网站上的主持人最小化
报告
0
0

#23112
该评论由网站上的主持人最小化
报告
0
0

#23113
该评论由网站上的主持人最小化
报告
0
0

#23134
该评论由网站上的主持人最小化
0
0

#23135
该评论由网站上的主持人最小化
0
0

#23136
该评论由网站上的主持人最小化
报告
0
0

#23429
该评论由网站上的主持人最小化
0
0

#23710
该评论由网站上的主持人最小化
0
0

#27648
该评论由网站上的主持人最小化
0
0

#28426
该评论由网站上的主持人最小化
0
0

#28427
该评论由网站上的主持人最小化
报告
0
0

#30785
该评论由网站上的主持人最小化
报告
0
0

#32496
该评论由网站上的主持人最小化
0
0

#32647
该评论由网站上的主持人最小化
0
0

#33162
该评论由网站上的主持人最小化
0
0

#34123
该评论由网站上的主持人最小化
0
0

#34581
该评论由网站上的主持人最小化
0
0

#34582
该评论由网站上的主持人最小化
报告
0
0

#34877
该评论由网站上的主持人最小化
0
0

#35564
该评论由网站上的主持人最小化
0
0

#36044
该评论由网站上的主持人最小化
0
0

#36667
该评论由网站上的主持人最小化
0
0
这里还没有评论