Excel VBA需求：实现基于A1固定时间的文本框秒级刷新计时器

需求说明 #

单元格A1填入固定日期时间后，同工作表的TextBox需实时显示从A1时间到当前系统时间的经过时长，格式为XXm XXs，每秒自动刷新；当A1清空时，计时器停止并清空TextBox内容。

实现步骤 #

1. 添加TextBox控件
   打开开发工具选项卡（未显示的话，可通过Excel选项-自定义功能区调出），插入ActiveX控件里的TextBox，调整到合适位置，记住控件默认名称（一般为TextBox1）。

2. 写入VBA代码
   右键目标工作表标签 → 查看代码，粘贴以下代码：

   ' 模块级变量，存储下一次刷新的时间
   Dim nextUpdate As Date
   
   ' 核心刷新子程序
   Sub UpdateElapsedTime()
       Dim startTime As Date
       Dim elapsedTime As Date
       
       ' 检查A1是否为空，为空则停止计时器
       If IsEmpty(Me.Range("A1").Value) Then
           Me.TextBox1.Value = ""
           ' 取消下一次触发，避免残留任务
           On Error Resume Next
           Application.OnTime nextUpdate, "UpdateElapsedTime", , False
           On Error GoTo 0
           Exit Sub
       End If
       
       ' 获取起始时间并计算经过时长
       startTime = Me.Range("A1").Value
       elapsedTime = Now() - startTime
       
       ' 格式化为XXm XXs样式
       Me.TextBox1.Value = Format(elapsedTime, "nn\m ss\s")
       
       ' 设置1秒后再次触发刷新
       nextUpdate = Now() + TimeValue("00:00:01")
       Application.OnTime nextUpdate, "UpdateElapsedTime"
   End Sub
   
   ' 工作表激活时自动启动计时器
   Private Sub Worksheet_Activate()
       nextUpdate = Now() + TimeValue("00:00:01")
       Application.OnTime nextUpdate, "UpdateElapsedTime"
   End Sub
   
   ' 手动停止计时器的子程序（可选）
   Sub StopTimer()
       On Error Resume Next
       Application.OnTime nextUpdate, "UpdateElapsedTime", , False
       On Error GoTo 0
       Me.TextBox1.Value = ""
   End Sub
   

3. 代码说明

   • Me指代当前工作表，无需手动修改工作表名称，适配性更强
   • Format(elapsedTime, "nn\m ss\s")实现两位数分钟+秒的格式输出，nn对应分钟、ss对应秒
   • Application.OnTime实现每秒自动触发刷新，清空A1时会自动取消后续触发任务

4. 使用方法

   • 在A1填入带时间的日期（例如2023-04-07 13:05:10），切换到该工作表后，TextBox会自动开始计时
   • 清空A1，TextBox内容自动清空，计时器停止
   • 若需手动停止，可添加一个表单按钮，关联StopTimer子程序

内容的提问来源于stack exchange，提问作者Teknas