如何比较mm:ss格式1英里跑时间？VBA对比时出现类型不匹配错误求助

问题拆解 #

你遇到的Run-time error '13'（类型不匹配）和时间比较的需求，核心有两个问题：

1. TimeValue的解析逻辑不符合你的需求：它会把"12:00"默认当成12小时0分，但你需要的是12分钟0秒，这不仅逻辑错了，还会因为单元格数据类型（比如是Excel时间值而非文本）触发类型不匹配。
2. 单元格数据类型不兼容：如果单元格存的是Excel内置时间值（以小数形式存储，比如12小时=0.5天），而非纯文本的mm:ss，直接塞给TimeValue就会报错。

你的核心需求其实是：

• 对比两个mm:ss格式的跑时，判断谁更快（秒数越少越快）
• 把跑者时间和总统体能标准的最低时间对比，判断是否达标

解决方案：转成总秒数再对比 #

最稳妥的方式是把mm:ss格式的时间转换成总秒数，这样对比起来直观，还能彻底避免时间解析的坑。

第一步：写个通用转换函数

先做一个自定义函数，把任意mm:ss格式的内容（不管是文本还是Excel时间值）转成总秒数，还带错误处理：

Function ConvertToSeconds(timeInput As Variant) As Double
    Dim timeParts() As String
    Dim minutes As Integer, seconds As Integer
    
    ' 处理空值或非时间格式的无效输入
    If IsEmpty(timeInput) Or Not IsNumeric(Replace(timeInput, ":", "")) Then
        ConvertToSeconds = -1 ' 返回-1标记无效值
        Exit Function
    End If
    
    ' 统一转成字符串，拆分分钟和秒
    timeParts = Split(CStr(timeInput), ":")
    
    ' 只处理mm:ss格式
    If UBound(timeParts) = 1 Then
        minutes = CInt(timeParts(0))
        seconds = CInt(timeParts(1))
        ConvertToSeconds = minutes * 60 + seconds
    Else
        ConvertToSeconds = -1 ' 其他格式标记为无效
    End If
End Function

第二步：实现成绩对比和达标判断

用上面的函数来处理你的业务逻辑，示例代码：

Sub CheckRunPerformance()
    Dim statsSheet As Worksheet
    Dim runnerTotalSec As Double, standardTotalSec As Double
    
    ' 指向你的工作表
    Set statsSheet = ThisWorkbook.Worksheets("Individual_Stats")
    
    ' 转换跑者时间（第2行第14列）和标准时间（第3行第12列）为总秒数
    runnerTotalSec = ConvertToSeconds(statsSheet.Cells(2, 14).Value)
    standardTotalSec = ConvertToSeconds(statsSheet.Cells(3, 12).Value)
    
    ' 先检查输入是否有效
    If runnerTotalSec = -1 Or standardTotalSec = -1 Then
        MsgBox "请输入有效的mm:ss格式时间！"
        Exit Sub
    End If
    
    ' 对比判断：秒数越少成绩越好
    If runnerTotalSec < standardTotalSec Then
        statsSheet.Range("A1").Interior.ColorIndex = 4 ' 绿色标记达标/更快
        MsgBox "跑者成绩达标，比标准时间更快！"
    Else
        statsSheet.Range("A1").Interior.ColorIndex = 3 ' 红色标记未达标
        MsgBox "跑者成绩未达标，慢于标准时间！"
    End If
End Sub

为什么这个方案靠谱？ #

• 彻底避免解析歧义：不管是文本"11:40"还是Excel里显示为11:40的时间值，转成秒数后对比完全不会出错。
• 兼容多种输入：不管单元格是文本格式还是自定义时间格式，只要是mm:ss的结构，函数都能处理。
• 错误防护：遇到空值或乱七八糟的输入，会提前提示，不会触发运行时错误。

额外提示 #

如果你的单元格是用自定义时间格式显示mm:ss（比如实际存储的是00:12:00这种完整时间值），也可以直接用时间值转秒数：CDbl(TimeValue(statsSheet.Cells(2,14).Value)) * 86400（因为1天=86400秒），但前提是单元格的时间值确实是分钟+秒，不是小时+分钟。

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