利用Excel做个秒表计时器实例教程
发布时间:2023-10-12 08:51:26
有时候我们想知道在Excel中做一件事情需要多长时间,可以用VBA在Excel中做一个秒表计时器,在做之前启动秒表,做完后停止秒表看用了多长时间,如图。这个秒表在单元格中显示时间,可以实现秒表的基本功能:单击“开始”按钮开始计时,单击“停止”按钮暂停与停止,再次单击“开始”按钮继续,单击“复位”按钮归零。
下面我们以Excel 2003为例来说明其制作过程,示例文件在文章结尾处提供下载。
1.在“Sheet1”工作表中打开“Visual Basic 工具栏”。方法是在菜单栏中右击鼠标,在弹出的快捷菜单中选择“Visual Basic ”。 单击“控件工具箱”按钮,打开“控件工具箱”。
选择“命令按钮”工具,在工作表中画3个按钮,其默认名称依次为“CommandButton1”、“CommandButton2”、“CommandButton3”。
2.按Alt+F11,打开VBA编辑器,在“工程”窗口中双击“Sheet1(Sheet1)”,在右侧的代码窗口中粘贴下面的代码:
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("b8") = 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("b8").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
If ResetIt = True Then
Range("b8") = 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("b8").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
ResetIt = True
End Sub
说明:上述代码将在B8单元格中显示秒表时间,也可以将其改为其他单元格。代码中使用了Timer函数,Timer函数返回一个Single,代表从**开始到现在经过的秒数。本例中未消除跨零点错误,因而请勿跨零点使用。
3.关闭VBA编辑器。在工作表中右击“CommandButton1”按钮,在弹出的菜单中选择“属性”,弹出“属性”窗口。
在“属性窗口”中,将“CommandButton1”按钮的“Caption”属性改名为“开始”。
然后分别将“CommandButton2”、“CommandButton2”按钮的“Caption”属性改为“停止”和“复位”。
在“Visual Basic”工具栏中单击“退出设计模式”按钮退出设计模式。
4.设置B8单元格的单元格格式为“文本”,调整单元格大小、字体和背景,并调整3个按钮到适当的位置。然后依次单击各个按钮进行测试。


猜你喜欢
- 最近有Win8.1用户反馈,他在给Win8.1系统中的某个卷集中备份镜像时出现了故障,提示错误代码为0x807800c5,导致用户无法备份W
- win7电脑怎么设置动态壁纸?动态主题壁纸可以让自己的电脑看起来更个性化,但是很多用户都不知道怎么设置,今天小编就给大家带来了不用下载软件的
- 你在某一台计算机中长时间使用Word,会在默认的模板(Normal.dot)中保存了大量的自定义样式、快捷键、宏等。这时如果换到另一台计算机
- SVCHOST进程占用CPU过高的问题,一直很让人头疼。微软在周二补丁日中,将IE旧的安全更新替换为新版解决了运行Windows Updat
- CPU天梯图是用户购置CPU的参考条件之一,CPU天梯图是综合每款CPU的性能的跑分高低而绘制的图表,有一定的权威性。本次更新的CPU天梯图
- 鼠标是我们操作系统中重要的设备,但如果鼠标突然失灵我们要怎么解决呢,有的用户就遇到了鼠标左键出现突然失灵的情况,那这个问题要怎么解决呢,下面
- 启动Excel 2019后,看到工作簿区域显示的方式为普通视图,这是一种系统默认的视图方式。如果用户在下一次新建工作簿时不想看到这种视图方式
- 制作PPT时,想要起到震撼听众的效果,那就要加入很多设计元素。很自然的墨迹效果就像一滴墨水滴在纸张上慢慢渗透的效果,很不错。是不是也想制作出
- 在今天微软同时宣布了PC版和Mobile版的Win10红石预览版14295更新。本次更新中优化了上个版本中的部分界面改进,也修复了之前的许多
- 360驱动大师怎么全面诊断电脑系统?360驱动大师可以快捷的检测电脑系统上的驱动,并给出最新的驱动程序,但是要怎么对自己的电脑系统进行全面诊
- 多年来Windows一直提供自定义性能和外观的选项供用户选择,Win10也不例外,下面以图文的形式为大家介绍下Win10系统下如何自定义外观
- 我们知道在WPS表格中数据很容易计算,如果在WPS文字中表格的数据如何计算呢?新手不会,上网找怕麻烦,而且教程太乱没有统一的答案怎么办,哪里
- SecureCRT 是一款支持SSH(SSH1和SSH2)的终端仿真程序,简单地说是Windows下登录UNIX或Linux服务器主机的软件
- 我们经常需要在wps表格中录入大量的数据,如果我们想要提升录入数据的速度,那么,我们可以在wps表格中设置自动换行,下面就让小编告诉你 如何
- 有时,当我们在一篇很长的文档或演示文稿中工作时,因不小心滚动了鼠标而找不到当前的光标位置。这种情况主要是因默认的光标不起眼所致的寻着困难。这
- 平时在使用Excel表格的过程中,可能遇到一种很奇怪的现象:两个数字不能求和,并且出现#value!的错误代号。 原因:数字后面有单位,系统
- 在日常工作中,我们经常要做各种各样的表格,那么新手怎么制作Excel表格?下面小编就为大家详细介绍Excel表格制作方法,有需要的朋友可以参
- 最近有使用Win10系统的用户反映在打开网上邻居的时候,发现看不到其他共享的的电脑,碰到这样的问题该如何处理呢,接下来小编就问大家带来Win
- 最近很多朋友都在问win10键盘关机的快捷键在哪里。有了这个快捷键,真的方便多了。我们有四种方法可以用键盘关机。所以,怎样去寻找?其实这个很
- 处理Excel表格中的数据多了,就比较容易记混数据,为了减少数据的重复录入的麻烦,可以选择合并同类项的方法。以下是小编为您带来的关于Exce