VBA UserForm txtDay文本框Change事件报错及错误处理合理性咨询

报错原因 #

原代码触发错误主要有三个核心问题：

• 输入非数字字符时，Me.txtDay.Value > 31 会触发类型不匹配错误——文本内容无法直接和数值31做大小比较。
• 按退格键清空文本框时，Len(Me.txtDay.Value) 变为0，执行Left(Me.txtDay.Value, Len(Me.txtDay.Value) - 1) 相当于调用Left("", -1)，触发无效参数错误，因为截取长度不能为负数。
• Cancel = True 完全无效：Change事件本身没有Cancel参数，写了也不会起作用，反而可能引发逻辑混乱。

错误处理方式的合理性 #

直接添加On Error GoTo属于「掩盖错误」而非「解决错误」，虽然表面上不再弹出报错，但会隐藏潜在的逻辑问题（比如文本框为空时给单元格赋值的异常），而且无法精准控制输入规则，不是合理的处理方式。

改进后的代码 #

下面是修正后的代码，从根源避免错误，同时严格符合输入规则：

Private Sub txtDay_Change()
    Dim inputVal As String
    inputVal = Trim(Me.txtDay.Value)
    
    ' 处理空输入情况
    If inputVal = "" Then
        Sheets("do not open!").Range("C1") = ""
        Exit Sub
    End If
    
    ' 先验证是否为纯数字
    If Not IsNumeric(inputVal) Then
        Me.txtDay.Value = Left(inputVal, Len(inputVal) - 1)
        Exit Sub
    End If
    
    ' 转换为数值后验证范围与长度
    Dim dayNum As Integer
    dayNum = CInt(inputVal)
    If dayNum > 31 Or Len(inputVal) > 2 Then
        Me.txtDay.Value = Left(inputVal, Len(inputVal) - 1)
    Else
        Sheets("do not open!").Range("C1") = dayNum
    End If
End Sub

代码说明 #

• 调整判断顺序：先处理空输入，避免后续截取长度为负的问题。
• 先检查是否为数值，再进行数值比较，彻底避免类型不匹配错误。
• 移除无效的Cancel = True语句，清理冗余代码。
• 用Trim处理输入，避免空格干扰验证逻辑。

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