当前位置:首页>维修大全>综合>

excel怎么设置自动计时器(excel倒计时5分钟的计时器)

excel怎么设置自动计时器(excel倒计时5分钟的计时器)

更新时间:2025-02-02 15:54:20

excel怎么设置自动计时器

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”。

更多栏目