为何通过InputBox输入日期会出现日与月互换的问题？

我需要让用户通过InputBox向单元格输入dd/M/yyyy格式的日期，但只要输入的日期存在日月互换的可能，就会出现错误——比如输入3/2/2026会被自动解析成2/3/2026（即2026年3月2日）。

初始代码 #

Sub dateTest()
    Range("A1").Value = InputBox("Input Date dd/M/yyyy")
End Sub

相关环境设置 #

• Excel日期区域设置为英文（中国香港特别行政区）dd/M/yyyy，与控制面板系统设置完全一致；
• 键盘从US QWERTY切换为UK QWERTY后，问题依旧存在；
• 直接在单元格手动输入日期时，不会出现此问题。

尝试过的无效写法 #

以下几种代码均未能解决日月互换问题：

1. 用Format格式化输入值

Range("A1").Value = Format(InputBox("Input Date dd/M/yyyy"), "dd/MM/yyyy")

2. 给InputBox设置默认日期格式

Range("A1").Value = InputBox("Input Date dd/M/yyyy", , Format(Now(), "dd/MM/yyyy"))

3. 先设置单元格日期格式再赋值

Range("A1").NumberFormat = "dd/MM/yyyy"
Range("A1").Value = InputBox("Input Date dd/M/yyyy")

有效解决方法 #

问题核心是VBA对输入文本的日期解析逻辑，和Excel单元格手动输入的解析逻辑不一致。可以通过以下两种方式彻底解决：

方法1：拆分字符串手动构造日期 #

直接拆分输入的日、月、年，用DateSerial构造准确日期，完全规避自动解析误差：

Sub dateTestFixed()
    Dim inputStr As String
    Dim dateParts As Variant
    Dim inputDay As Integer, inputMonth As Integer, inputYear As Integer
    
    inputStr = InputBox("请输入dd/M/yyyy格式的日期")
    ' 按斜杠拆分输入字符串
    dateParts = Split(inputStr, "/")
    
    ' 简单校验输入格式
    If UBound(dateParts) = 2 Then
        inputDay = CInt(dateParts(0))
        inputMonth = CInt(dateParts(1))
        inputYear = CInt(dateParts(2))
        
        ' 构造并赋值正确日期
        Range("A1").Value = DateSerial(inputYear, inputMonth, inputDay)
        ' 设置单元格显示格式
        Range("A1").NumberFormat = "dd/M/yyyy"
    Else
        MsgBox "日期格式错误，请输入如：15/3/2026 这样的格式！"
    End If
End Sub

方法2：强制VBA按指定格式解析日期 #

临时修改VBA的日期解析格式，确保和输入要求一致：

Sub dateTestFixed2()
    Dim inputStr As String
    inputStr = InputBox("请输入dd/M/yyyy格式的日期")
    
    ' 保存原日期格式设置
    Dim originalDateFormat As String
    originalDateFormat = Application.International(xlDateFormat)
    ' 强制设置VBA按dd/mm/yyyy解析
    Application.International(xlDateFormat) = "dd/mm/yyyy"
    
    On Error Resume Next
    Range("A1").Value = DateValue(inputStr)
    On Error GoTo 0
    
    ' 恢复原设置
    Application.International(xlDateFormat) = originalDateFormat
    
    ' 校验解析结果
    If IsEmpty(Range("A1").Value) Then
        MsgBox "日期格式错误，请输入dd/M/yyyy格式！"
    Else
        Range("A1").NumberFormat = "dd/M/yyyy"
    End If
End Sub

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