Excel VBA定时器运行9小时触发Run-time error '5'错误如何解决

报错原因 #

• 核心问题出在Time函数的使用限制：Time仅返回当日的时分秒，取值范围对应0到1（00:00:00到23:59:59）。当定时器运行跨零点后，Time - t的计算结果会变成负数，负数时间值不符合Application.WorksheetFunction.Text中[h]:mm:ss格式的入参要求，直接触发无效参数报错。你提到运行约9小时报错，大概率是启动时间在下午，跑9小时刚好跨过零点，刚好触发该问题。
• 隐性问题：你将格式化后的时间字符串直接存入单元格，后续读取PreviousTimerValue时需要做字符串转日期的类型转换，长时间运行也可能出现转换误差。

修复方案 #

第一步：修改计时逻辑，改用Now函数计算时间差 #

将时间记录逻辑改为存储完整的日期+时间，从根源避免跨天负数问题，同时修改变量类型减少转换误差：

' 修改全局变量定义，PreviousTimerValue改用Double类型存储时间数值，避免类型转换问题
Dim NextTick As Date, t As Date, PreviousTimerValue As Double

Sub StartTime_D()
    ' 读取累计时间用Value2直接取数值，不用转格式
    PreviousTimerValue = Sheets("Calculations").Range("D1").Value2
    t = Now ' 存储完整的日期+时间，跨天也不会出现负数
    Call ExcelStopWatch_D
End Sub

替换报错的代码行：

Private Sub ExcelStopWatch_D()
    Dim ElapsedTime As Double
    ' 直接用Now计算时间差，天然支持跨天运行
    ElapsedTime = (Now - t) + PreviousTimerValue
    Sheets("Calculations").Range("D1").Value = Application.WorksheetFunction.Text(ElapsedTime, "[h]:mm:ss")
    
    ' 后续原有逻辑不变
    NextTick = Now + TimeValue("00:00:01")
    ' --- 原有类别判断和变色代码保持不变即可 ---

第二步（可选优化）：简化重复代码 #

你当前多类别判断的重复代码太多，可改用Select Case匹配阈值列，减少冗余代码降低出错概率：

Private Sub ExcelStopWatch_D()
    Dim ElapsedTime As Double, ThresholdCol As Long
    ElapsedTime = (Now - t) + PreviousTimerValue
    Sheets("Calculations").Range("D1").Value = Application.WorksheetFunction.Text(ElapsedTime, "[h]:mm:ss")
    NextTick = Now + TimeValue("00:00:01")
    
    ' 匹配类别对应的阈值列，B列=2、D列=4、F列=6以此类推
    Select Case StopWatch.Range("E6").Value
        Case "Anodized": ThresholdCol = 2
        Case "Flex": ThresholdCol = 4
        Case "Glass PRF": ThresholdCol = 6
        Case "Lineal Outage": ThresholdCol = 8
        Case "Paint": ThresholdCol = 10
        Case "Quality Engr.": ThresholdCol = 12
        Case Else: ThresholdCol = 2
    End Select
    
    ' 统一判断变色，不用重复写多分支
    With StopWatch.Shapes("TimeBox_D").Fill.ForeColor
        If ElapsedTime > Sheets("Calculations").Cells(5, ThresholdCol).Value Then
            .RGB = RGB(255, 0, 0) ' 红
        ElseIf ElapsedTime > Sheets("Calculations").Cells(4, ThresholdCol).Value Then
            .RGB = RGB(255, 255, 0) ' 黄
        ElseIf ElapsedTime > Sheets("Calculations").Cells(3, ThresholdCol).Value Then
            .RGB = RGB(0, 255, 0) ' 绿
        End If
    End With
    
    Application.OnTime NextTick, "ExcelStopWatch_D"
End Sub

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