如何简化VBA用户窗体文本框日期校验的嵌套If Else代码？

可以通过扁平化逻辑结构+提取重复元素的方式大幅简化这段嵌套代码，优化后的代码如下：

Private Sub Setbutton_Click()
    Dim inputDate As Date
    Dim scheduleStart As Date
    Dim scheduleEnd As Date
    
    ' 提前提取计划日期，避免重复访问工作表
    scheduleStart = ThisWorkbook.Sheets("Home").Range("G4").Value
    scheduleEnd = ThisWorkbook.Sheets("Home").Range("G5").Value
    
    ' 校验日期格式
    If Not IsDate(txtbox.Value) Then
        MsgBox "输入内容不是日期格式。" & Chr(13) & "请输入项目开始日期，格式为(dd/mm/yyyy)", vbCritical
        Cancel = True
        Exit Sub
    End If
    
    ' 转换输入为日期并存储
    inputDate = CDate(txtbox.Value)
    
    ' 校验日期不早于计划起始日
    If inputDate < scheduleStart Then
        MsgBox "项目开始日期早于计划起始日期" & Chr(13) & "请输入" & scheduleStart & "之后的日期，或取消并修改计划起始日期。", vbCritical
        Cancel = True
        Exit Sub
    End If
    
    ' 校验日期不晚于计划结束日
    If inputDate > scheduleEnd Then
        MsgBox "项目开始日期晚于计划结束日期" & Chr(13) & "请输入" & scheduleEnd & "之前的日期，或取消并修改计划结束日期。", vbCritical
        Cancel = True
        Exit Sub
    End If
    
    ' 所有校验通过，执行主代码
    ' (此处写入你的核心业务代码)
End Sub

简化的核心调整： #

• 消除多层嵌套：使用Exit Sub在每一步校验失败时直接终止过程，替代原有的三层Else嵌套，代码逻辑更线性，可读性大幅提升。
• 减少冗余操作：
  • 将工作表中固定引用的计划日期提前存入变量，避免多次重复访问工作表，既提升运行效率，也让代码更简洁。
  • 将输入文本转换为日期型后存入变量，避免重复调用CDate()函数。
• 保留原有校验逻辑：完全保留了原代码的日期格式校验、范围校验规则和错误提示的核心信息，仅优化代码结构。

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