VBA通配符实现DD-MM-JJJJ格式日期校验的正确方法

核心业务需求 #

• 业务规定Data工作表E14单元格输入的日期必须严格匹配DD-MM-JJJJ格式
• 若用户输入类似JJJJ-MM-DD的其他格式，会直接触发工作流终止
• 校验逻辑绑定工作表激活事件：校验不通过时，在Bugs工作表B1单元格输出对应提示文本

现有代码运行失效的核心原因 #

• 带通配符的字符串拼接等值判断逻辑完全无效：VBA的=等值匹配不会识别*作为通配符，这种写法永远无法匹配目标格式
• 判断依据错误：直接拿单元格的.Value属性做判断，拿到的是Excel内部存储的日期序列化值，不管用户用什么显示格式，存储值都是相同的，根本识别不出格式差异
• 存在拼写错误：原错误提示文本里把"You"错写为了"Jou"

可直接运行的正确代码 #

Private Sub Worksheet_Activate()
    Dim wsBugs As Worksheet
    Dim checkTargetCell As Range
    
    ' 绑定当前工作簿内的目标工作表与校验单元格
    Set wsBugs = ThisWorkbook.Worksheets("Bugs")
    Set checkTargetCell = ThisWorkbook.Worksheets("Data").Range("E14")
    
    ' 前置空值判断，避免空单元格触发运行异常
    If IsEmpty(checkTargetCell) Then
        wsBugs.Range("B1").Value = "校验失败：E14单元格未输入有效日期"
        Exit Sub
    End If
    
    ' 双维度校验：既判断内容是否为合法日期，也判断显示格式是否匹配要求
    If IsDate(checkTargetCell.Value) And checkTargetCell.NumberFormat = "dd-mm-yyyy" Then
        wsBugs.Range("B1").Value = "日期格式校验通过"
    Else
        wsBugs.Range("B1").Value = "日期格式错误，请严格使用DD-MM-JJJJ格式输入"
    End If
End Sub

代码设计说明 #

• 用单元格的.NumberFormat属性判断格式合规性：这个属性对应单元格实际的显示格式规则，是识别格式差异的可靠依据，相比直接匹配文本准确性更高
• 增加IsDate前置判断，避免单元格输入非日期文本时代码抛出运行时错误
• 所有工作表引用增加ThisWorkbook限定，避免用户打开其他关联工作簿时，代码错误引用外部工作簿的对象

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