如何用VBA实现数据验证错误触发自定义消息框，保留原单元格内容

需求解决思路 #

先给目标单元格设置基础日期范围验证规则，再通过VBA监听单元格变更事件，替换默认的错误提示框——默认框的「取消」会删除输入内容且无法撤销，我们自定义带「重试」和「保留内容退出」选项的提示，同时禁用内置提示。

步骤1：配置基础数据验证 #

选中需要限制的单元格区域，按以下操作设置验证规则（仅作为判断依据，禁用内置提示）：

1. 点击「数据」选项卡 → 「数据验证」
2. 验证条件选「日期」→ 「介于」，最小值填2000/01/01，最大值填2020/01/01
3. 切换到「出错警告」选项卡，将「样式」改为无，避免内置提示弹窗干扰

步骤2：编写VBA代码 #

右键目标工作表的标签 → 「查看代码」，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 替换为你需要验证的单元格范围，比如A1:A100
    Dim ValidateRange As Range
    Set ValidateRange = Me.Range("A1:A100")
    
    ' 仅处理目标范围内的单元格变更
    If Not Intersect(Target, ValidateRange) Is Nothing Then
        Application.EnableEvents = False ' 禁用事件触发，防止循环执行
        Dim InputDate As Date
        Dim OldValue As Variant
        OldValue = Target.Value ' 记录变更前的单元格值（可选，用于恢复原内容）
        
        ' 验证输入是否为有效日期
        On Error Resume Next
        InputDate = CDate(Target.Value)
        On Error GoTo 0
        
        If IsDate(Target.Value) Then
            ' 检查日期是否在指定范围内
            If InputDate < #1/1/2000# Or InputDate > #1/1/2020# Then
                Dim DateErrRes As Integer
                DateErrRes = MsgBox("输入日期超出范围（2000/01/01 - 2020/01/01）！" & vbCrLf & "「重试」继续编辑 | 「取消」保留当前内容并退出", vbRetryCancel + vbExclamation, "日期验证错误")
                
                If DateErrRes = vbRetry Then
                    Target.Select ' 聚焦单元格重新输入
                Else
                    ' 若要恢复原内容，替换下面的代码为 Target.Value = OldValue
                    Me.Range("A1").Select ' 切换单元格退出编辑状态
                End If
            End If
        Else
            ' 处理非日期格式的输入
            Dim FormatErrRes As Integer
            FormatErrRes = MsgBox("输入内容不是有效日期格式！" & vbCrLf & "「重试」继续编辑 | 「取消」保留当前内容并退出", vbRetryCancel + vbExclamation, "格式错误")
            
            If FormatErrRes = vbRetry Then
                Target.Select
            Else
                ' 若要恢复原内容，替换为 Target.Value = OldValue
                Me.Range("A1").Select
            End If
        End If
        
        Application.EnableEvents = True ' 恢复事件触发
    End If
End Sub

代码关键说明 #

• ValidateRange：必须替换为你实际需要验证的单元格区域
• 可选功能：如果希望点击「取消」时恢复单元格原内容，把Me.Range("A1").Select替换为Target.Value = OldValue即可
• Application.EnableEvents = False：防止代码执行时反复触发Worksheet_Change事件，造成死循环

启用要求 #

确保Excel已启用宏（文件另存为.xlsm格式，打开时允许启用宏）

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