Excel 秒表/计时器

我想在Excel中做一个计时器,请大家帮忙!
注意,不是要他显示当前时间,而是要做了用来计时间。
比如我想知道我做一件事情要多长时间,我在做之前启动秒表,昨晚后看用了多长时间!

请大家帮忙!

操作步骤:
1、在Excel工作表里按Alt+F11,打开VBA编程界面
2、在VBA编程界面的工具栏,第二个按钮拉下来选模块
3、在左边栏的你需要计时器的那个工作表名字上双击,打开右边的程序书写区域
4、把下面的程序代码粘贴进去

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells.Count = 1 And (Not Intersect(Target.Cells(1), Range("B1")) Is Nothing) Then
[B1] = "开始时间"
[C1] = Format(Now(), "Hh:mm:Ss")
[D1] = Timer
[D1].Font.ColorIndex = 2
[B2:D3].ClearContents
End If
If Target.Cells.Count = 1 And (Not Intersect(Target.Cells(1), Range("B2")) Is Nothing) Then
[B2] = "结束时间"
[C2] = Format(Now(), "Hh:mm:Ss")
[D2] = Timer
[D2].Font.ColorIndex = 2
[B3] = "总共用时"
[C3] = Format([D2] - [D1], "#0.00")
[D3] = "秒"
End If
Target.Offset(1, 0).Select
End Sub

5、关闭VBA编程界面回到工作表
6、双击B1开始计时,双击B2终止计时,用时结果在C3单元格

(特别提醒:要在Exce中通过菜单“工具-宏-安全性”把宏的安全级别设为中或低以允许宏的运行,否则宏不能运行也得不到你要的结果)
温馨提示:内容为网友见解,仅供参考
第1个回答  2008-11-08
下载一个“雪狐桌面精灵V3.3”它有很多功能,包括日历、时钟、计时、等。上面就有四款计时器。

Excel 秒表\/计时器
1、在Excel工作表里按Alt+F11,打开VBA编程界面 2、在VBA编程界面的工具栏,第二个按钮拉下来选模块 3、在左边栏的你需要计时器的那个工作表名字上双击,打开右边的程序书写区域 4、把下面的程序代码粘贴进去 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Target...

excel如何制作一个30分钟的倒计时excel制作倒计时秒表
1.打开EXCEL工作表,选中需要倒计时的单元格。2.插入DATA函数。3.分别输入想要截止的年月日。4.确认后,在函数的后面减去今天的日期,然后按照天来显示,整个工式为=DATE(2020,1;24)-TODAY()&\\"天\\"。5.回车确认后,就可以看到计时的时间了。

Excel 中如何实现在单元格内显示实时时间,秒表是要实时更新的,now...
第一步:新建一个Excel工作簿→单击Sheet1工作表→工具→宏→Visual Basic编辑器。第二步:在Sheet1工作表上右击→插入→模块。   第三步:在模块对话框中输入如下代码:Sub biao()ActiveSheet.Range("a1").Value = Time Application.OnTime Time + TimeSerial(0, 0, 1), "b...

在Microsoft Excel 电子表格中怎么制作一个秒表,要自动会更新的,不要...
菜单:工具->宏->Visual Basic 编辑器 双击工程资源管理器窗口中的“ThisWorkbook”,在代码窗口选择“Workbook”的“Open”事件,输入如下代码:Application.OnTime Now(), "TimerProc"Visual Basic 编辑器菜单:插入->模块 在代码窗口输入如下代码:Public Function TimerProc()ThisWorkbook.Sheets(1).Range(...

求在Excel中部分单元格有秒表自动统计时间并记录时间的功能
可以,使用宏,1、工具-宏-创建一个新宏 代码为:Sub aaa()Sheet1.Range("e1") = Now()End Sub 再使用窗体工具栏创建一个按钮,指定该宏 这样点一下就生成当有时间,OK

Excel里怎么使用秒表的时间格式?
Sub 秒表()ActiveSheet.Range("A1").Value = Time Application.OnTime Time + TimeSerial(0, 0, 1), "秒表", , True End Sub 保存文件后,执行菜单:工具-宏-宏 在弹出的对话框中,选择“秒表”这个宏 点“执行按钮”要显示24小时制的话,设置一下单元格的时间格式就好了 根据具体问题类型,...

excle里面怎样进行时间分秒和毫秒的输入和加减计算?
怎么用 Excel 进行角度的输入和计算 角度弧度都只能是小数形式的,度分秒的方式没法直接实现。 excel默认是弧度,要直接计算角度,要转换 =RADIANS(角度值) 这样来转换为弧度再计算。 比如=SIN(RADIANS(90)),计算90度的正弦值,返回1 计时秒表pc2250怎样进行时间日期设置 PC2250型电子秒表 ...

我想统计数据,excel里显示时间10:45:36,我想只显示小时,分秒不要...
:Sub 秒表()ActiveSheet.Range("A1").Value = Time Application.OnTime Time + TimeSerial(0, 0, 1), "秒表", , True End Sub 保存文件后,执行菜单:工具-宏-宏 在弹出的对话框中,选择“秒表”这个宏 点“执行按钮”参考资料:如何在excel使用系统时间涵数来显示动态的时间?

怎么用Excel做一个计时的妙表
加一个label1 ,二个commamnd 下面是个精确的秒表。Dim b As Boolean Private Sub CommandButton1_Click()Dim t As Single t = Timer b = True Dim n As Single Dim s As String Do Until Not b DoEvents n = Timer - t s = Int(n \/ 3600) & ":"n = n - Int(n \/ 3600) * ...

Excel中求时间的和,是用秒表计时的,比如:0:12:56(0-分钟;12-秒;56...
只要你的excel单元格是时间格式的,用SUM函数就可以进行求和计算。

相似回答