VBA用户窗体日期文本框Exit事件SetFocus失效问题求助

核心解决方案 #

问题根源在于你没利用Exit事件的Cancel参数——仅调用SetFocus无法阻止控件默认的失焦行为，必须通过Cancel = True强制保留焦点。以下是完整可运行的代码示例（假设文本框名为txtDate）：

Private Sub txtDate_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim inputVal As String
    inputVal = Trim(Me.txtDate.Value)
    
    ' 处理空输入（可选，按需调整）
    If inputVal = "" Then
        MsgBox "请输入日期，格式为DD.MM.YYYY", vbExclamation
        Cancel = True ' 阻止控件失焦
        Me.txtDate.SelStart = 0
        Exit Sub
    End If
    
    ' 可选：严格验证格式为DD.MM.YYYY
    If Not inputVal Like "##.##.####" Then
        MsgBox "格式错误，请输入DD.MM.YYYY格式的日期", vbCritical
        Cancel = True
        Me.txtDate.SelStart = 0
        Exit Sub
    End If
    
    ' 验证日期有效性并格式化
    If IsDate(inputVal) Then
        Me.txtDate.Value = Format(CDate(inputVal), "DD.MM.YYYY")
    Else
        MsgBox "输入无效，请输入有效的日期（格式DD.MM.YYYY）", vbCritical
        Cancel = True ' 关键：强制保留焦点
        Me.txtDate.SelStart = 0 ' 光标定位到文本开头，方便修改
    End If
End Sub

关键细节说明 #

• Cancel = True：这是让光标留在文本框的核心操作，它会终止Exit事件的默认失焦流程，强制控件保持焦点状态。
• 格式验证（Like "##.##.####"）：如果需要严格限制用户必须输入.分隔的日/月/年格式，可添加此判断；若允许系统可识别的其他日期格式（如DD/MM/YYYY），可跳过这一步。
• SelStart = 0：让光标自动定位到文本开头，用户无需手动拖动光标，提升操作体验。

常见误区避坑 #

• 不要用_AfterUpdate事件：该事件在控件失去焦点后触发，无法阻止焦点转移，因此没法强制光标返回文本框。
• 单独调用SetFocus无效：Exit事件的默认行为是让控件失焦，仅调用SetFocus会被系统默认操作覆盖，必须配合Cancel = True使用。

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