Excel 中设置自动计时器,可以按照以下步骤进行:
1:打开 Excel,选择“开发工具”选项卡。
2:在“开发工具”选项卡中,点击“插入”按钮,选择“按钮”控件。
3:在 Excel 工作表上绘制按钮,然后在弹出的“分配宏”对话框中创建新宏,如“StartTimer”(开始计时器)。
4:编写以下 VBA 代码:
Public TimerActive As Boolean
Public TimerSeconds As Long
Sub StartTimer()
TimerSeconds = 0
TimerActive = True
Call TimerTick
End Sub
Sub StopTimer()
TimerActive = False
End Sub
Sub ResetTimer()
TimerSeconds = 0
TimerActive = False
End Sub
Sub TimerTick()
If TimerActive Then
TimerSeconds = TimerSeconds + 1
Application.OnTime Now + TimeValue("00:00:01"), "TimerTick"
End If
End Sub
5:在 Excel 工作表上绘制另一个按钮,然后在弹出的“分配宏”对话框中创建新宏,如“StopTimer”(停止计时器)。
6:编写以下 VBA 代码:
Sub StopTimer()
TimerActive = False
End Sub
7:在 Excel 工作表上绘制另一个按钮,然后在弹出的“分配宏”对话框中创建新宏,如“ResetTimer”(重置计时器)。
8:编写以下 VBA 代码:
Sub ResetTimer()
TimerSeconds = 0
TimerActive = False
End Sub
9:在 Excel 工作表上插入一个单元格,然后将以下公式粘贴到该单元格中:
=IF(TimerActive,TEXT(TimerSeconds/86400,"h:mm:ss"),TEXT(0,"h:mm:ss"))
10:点击“开始计时器”按钮,计时器开始计时。
注意:在计时器停止或重置时,需要先停止计时器,然后将单元格中的公式手动设置为“00:00:00”。