VB写入Excel时表单dd/mm/yyyy日期格式错乱的解决求助

问题原因 #

你已经通过day()/Month()/Year()确认releaseDate.Value是正确的日期对象，但使用Format()转成字符串写入单元格时，Excel会根据系统区域设置自动解析这个字符串，导致日和月被颠倒。另外，单元格默认的数字格式也可能覆盖你设置的字符串显示格式。

解决方案 #

方案1：写入日期值并设置单元格数字格式（推荐）

直接写入正确的日期对象，然后指定单元格的显示格式为dd/mm/yyyy，这样单元格存储的是Excel原生日期值（便于后续日期运算），只是显示为你需要的格式：

Private Sub OKButton_Click()
    ...
    ' 写入正确的日期值
    Cells(lastRow, 7).Value = releaseDate.Value
    ' 设置单元格显示格式为dd/mm/yyyy
    Cells(lastRow, 7).NumberFormat = "dd/mm/yyyy"
    ...
End Sub

方案2：写入纯文本格式的日期（不推荐，不利于后续计算）

如果需要强制显示为指定格式的文本，可在字符串前添加单引号，让Excel将其视为纯文本，避免自动解析：

Private Sub OKButton_Click()
    ...
    ' 写入带单引号的文本日期，避免Excel自动解析
    Cells(lastRow, 7).Value = "'" & Format(releaseDate.Value, "dd/mm/yyyy")
    ...
End Sub

补充说明 #

由于你已经能正确提取日、月、年，说明releaseDate.Value的日期类型是准确的，核心问题是单元格的显示格式或Excel自动解析字符串为日期的逻辑导致显示异常。优先选择方案1，因为保留日期类型可以支持后续的排序、筛选、日期计算等操作。

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