VBA用户窗体写入Excel表格时日期格式自动转换问题求助

问题原因 #

VBA默认按美式日期规则（mm/dd/yyyy）解析文本格式的日期。当输入的日份≤12时，VBA会误将其识别为月份，导致写入Excel时日期格式自动颠倒；只有当日份>12时，因无对应月份选项，才会按预期的dd/mm/yyyy格式解析。

解决方法 #

替换代码中写入TextBox3的行，用以下方式强制解析正确日期：

方法1：拆分日期组件生成正确日期值

这种方法直接生成Excel可识别的日期数据类型，彻底避免格式混乱：

' 替换原代码中 sh.Range("D" & n + 1).Value = Me.TextBox3.Value 这一行
Dim dateParts As Variant
dateParts = Split(Me.TextBox3.Value, "/")
' 确保文本是dd/mm/yyyy格式的三部分
If UBound(dateParts) = 2 Then
    ' 用DateSerial(年, 月, 日)生成标准日期值
    sh.Range("D" & n + 1).Value = DateSerial(CInt(dateParts(2)), CInt(dateParts(1)), CInt(dateParts(0)))
    ' 强制单元格显示为dd/mm/yyyy格式
    sh.Range("D" & n + 1).NumberFormat = "dd/mm/yyyy"
End If

方法2：结合系统区域设置转换（仅适用于系统默认日期为dd/mm/yyyy的场景）

如果你的Windows系统区域设置已经是英式日期格式，可直接用CDate转换，但兼容性不如方法1：

sh.Range("D" & n + 1).Value = CDate(Me.TextBox3.Value)
sh.Range("D" & n + 1).NumberFormat = "dd/mm/yyyy"

额外优化：确保TextBox3默认日期正确 #

在用户窗体的初始化事件中，用Format函数明确设置默认日期格式：

Private Sub UserForm_Initialize()
    Me.TextBox3.Value = Format(Date, "dd/mm/yyyy")
End Sub

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