VBA时间格式验证函数求助：如何校验hh:mm:ss格式？

你的正则表达式本身逻辑是正确的，但误判问题大概率来自两个场景：

• 单元格里的是Excel原生日期时间值（不是纯文本），直接作为String参数传入时，会被转换成带AM/PM的格式字符串（比如12:00:00 AM），不匹配你的正则规则
• 输入的字符串前后带有空格，正则的^和$会直接排除这种情况

下面是修正后的函数，同时兼容纯文本时间和Excel原生时间值，还能处理前后空格：

Function IsValidTime(x As Variant) As Boolean
    Dim regex As Object
    Dim timeStr As String
    
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "^([0-1][0-9]|2[0-3]):[0-5][0-9]:[0-5][0-9]$"
    
    ' 处理Excel原生时间值
    If IsDate(x) Then
        timeStr = Format(x, "hh:mm:ss")
    Else
        ' 处理字符串，先去除前后空格
        timeStr = Trim(CStr(x))
    End If
    
    ' 测试正则匹配
    IsValidTime = regex.Test(timeStr)
End Function

使用说明： #

• 把参数类型从String改成Variant，既能接收字符串，也能接收Excel的日期时间值
• 用IsDate判断是否为原生时间，通过Format转换成标准的hh:mm:ss格式字符串再校验
• 对字符串类型的输入先做Trim处理，避免空格导致的误判

数据验证设置： #

在Excel数据验证里选择「自定义」，输入公式（把A1换成你要校验的目标单元格）：

=IsValidTime(A1)

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