Excel UserForm中TextBox日期格式验证及编辑时正确显示方法

一、解决编辑时日期显示异常问题 #

Excel中的日期本质是序列化数字，直接将单元格值赋值给TextBox会导致显示异常。需在加载数据时对日期进行格式化处理：

' 示例：从工作表读取日期到TextBox（假设TextBox名为txtDate，数据来自Sheet1的A1单元格）
txtDate.Value = Format(Sheet1.Range("A1").Value, "MM/DD/YYYY")

无论是通过双击单元格触发编辑，还是UserForm初始化加载数据，都执行上述格式化操作，确保TextBox显示标准的MM/DD/YYYY格式日期。

二、添加MM/DD/YYYY格式的输入验证 #

通过TextBox的BeforeUpdate事件实现双重验证：格式匹配+日期有效性，避免无效输入。

方法1：基础格式检查+日期有效性验证 #

Private Sub txtDate_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    Dim inputStr As String
    inputStr = Trim(txtDate.Value)
    
    ' 检查格式是否符合MM/DD/YYYY（长度、分隔符位置）
    If Len(inputStr) <> 10 Or Mid(inputStr, 3, 1) <> "/" Or Mid(inputStr, 6, 1) <> "/" Then
        MsgBox "请输入MM/DD/YYYY格式的日期", vbExclamation
        Cancel = True
        txtDate.SetFocus
        Exit Sub
    End If
    
    ' 验证是否为有效日期（排除2月30日这类格式对但不存在的日期）
    If Not IsDate(inputStr) Then
        MsgBox "输入的日期无效", vbExclamation
        Cancel = True
        txtDate.SetFocus
        Exit Sub
    End If
    
    ' 可选：将输入转换为日期类型写入工作表，确保存储格式正确
    Sheet1.Range("A1").Value = CDate(inputStr)
End Sub

方法2：正则表达式精准匹配格式 #

如果需要更严格的格式校验（比如月份只能是01-12，日期符合对应月份天数），可以使用正则表达式：

Private Sub txtDate_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    ' 正则规则：月份01-12，日期01-31，年份4位数字
    regex.Pattern = "^(0[1-9]|1[012])/(0[1-9]|[12][0-9]|3[01])/(\d{4})$"
    
    If Not regex.Test(Trim(txtDate.Value)) Then
        MsgBox "请输入有效的MM/DD/YYYY格式日期", vbExclamation
        Cancel = True
        txtDate.SetFocus
        Exit Sub
    End If
    
    ' 二次验证日期实际有效性
    If Not IsDate(txtDate.Value) Then
        MsgBox "输入的日期不存在", vbExclamation
        Cancel = True
        txtDate.SetFocus
        Exit Sub
    End If
End Sub

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