Excel VBA表单日期格式问题：需改为澳式dd/mm/yyyy

核心是让单元格存储真正的日期序列值（而非文本），同时设置显示格式为澳式dd/mm/yyyy，这样既满足显示要求，又能正常按日期排序。

修改后的代码 #

Private Sub cmdAdd_Click()

Dim iRow As Long
Dim ws As Worksheet
Dim dateParts As Variant
Dim dayVal As Integer, monthVal As Integer, yearVal As Integer

Set ws = Worksheets("ClientData")

' 定位表格第一个空行
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
    SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

' 写入数据到表格
With ws
    .Unprotect Password:="Password"
    
    ' 处理日期字段
    On Error Resume Next
    dateParts = Split(Me.txtDate.Value, "/")
    ' 按dd/mm/yyyy格式拆分输入内容，数组索引0为日、1为月、2为年
    dayVal = CInt(dateParts(0))
    monthVal = CInt(dateParts(1))
    yearVal = CInt(dateParts(2))
    
    If Err.Number = 0 Then
        ' 生成标准日期值存入单元格
        .Cells(iRow, 1).Value = DateSerial(yearVal, monthVal, dayVal)
        ' 设置单元格显示为澳式日期格式
        .Cells(iRow, 1).NumberFormat = "dd/mm/yyyy"
    Else
        ' 输入无效日期时的提示，可按需调整
        MsgBox "请输入有效的dd/mm/yyyy格式日期"
        .Protect Password:="Password"
        Exit Sub
    End If
    On Error GoTo 0
    
    .Cells(iRow, 2).Value = Me.txtStarttime.Value
    .Cells(iRow, 3).Value = Me.txtEndtime.Value
    .Cells(iRow, 4).Value = Me.txtTotal.Value
    .Cells(iRow, 5).Value = Me.txtProgress.Value
    .Cells(iRow, 6).Value = Me.txtStaff.Value
    
    .Protect Password:="Password"
End With

' 清空表单输入框
Me.txtDate.Value = ""
Me.txtStarttime.Value = ""
Me.txtEndtime.Value = ""
Me.txtTotal.Value = ""
Me.txtProgress.Value = ""
Me.txtStaff.Value = ""

End Sub

关键修改说明 #

• 手动解析日期：通过Split函数拆分输入的日期字符串，避免Excel按系统区域自动解析成美式日期。
• 存储标准日期值：用DateSerial函数将拆分后的日、月、年转换为Excel可识别的日期序列值，确保单元格存的是日期类型而非文本。
• 设置显示格式：为单元格指定dd/mm/yyyy显示格式，不改变底层日期值，排序时会按日期逻辑而非文本顺序排列。
• 错误防护：加入简单的错误判断，防止无效日期输入导致程序报错。

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