Excel VBA中IsDate误判无效日期，如何限制输入真实日期？

方法1：使用数据验证（无需VBA） #

• 选中需要限制的单元格或单元格区域
• 点击「数据」选项卡 → 「数据验证」，选择「自定义」类型
• 在「公式」框中输入以下公式（若选中区域不是从A1开始，将A1替换为区域左上角单元格）：
  =AND(DAY(A1)=DAY(DATE(YEAR(A1),MONTH(A1),DAY(A1))),MONTH(A1)=MONTH(DATE(YEAR(A1),MONTH(A1),DAY(A1))))
• 切换到「出错警告」选项卡，设置提示标题和内容（例如「无效日期」「请输入真实存在的日期，如6月30日而非6月40日」）
• 点击确定完成设置

原理：DATE函数会自动将无效日期调整为有效日期，通过对比原单元格的日、月与调整后日期的日、月，不一致则判定为无效日期，数据验证会直接拦截输入。

方法2：使用VBA工作表事件（实时拦截） #

如果需要更严格的实时校验，可通过工作表事件实现：

1. 右键目标工作表标签 → 「查看代码」
2. 粘贴以下VBA代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim cell As Range
    Dim inputDate As Variant
    Dim validDate As Date
    
    ' 自定义需要限制的单元格区域，示例为A1:A100，可自行修改
    Set rng = Me.Range("A1:A100")
    
    Set rng = Intersect(Target, rng)
    If rng Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    On Error Resume Next
    
    For Each cell In rng
        inputDate = cell.Value
        If IsDate(inputDate) Then
            validDate = DateSerial(Year(inputDate), Month(inputDate), Day(inputDate))
            ' 对比原输入与自动调整后的日期是否一致
            If Day(inputDate) <> Day(validDate) Or Month(inputDate) <> Month(validDate) Then
                cell.ClearContents
                MsgBox "请输入真实存在的日期，禁止输入如6月40日这类无效日期", vbExclamation, "无效日期"
            End If
        End If
    Next cell
    
    Application.EnableEvents = True
    On Error GoTo 0
End Sub

3. 将工作簿保存为「.xlsm」格式（启用宏的工作簿）

原理：当单元格内容变化时，自动校验输入日期是否被Excel调整，若调整前后日/月不一致，则判定为无效日期，清空内容并弹出提示。

补充说明 #

• 数据验证方式适合普通用户，无需启用宏；VBA方式灵活性更高，可实时处理输入操作。
• 若用户输入的是文本型无效日期（如"1970/6/40"），IsDate会返回False，两种方式都会自动忽略，可根据需求额外添加文本校验逻辑。

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