用户窗体：MsgBox弹窗后重定向焦点至文本框问题

别担心，这绝对不是低级问题——VBA Userform的焦点控制和事件处理确实有不少容易踩的坑，我来帮你搞定。

首先，你遇到的EB_Start.Activate和SetFocus无效的核心原因是：在BeforeUpdate事件里，如果不把Cancel参数设为True，系统会默认完成更新流程，焦点已经跳走了，再调焦点自然没用。而且你的错误处理块逻辑也需要调整，确保错误发生时能正确拦截流程。

修正后的完整代码 #

Private Sub EB_Ende_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    Dim inputDate As Date
    
    On Error GoTo Error_Handler
    ' 尝试转换输入为日期
    inputDate = CDate(Me.EB_Ende.Value)
    ' 如果转换成功，正常赋值（可统一格式，比如改成Format(inputDate, "yyyy-mm-dd")）
    Me.EB_Ende.Value = inputDate
    Exit Sub ' 转换成功后跳出，避免触发错误处理块

Error_Handler:
    ' 关键：拦截更新操作，阻止焦点离开当前文本框
    Cancel = True
    ' 提示用户输入格式错误
    MsgBox "请输入有效的日期格式（例如：2024/05/20 或 20.05.2024）", vbExclamation, "格式错误"
    ' 清空错误输入，方便用户重新输入
    Me.EB_Ende.Value = ""
    ' 强制将焦点拉回错误文本框（如果需要跳转到EB_Start，替换为Me.EB_Start.SetFocus）
    Me.EB_Ende.SetFocus
End Sub

关键要点解释 #

• Cancel = True：这是解决焦点失效的核心！它告诉系统取消当前的更新流程，文本框不会失去焦点，后续的SetFocus指令才能生效。
• Exit Sub：日期转换成功后必须跳出过程，避免错误处理块被误触发。
• 清空错误输入：自动清空无效内容，用户不用手动删除，体验更流畅。
• 焦点灵活调整：如果你的需求是错误时跳转到EB_Start，直接把Me.EB_Ende.SetFocus改成Me.EB_Start.SetFocus即可。

如果想进一步优化体验，还可以额外做这些：

• 在KeyPress事件里过滤输入，只允许数字和日期分隔符（/、.、-），从源头减少错误输入。
• 转换日期后统一格式，比如用Format(inputDate, "yyyy-mm-dd")赋值，让显示更规范。

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