VBA输入框日期验证异常：类型不匹配及逻辑问题求助

错误原因分析 #

• Line1逻辑错误：原代码中IsDate(dd = InputBox(...))把赋值操作和日期验证混在一起，dd初始是MsgBox返回的整数（vbYes/vbNo对应数值），赋值字符串后类型混乱，导致输入正确日期时仍触发错误提示，输入非日期字符串时触发类型不匹配错误。
• 注释代码的问题：dd初始值为MsgBox返回的整数（如vbNo=7），VBA会将整数解析为1900年1月1日之后的天数，IsDate(7)返回True，直接生成错误的默认日期“1/7/1900”，绕过了实际验证。

修正后的代码 #

' 提前声明变量类型，避免变体类型隐式转换问题
Dim dd As String
Dim inputDate As String
Dim Curr As Date ' 假设Curr为日期类型，需提前定义
Dim wo, pn, sn, n As Variant
Dim i As Long, lastRow As Long, iRow As Long

iRow = Range("A" & Rows.Count).End(xlUp).Offset(1).Row
lastRow = ws3.Cells(ws3.Rows.Count, 1).End(xlUp).Row

For i = 3 To lastRow ' 定位目标记录
    wo = Cells(i, 1).Value
    pn = Cells(i, 2).Value
    sn = Cells(i, 3).Value
    n = Cells(i, 6).Value
    
    ' 合并嵌套判断，简化层级
    If Me.txt_WN.Value = wo And Me.txt_pn.Value = pn And Me.txt_sn.Value = sn Then
        If n = "Yes" Then
            ' 日期确认弹窗
            If MsgBox("Is this the correct delivery date? " & Format(Curr, "mm/dd/yyyy"), vbYesNo) = vbYes Then
                dd = Format(Curr, "mm/dd/yyyy")
            Else
                ' 用Do-Loop循环验证输入，替代GoTo
                Do
                    inputDate = InputBox("Enter the Correct Delivery Date", "Deliver to Stores Date")
                    
                    ' 处理用户取消输入的场景
                    If inputDate = "" Then
                        MsgBox "Input cancelled, operation aborted."
                        Exit Sub
                    End If
                    
                    ' 验证日期有效性
                    If IsDate(inputDate) Then
                        dd = Format(CDate(inputDate), "mm/dd/yyyy")
                        Exit Do ' 验证通过，退出循环
                    Else
                        MsgBox "The date is formatted incorrectly, please recheck entry"
                    End If
                Loop
            End If
            GoTo Update
        Else
            MsgBox "This Wheel S/N was not marked as Due for NDT"
            Exit Sub
        End If
    End If
Next i

关键优化说明 #

• 拆分输入与验证：将输入值存入单独变量inputDate，再用IsDate判断，避免赋值逻辑干扰验证结果。
• 替换GoTo为循环：用Do-Loop实现重复验证，代码结构更清晰，减少跳转带来的维护难度。
• 处理取消操作：添加InputBox取消输入的判断，避免空值引发后续错误。
• 明确变量类型：声明变量类型，减少变体类型导致的隐式转换错误。
• 简化嵌套层级：合并多条件判断，提升代码可读性。

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