如何为VBA数据验证Add方法添加自定义错误处理程序？

你的核心问题是VBA数据验证自带的提示框允许用户选择「取消」，导致单值单元格原有内容被清空。要解决这个问题，不能依赖数据验证的AlertStyle，而是要改用工作表Change事件实现自定义验证逻辑，直接控制输入后的行为，保留原有内容。

实现步骤 #

• 先移除目标单元格上原有的数据验证，避免默认提示干扰
• 在工作表的Worksheet_Change事件中编写验证逻辑，实时检查输入内容：
  1. 保存单元格修改前的原始值
  2. 验证输入的所有日期（包括多值情况）是否符合要求
  3. 若存在无效值，提示用户并恢复原始内容，直接终止编辑

完整代码 #

首先运行这个宏移除原有数据验证：

Sub RemoveDefaultValidation()
    On Error Resume Next
    ActiveSheet.Range("Date_Entry").Validation.Delete
    On Error GoTo 0
End Sub

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

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim dateRange As Range
    Dim oldValue As Variant
    Dim inputValues As Variant
    Dim i As Integer
    Dim isValid As Boolean
    
    ' 仅处理目标单元格区域
    Set dateRange = Me.Range("Date_Entry")
    If Intersect(Target, dateRange) Is Nothing Then Exit Sub
    
    ' 禁用事件防止循环触发
    Application.EnableEvents = False
    ' 保存修改前的原始值
    oldValue = Target.Value
    
    ' 处理多值情况（假设多值用逗号分隔，可根据你的宏调整分隔符）
    If InStr(Target.Value, ",") > 0 Then
        inputValues = Split(Target.Value, ",")
    Else
        ReDim inputValues(0 To 0)
        inputValues(0) = Target.Value
    End If
    
    isValid = True
    ' 逐个验证日期
    For i = LBound(inputValues) To UBound(inputValues)
        ' 跳过空值（若允许空白）
        If Trim(inputValues(i)) <> "" Then
            If Not IsDate(Trim(inputValues(i))) Then
                isValid = False
                Exit For
            Else
                ' 验证日期范围：2000-1-1 至今天
                If CDate(Trim(inputValues(i))) < #1/1/2000# Or CDate(Trim(inputValues(i))) > Date Then
                    isValid = False
                    Exit For
                End If
            End If
        End If
    Next i
    
    ' 验证不通过则恢复原始值并提示
    If Not isValid Then
        MsgBox "输入的日期无效，请输入2000年1月1日至今天之间的日期！", vbCritical
        Target.Value = oldValue
    End If
    
    ' 重新启用事件
    Application.EnableEvents = True
End Sub

代码说明 #

• Application.EnableEvents = False：防止修改单元格时再次触发Change事件，避免循环
• 多值处理：默认按逗号拆分内容，可根据你的多值输入格式调整分隔符（比如换行、分号）
• 验证逻辑：先检查是否为有效日期，再校验范围，只要有一个无效值就判定整体无效
• 恢复原始值：验证不通过时直接还原单元格内容，彻底避免「取消」操作导致的内容丢失

注意事项 #

• 运行RemoveDefaultValidation宏后，原有数据验证会被删除，所有验证逻辑由Change事件接管
• 如果你的多值输入有特殊格式（比如带空格、换行），需要调整Split的分隔符和Trim的使用

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