嘿，我来帮你拆解这两个问题，看看怎么一步步解决：

我遇到两个麻烦：一是用KeyPress事件处理文本框输入时，最后一个输入的字符总是被省略；二是换成KeyUp事件后，每次输入都会触发Case Else分支，弹出"Only numbers allowed!"的提示框。我的代码如下：

Private Sub hoursOverBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 46, 48 To 57
        Case Else
            KeyAscii = 0
            MsgBox "Only numbers allowed!"
    End Select
    Me.hoursOverBox.MaxLength = 5
    On Error Resume Next
    hoursOver = Me.hoursOverBox.value
End Sub

先搞懂第一个问题：KeyPress下最后一个字符为啥丢了？ #

这是因为KeyPress事件的触发时机是字符还没写入文本框的时候！当你在事件里直接读取Me.hoursOverBox.value，拿到的是输入当前字符之前的旧值。比如你输入"123"，第三次触发KeyPress时，文本框里还只有"12"，所以你赋值给hoursOver的自然少了最后一个字符。

另外，On Error Resume Next会悄悄掩盖错误（比如文本框为空时赋值失败），也会让你误以为是字符被省略了，这个写法尽量少用，不如明确捕获错误。

第二个问题：KeyUp为啥每次都走Case Else？ #

因为KeyUp事件的参数是KeyCode（物理按键码），和KeyPress的KeyAscii（ASCII字符码）完全不是一回事！比如主键盘的数字1，KeyAscii是49，但KeyCode也是49，但小键盘的数字1，KeyCode是97，你原来的判断只覆盖了48-57，自然匹配不上，每次都触发非法提示。

具体修复方案 #

方案1：继续用KeyPress，解决字符丢失问题 #

把读取文本框值、赋值给hoursOver的逻辑，移到AfterUpdate事件里——这个事件是在用户输入完成、文本框失去焦点时触发的，能拿到完整的最终值。修改后的代码：

Private Sub hoursOverBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 46, 48 To 57
            ' 允许输入数字和小数点
        Case Else
            KeyAscii = 0
            MsgBox "Only numbers allowed!"
    End Select
    Me.hoursOverBox.MaxLength = 5
End Sub

' 用AfterUpdate处理最终值的赋值，确保拿到完整输入
Private Sub hoursOverBox_AfterUpdate()
    On Error GoTo InputError ' 替换On Error Resume Next，明确处理错误
    ' 把文本框值转换为数值类型，避免后续使用出错
    hoursOver = CDbl(Me.hoursOverBox.Value)
    Exit Sub
    
InputError:
    MsgBox "请输入有效的数字格式！"
    Me.hoursOverBox.Value = "" ' 清空错误输入，引导用户重新输入
End Sub

方案2：如果一定要用KeyUp事件 #

需要针对KeyCode的特性调整判断逻辑，还要兼容主键盘和小键盘的数字，同时排除退格、删除这类功能键：

Private Sub hoursOverBox_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    ' 先判断是不是功能键（退格、删除），这些允许通过
    If KeyCode = 8 Or KeyCode = 46 Then Exit Sub
    
    ' 匹配主键盘数字（48-57）、小键盘数字（96-105）、小数点（110）
    Select Case KeyCode
        Case 48 To 57, 96 To 105, 110
            ' 合法输入，什么都不用做
        Case Else
            MsgBox "Only numbers allowed!"
            ' 删除刚才输入的非法字符
            Me.hoursOverBox.Value = Left(Me.hoursOverBox.Value, Len(Me.hoursOverBox.Value) - 1)
    End Select
    
    Me.hoursOverBox.MaxLength = 5
    ' 同样，赋值逻辑建议还是放在AfterUpdate里，避免提前读取到不完整的值
End Sub

总结一下：核心是搞清楚不同键盘事件的触发时机和参数差异——KeyPress适合拦截输入的字符，AfterUpdate适合处理最终的输入结果；KeyUp的KeyCode是物理按键码，和KeyAscii的字符码逻辑完全不同，不能直接套用原来的判断条件。

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