如何在Excel宏文件中实现F列输入值与AB3:AD6区域的匹配校验

以下是直接可用的VBA实现方案，满足你在F列输入内容回车后校验是否匹配AB3:AD6区域值的需求：

步骤说明 #

1. 打开Excel，按下Alt+F11打开VBA编辑器
2. 在左侧工程窗口中，找到需要设置校验的工作表（比如Sheet1，根据你的实际工作表名称选择）
3. 双击该工作表对象，在右侧代码窗口粘贴以下代码

完整VBA代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅响应F列（第6列）的单个单元格修改事件
    If Target.Column = 6 And Target.Cells.Count = 1 Then
        Dim allowedNames As Range
        Set allowedNames = Me.Range("AB3:AD6")
        
        ' 校验输入值是否在允许列表中
        If IsError(Application.Match(Target.Value, allowedNames, 0)) Then
            ' 不匹配时的处理逻辑，可按需修改
            MsgBox "输入的记录人不在允许范围内，请重新输入！", vbExclamation, "校验失败"
            ' 可选：自动清空错误输入
            ' Target.ClearContents
            Target.Select ' 定位回目标单元格，方便重新输入
        End If
    End If
End Sub

代码逻辑说明 #

• 事件触发条件：只有当用户修改F列单个单元格并完成输入（回车或离开单元格）时，代码才会执行
• 匹配校验：使用Application.Match函数在AB3:AD6区域查找输入值，若找不到则返回错误，通过IsError判断匹配结果
• 错误处理：不匹配时弹出提示框，你可以根据需求调整逻辑，比如给单元格填充红色背景、自动清空内容等

测试示例 #

• 当F8输入Jimmy（假设该值在AB3:AD6区域内）：无提示，校验通过
• 当F9输入Johnny（不在允许区域内）：弹出提示框，提示重新输入

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