VBA UserForm日期验证失败后如何返回窗体初始状态？

完全可以实现你的需求，不过你的现有代码存在几个问题，导致无法达到预期效果：

• 两次设置SelStart是无效操作，第二个值会覆盖第一个，要选中输入框全部文本应该用SelLength = Len(TextBox2.Text)
• 验证不通过时用Me.Hide再Me.Show vbModal属于冗余操作，模态窗体本身就在前台，没必要这么折腾
• 不管验证是否通过，最后都会执行Me.Hide关闭窗体，这不符合你想让用户修改后再退出的需求
• 没有在验证失败时真正重置窗体到初始状态

下面是修改后的代码，实现验证失败时重置窗体并保留用户修改入口，只有验证通过才关闭窗体：

Private Sub CommandButton2_Click()
    ' 验证开始日期格式
    If Not IsDate(TextBox2.Text) Then
        Label1.Visible = True
        ' 选中输入框全部文本方便修改
        TextBox2.SelStart = 0
        TextBox2.SelLength = Len(TextBox2.Text)
        TextBox2.SetFocus
        MsgBox "开始日期格式错误，请输入例如 01-Jan-21 这样的格式"
        ' 重置窗体到初始状态
        ResetForm
        Exit Sub ' 终止当前按钮事件，不执行后续关闭逻辑
    End If
    
    ' 验证结束日期格式
    If Not IsDate(TextBox3.Text) Then
        Label2.Visible = True
        TextBox3.SelStart = 0
        TextBox3.SelLength = Len(TextBox3.Text)
        TextBox3.SetFocus
        MsgBox "结束日期格式错误，请输入例如 03-Apr-21 这样的格式"
        ResetForm
        Exit Sub
    End If
    
    ' 验证开始日期早于结束日期
    If CDate(TextBox2.Value) >= CDate(TextBox3.Value) Then
        MsgBox "开始日期必须早于结束日期"
        ResetForm
        TextBox2.SetFocus ' 定位到开始日期输入框方便修改
        Exit Sub
    End If
    
    ' 所有验证通过，关闭窗体
    Me.Hide
End Sub

Private Sub UserForm_Initialize()
    ResetForm ' 初始化时调用重置过程，统一逻辑
End Sub

' 单独提取重置窗体的子过程，方便复用
Private Sub ResetForm()
    OptionButton2.Value = True
    TextBox2.Text = ""
    TextBox3.Text = ""
    Label1.Visible = False ' 隐藏错误提示标签
    Label2.Visible = False
    TextBox2.SetFocus
End Sub

关键修改说明： #

• 新增ResetForm子过程，把初始化和重置的逻辑统一到这里，避免重复代码
• 每次验证失败时调用ResetForm回到初始状态，然后用Exit Sub终止按钮事件，不让窗体关闭
• 修复了文本选中的代码，用SelLength实现输入框内容全选
• 只有所有验证都通过后，才执行Me.Hide关闭窗体

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