excel怎么做一个 时钟 计时器。

vba代码可以实现。。参考如下：

Dim TimerActive As Boolean

Sub StartTimer()

Start_Timer

End Sub

Private Sub Start_Timer()

TimerActive = True

ApplicationOnTime Now() + TimeValue("00:01:00"), "Timer"

End Sub

Private Sub Stop_Timer()

TimerActive = False

End Sub

Private Sub Timer()

If TimerActive Then

ActiveSheetCells(1, 1)Value = Time

ApplicationOnTime Now() + TimeValue("00:01:00"), "Timer"

End If

End Sub

你的时间列是文本格式、或带有空格吧？

如果是文本格式：选该列——菜单栏数据——分列——下一步——下一步——列数据格式——常规——完成。

如果带有空格：选该列——Ctrl+H——查找内容：输入一个空格——替换为：不输入什么——全部替换。

可以，使用宏，

1、工具-宏-创建一个新宏

代码为：

Sub aaa()

Sheet1Range("e1") = Now()

End Sub

再使用窗体工具栏创建一个按钮，指定该宏

这样点一下就生成当有时间，OK

Alt+F11，粘贴以下代码：

Private Sub Workbook_Open()

sheet1秒表

End Sub

Sub 秒表()

ActiveSheetRange("A1")Value = Time

ApplicationOnTime Time + TimeSerial(0, 0, 1), "sheet1秒表", , True

End Sub

在 Office 里有个方法是 applicationontime ，具体函数如下：

expressionOnTime(EarliestTime, Procedure, LatestTime, Schedule)

如果想进一步了解，请参阅 Excel 的帮助。

这个函数是用来安排一个过程在将来的特定时间运行，（可为某个日期的指定时间，也可为指定的时间段之后）。通过这个函数我们就可以在 Excel 里编写自己的定时程序了。下面就举两个例子来说明它。

1在下午 17:00:00 的时候显示一个对话框。

Sub Run_it()

ApplicationOnTime TimeValue("17:00:00"), "Show_my_msg"

'设置定时器在 17:00:00 激活，激活后运行 Show_my_msg 。

End Sub

Sub Show_my_msg()

msg = MsgBox("现在是 17:00:00 ！", vbInformation, "自定义信息")

End Sub

2模仿 Excel 97 里的 "自动保存宏",在这里定时 5 秒出现一次

Sub auto_open()

MsgBox "欢迎你，在这篇文档里，每 5 秒出现一次保存的提示！", vbInformation, "请注意！"

Call runtimer '打开文档时自动运行

End Sub

Sub runtimer()

ApplicationOnTime Now + TimeValue("00:00:05"), "saveit"

' Now + TimeValue("00:15:00") 指定在当前时间过 5 秒钟开始运行 Saveit 这个过程。

End Sub

Sub SaveIt()

msg = MsgBox("朋友，你已经工作很久了，现在就存盘吗？" & Chr(13) _

& "选择是：立刻存盘" & Chr(13) _

& "选择否：暂不存盘" & Chr(13) _

& "选择取消：不再出现这个提示", vbYesNoCancel + 64, "休息一会吧！")

'提示用户保存当前活动文档。

If msg = vbYes Then ActiveWorkbookSave Else If msg = vbCancel Then Exit Sub

Call runtimer '如果用户没有选择取消就再次调用 Runtimer

End Sub

以上只是两个简单的例子，有兴趣的话，可以利用 ApplicationOntime 这个函数写出更多更有用的定时程序。

用时间函数可以解决，但是如果电子表格不 *** 作时，是不能更改数值。准确说是不能时时刷新。请参考

在单元格内嵌入函数：

=round(hour(now())60+minute(now())+second(now())/60),2)

这是得到现在时间对应0点0分0秒的分钟数。

以上就是关于excel怎么做一个 时钟 计时器。全部的内容，包括:excel怎么做一个 时钟 计时器。、如何在excel秒表类数据后加上：00如图中将前图数据变成后面的数据。求快捷转换方式过程。。。、求在Excel中部分单元格有秒表自动统计时间并记录时间的功能等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！