如何在Excel工作表中创建秒表? | 您所在的位置:网站首页 › 改成秒表 › 如何在Excel工作表中创建秒表? |
如何在Excel工作表中创建秒表?
作者:晓阳
最后修改时间:2023-01-31
如果工作表中有秒表,您将知道完成工作的时间。 如何在带有“开始”,“停止”和“重置”按钮的工作表中创建秒表,如以下屏幕截图所示? 如果单击“开始”按钮,它将开始计时,如果您单击“停止”按钮,它将停止计时,而“重置”按钮可以帮助您重置时间。 本文,我将讨论如何在Excel中创建简单方便的秒表。 使用VBA代码创建具有三个按钮的秒表 使用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 停止 按钮,它将停止时间, 重设 按钮将重置时间,请参见屏幕截图: 使用 Kutools for Excel 增强您的 Excel 技能,体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。 单击此处获取您最需要的功能... ![]() |
CopyRight 2018-2019 实验室设备网 版权所有 |