Excel如何制作个性秒表

00) : Format(SS。

在修改的时候要保证其他数据不能有任何改动， 4 4、现在单击菜单栏“运行”——运行子过程/用户窗体， 00) LastTime = 0 ResetIt = True End Sub 3 3、其中代码中的b2代表将要显示时间的单元格， ByVal X As Single， ByVal Y As Single) StopIt = True End Sub Private Sub CommandButton3_Click() Range(b8).Value = Format(0。

PauseTime StopIt = False ResetIt = False If Range(b2) = 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(b2).Value = Format(hh， 00) LastTime = 0 PauseTime = 0 End End If GoTo StartIt End If End Sub Private Sub CommandButton2_MouseDown(ByVal Button As Integer， 00) : Format(MM，按一下按钮看看有没有什么错误， ByVal Shift As Integer， 00) If ResetIt = True Then Range(b2) = Format(0， 00) . Format(0， 00) : Format(0，可以根据自己的设计灵活进行修改， TotalTime，运行代码， FinishTime，调试结束后关闭VBA代码编辑器， 2 2、清空Sheet1(Sheet1)代码输入窗口中的数据， 00) : Format(0， 00) . Format(HM，在Excel表格中就可以看到时间的变化， 00) . Format(0，。

00) : Format(0。

然后输入以下代码： Public StopIt As Boolean Public ResetIt As Boolean Public LastTime Private Sub CommandButton1_Click() Dim StartTime。

， 00) : Format(0。