工作表日期在文本框显示为数字，VBA代码遇类型不匹配错误求助

错误原因 #

1. Change事件触发时机不当：Change事件会在用户每输入一个字符时触发，当输入内容还不是有效的日期/可转换为日期的数字时，CDate函数会因无法识别输入值而抛出类型不匹配错误。
2. 序列化日期处理逻辑问题：工作表中的日期数字是Excel的序列化日期（代表从1900年1月1日起的天数），直接用CDate转换这类数字字符串可能因系统区域设置差异导致转换失败。

解决方案 #

方案1：使用AfterUpdate事件（推荐） #

该事件在用户完成输入并离开文本框时触发，避免输入过程中频繁触发错误：

Private Sub TBMOS_AfterUpdate()
    Dim serialDate As Double
    ' 先判断输入是否为Excel序列化日期（数字格式）
    If IsNumeric(Me.TBMOS.Value) Then
        serialDate = CDbl(Me.TBMOS.Value)
        ' 直接将序列化日期格式化为指定日期样式
        Me.TBMOS.Value = Format(serialDate, "DD/MM/YYYY")
    Else
        ' 尝试转换输入的日期字符串，添加错误捕获避免无效输入报错
        On Error Resume Next
        Me.TBMOS.Value = Format(CDate(Me.TBMOS.Value), "DD/MM/YYYY")
        On Error GoTo 0
    End If
End Sub

方案2：在Change事件中添加错误处理（若必须使用Change事件） #

如果需要实时格式化输入内容，可通过错误捕获避免报错：

Private Sub TBMOS_Change()
    On Error Resume Next ' 临时捕获转换错误
    Dim inputVal As Variant
    inputVal = Me.TBMOS.Value
    
    If IsNumeric(inputVal) Then
        ' 处理Excel序列化日期
        Me.TBMOS.Value = Format(CDbl(inputVal), "DD/MM/YYYY")
    Else
        ' 处理日期字符串
        Me.TBMOS.Value = Format(CDate(inputVal), "DD/MM/YYYY")
    End If
    On Error GoTo 0 ' 恢复默认错误处理
End Sub

关键说明 #

• 优先用IsNumeric判断输入是否为序列化日期，直接转换为Double后用Format格式化，避免CDate因区域设置导致的转换问题。
• 错误处理语句On Error Resume Next和On Error GoTo 0可防止用户输入无效内容时抛出运行时错误。

内容的提问来源于stack exchange，提问作者Adi Santoso