设备借出UserForm日期自动转美式格式的技术求助

推荐方案：解析英式日期并写入正确日期值 #

核心思路是手动拆分用户输入的dd/mm/yyyy格式字符串，生成正确的日期对象，同时设置单元格显示格式为英式日期，既保证日期值可用于后续计算，又确保显示符合要求。

修改CommandButton1_Click中的日期处理代码：

Private Sub CommandButton1_Click()
Dim A As Long
Dim dateParts As Variant
Dim inputDate As Date

' 简化操作，避免冗余的Select
Sheets("Inventory").Unprotect
Sheets("MainPage").Select

A = Sheet2.Cells(Sheet2.Rows.Count, 1).End(xlUp).Row + 1
Sheet2.Cells(A, 1).Value = ComboBox1.Value
Sheet2.Cells(A, 2).Value = Clienterva.Value
Sheet2.Cells(A, 3).Value = Physerva.Value

' 处理日期输入
If Dateerva.Value <> "" Then
    dateParts = Split(Dateerva.Value, "/")
    ' 按dd/mm/yyyy拆分，对应日/月/年顺序生成日期
    inputDate = DateSerial(CInt(dateParts(2)), CInt(dateParts(1)), CInt(dateParts(0)))
    Sheet2.Cells(A, 4).Value = inputDate
    ' 强制单元格显示为英式日期格式
    Sheet2.Cells(A, 4).NumberFormat = "dd/mm/yyyy"
End If

' 清空控件内容
ComboBox1.Value = ""
Patienterva.Value = ""
Physerva.Value = ""
Dateerva.Value = ""

Sheets("Inventory").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("MainPage").Select
End Sub

备选方案：将单元格设为文本格式（仅适用于无需日期计算的场景） #

如果不需要对该日期进行函数计算或排序，可以直接将单元格设为文本格式，保留用户输入的原始字符串：

' 在CommandButton1_Click的日期赋值部分替换为以下代码
Sheet2.Cells(A, 4).NumberFormat = "@" ' 设置为文本格式
Sheet2.Cells(A, 4).Value = Dateerva.Value

额外优化：限制日期输入格式（避免无效值） #

给Dateerva控件添加Exit事件，确保用户输入标准的dd/mm/yyyy格式：

Private Sub Dateerva_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim dateParts As Variant
If Dateerva.Value <> "" Then
    dateParts = Split(Dateerva.Value, "/")
    ' 检查格式是否为3段数字
    If UBound(dateParts) <> 2 Or Not IsNumeric(dateParts(0)) Or Not IsNumeric(dateParts(1)) Or Not IsNumeric(dateParts(2)) Then
        MsgBox "请输入正确的英式日期格式：dd/mm/yyyy", vbExclamation
        Cancel = True
        Dateerva.Value = ""
    Else
        ' 检查日、月的有效性
        If CInt(dateParts(0)) < 1 Or CInt(dateParts(0)) > 31 Or CInt(dateParts(1)) < 1 Or CInt(dateParts(1)) > 12 Then
            MsgBox "日期无效，请输入正确的dd/mm/yyyy格式", vbExclamation
            Cancel = True
            Dateerva.Value = ""
        End If
    End If
End If
End Sub

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