Excel日期选择器格式异常求助：日期格式随日数变化

我制作的Excel日期选择器存在格式问题：选择1-12日时，活动单元格显示mm/dd/yy格式；但选择13-31日时，自动变成dd/mm/yy格式。例如选择9月13日，单元格显示为13/09/25，不符合预期。

相关VBA代码 #

日历构建代码 #

Sub buildCalendar()

    Dim iYear As Integer
    Dim iMonth As Integer
    
    Dim startOfMonth As Date
    Dim trackingDate As Date
    
    Dim iStartofMonthDay As Integer
    Dim cDay As Control
    
    If VBA.IsDate(ActiveCell.Value) Then
        
        trackingDate = Format(ActiveCell.Value, "mm-dd-yy")
    Else
        
        trackingDate = Now()
        
    End If
    
    iYear = VBA.Year(trackingDate)
    iMonth = VBA.Month(trackingDate)
    
    UserForm1.Controls("lblmonth").Caption = VBA.MonthName(iMonth, True)
    UserForm1.Controls("lblyear").Caption = iYear
    
    startOfMonth = VBA.DateSerial(iYear, iMonth, 1)
    iStartofMonthDay = VBA.Weekday(startOfMonth, vbSunday)
    
    trackingDate = DateAdd("d", -iStartofMonthDay + 1, startOfMonth)

    For i = 1 To 42
    
        Set cDay = UserForm1.Controls("day" & i)
        cDay.Caption = VBA.Day(trackingDate)
        cDay.Tag = trackingDate
        
        If VBA.Month(trackingDate) <> iMonth Then cDay.ForeColor = 8421504
        
        trackingDate = VBA.DateAdd("d", 1, trackingDate)
    
    Next i
End Sub

日期点击事件代码 #

Sub dayClick(i As Integer)
    ActiveCell.Value = Me.Controls("day" & i).Tag
    Unload Me
End Sub

Private Sub day1_Click(): dayClick (1): End Sub
Private Sub day2_Click(): dayClick (2): End Sub
Private Sub day3_Click(): dayClick (3): End Sub
Private Sub day4_Click(): dayClick (4): End Sub
Private Sub day5_Click(): dayClick (5): End Sub
Private Sub day6_Click(): dayClick (6): End Sub
Private Sub day7_Click(): dayClick (7): End Sub
Private Sub day8_Click(): dayClick (8): End Sub
Private Sub day9_Click(): dayClick (9): End Sub
Private Sub day10_Click(): dayClick (10): End Sub
' 剩余日期点击事件省略

解决方案 #

问题根源 #

代码中使用Format(ActiveCell.Value, "mm-dd-yy")将日期转换为字符串，再赋值给trackingDate（Date类型变量），这会导致VBA/Excel自动解析字符串时出现歧义：

• 当日期的日部分≤12时，Excel会优先按系统区域设置的格式解析，结果与预期格式冲突；
• 当日部分＞12时，因为无法作为月份解析，Excel会自动切换为dd/mm/yy格式解析，导致显示完全不符合预期。

修复步骤 #

1. 避免字符串转换，保留日期类型
   修改buildCalendar中的判断逻辑，直接赋值日期类型而不是转换为字符串：

If VBA.IsDate(ActiveCell.Value) Then
    trackingDate = ActiveCell.Value ' 直接保留日期类型，跳过字符串转换
Else
    trackingDate = Now()
End If

2. 显式设置单元格日期格式
   在dayClick子过程中添加代码，强制单元格使用你需要的格式（比如mm/dd/yy）：

Sub dayClick(i As Integer)
    ActiveCell.Value = Me.Controls("day" & i).Tag
    ActiveCell.NumberFormat = "mm/dd/yy" ' 强制指定显示格式
    Unload Me
End Sub

效果说明 #

• 保留日期类型可以彻底避免字符串解析的歧义问题，确保日期值的准确性；
• 显式设置单元格格式后，无论系统区域设置如何，日期都会按你指定的格式稳定显示。

内容的提问来源于stack exchange，提问作者Cid Makan Nepomuceno