Excel VBA自动设置日期异常：日与月颠倒且无前置零问题排查

核心问题出在两点 #

• 日期解析顺序错误：你的VBA代码大概率是按「月/日/年」的逻辑解析输入的6位数字，但你实际需要的是「日/月/年」的规则，导致日与月颠倒。
• 单元格格式未指定：即便日期值正确，若没设置固定的带前置零的日期格式，Excel会用默认短日期格式显示（比如不带前置零的5/2/25）。

修正后的VBA代码示例 #

替换Sheet1的Worksheet_Change事件代码为如下版本：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim inputStr As String
    Dim dayVal As Integer, monthVal As Integer, yearVal As Integer
    Dim targetDate As Date
    
    ' 仅处理单个单元格输入，避免批量修改报错
    If Target.Cells.Count > 1 Then Exit Sub
    
    On Error Resume Next
    inputStr = Trim(Target.Value)
    On Error GoTo 0
    
    ' 判断输入是否为6位数字
    If Len(inputStr) = 6 And IsNumeric(inputStr) Then
        ' 按DDMMYY规则拆分：前两位日、中间两位月、最后两位年
        dayVal = CInt(Left(inputStr, 2))
        monthVal = CInt(Mid(inputStr, 3, 2))
        yearVal = 2000 + CInt(Right(inputStr, 2)) ' 补全为20xx年
        
        ' 验证日期合法性，避免无效日期如02/13/2025
        If IsDate(DateSerial(yearVal, monthVal, dayVal)) Then
            Application.EnableEvents = False ' 关闭事件防止循环触发
            targetDate = DateSerial(yearVal, monthVal, dayVal)
            Target.Value = targetDate
            ' 强制设置单元格格式为dd/mm/yyyy，保证显示前置零和4位年份
            Target.NumberFormat = "dd/mm/yyyy"
            Application.EnableEvents = True ' 恢复事件
        End If
    End If
End Sub

关键说明 #

• 明确按DDMMYY规则拆分输入字符串，避免系统区域设置对日期解析的干扰。
• 用DateSerial构造日期，确保日期值的准确性，替代易受区域影响的CDate等函数。
• 强制指定单元格格式为"dd/mm/yyyy"，不管系统默认格式，保证显示为02/05/2025样式。
• 加入Application.EnableEvents = False，防止修改单元格时重复触发事件造成循环。

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