Excel如何制作个性秒表

 时间:2024-10-11 23:55:50

Excel是一种常用的数据统计和编辑软件,可是在很多时候我们孀晏弁钾也需要用到秒表的功能,在Excel电子表格中是没有直接显示这项功能的,可是借助开发工具和代码完全可以制作出自己心仪的秒表,这篇吲溘活口经验中就是利用代码和按钮来实现秒表制作的。

Excel如何制作个性秒表

工具/原料

Excel软件

电脑

一、操作按钮制作:

1、 1、新建Excel空白文档,单击菜单栏“开发工具”,在“控件”栏中单击“插件”下拉箭头,从列表中选择ActiveX控件中的“命令按钮”图标。

Excel如何制作个性秒表

2、 2、现在鼠标变为十字形状,按住鼠标左键绘制按钮的形状,等到按钮大小合适的时候松开鼠标,按钮就制作好了,用同样的方式绘制三个大小一样的按钮。

Excel如何制作个性秒表

3、 3、选择第一个按钮,并在按钮上面单击右键选择“属性”,然后在打开的对话框中找到“Caption”并在后面的文本框中输入“开始计时”。

Excel如何制作个性秒表
Excel如何制作个性秒表

4、 4、用上面相同的方法给后面的两个按钮依次修改名称,改为“暂停计时”和“清空计时”,如图所示。

Excel如何制作个性秒表

二、代码编辑:

1、 1、按住“Alt+F11”,打开VBA编辑器双击左面窗中的“Sheet1(Sheet1)”,打开Sheet1(Sheet1)代码输入窗口。

Excel如何制作个性秒表

2、 2、清空Sheet1(Sheet1)代码输入窗口中的数据,然后输入以下代码:Public StopIt As Boole锾攒揉敫anPublic ResetIt As BooleanPublic LastTimePrivate Sub CommandButton1_Click()Dim StartTime, FinishTime, TotalTime, PauseTimeStopIt = FalseResetIt = FalseIf Range("b2") = 0 Then StartTime = Timer PauseTime = 0 LastTime = 0Else StartTime = 0 PauseTime = TimerEnd 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") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00") If ResetIt = True Then Range("b2") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00") LastTime = 0 PauseTime = 0 End End If GoTo StartIt End IfEnd SubPrivate Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) StopIt = TrueEnd SubPrivate Sub CommandButton3_Click() Range("b8").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00") LastTime = 0 ResetIt = TrueEnd Sub

Excel如何制作个性秒表

3、 3、其中代码中的b2代表将要显示时间的单元格,可以根据自己的设计灵活进行修改,在修改的时候要保证其他数据不能有任何改动。

Excel如何制作个性秒表

4、 4、现在单击菜单栏“运行”——运行子过程/用户窗体,运行代码,在Excel表格中就可以看到时间的变化,按一下按钮看看有没有什么错误,调试结束后关闭VBA代码编辑器。

Excel如何制作个性秒表
Excel如何制作个性秒表

三、界面修整:

1、 1、现在可以对秒表的标题进行美化了,可以改变颜色,字体、背景等内容,以彰显自己的个性。

Excel如何制作个性秒表

2、 2、此时对下面的内容统统进行美化设计,既可以制作出自己超具有特色的秒表了。

Excel如何制作个性秒表
  • 用函数判断单元格中数据(内容)长度的公式
  • Excel怎样使用ActiveX控件制作下拉菜单
  • excel表格如何强制限定输入位数
  • 日期间隔计算函数DATEDIF
  • Excel一键为非空单元格添加边框技巧
  • 热门搜索
    青春期教育手抄报 三年级安全手抄报 有关于环保的手抄报 快乐手抄报 交通安全小报手抄报 关于三爱的手抄报 节约用水手抄报资料 安全消防手抄报 预防麻疹手抄报 安全手抄报花边