Worksheet_Change 比较值到列表 [英] Worksheet_Change compare values to list

问题描述

我正在尝试使用 worksheet_change 作为数据验证检查.我想确保粘贴到单元格范围 a1:a3000 中的值与列表中的值列表匹配.恐怕我迷路了，不知道如何继续.

I am trying to use worksheet_change as a data validation check. I want to insure values pasted into cells range a1:a3000 match a list of values from a list. I'm afraid I'm lost and don't know how to proceed.

这是我目前所拥有的

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rang As Range
Set Rang = Worksheets("DATA INPUT SHEET").Range("A1:A3000")
    If Intersect(Target, Rang) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub

我想添加的是:

If Target.Value <> Worksheets("Worksheet 2".Range("B2:B7") Then
MsgBox "The value you entered is not valid"

有人有什么建议吗?

推荐答案

您可以添加:

If IsError(Application.Match(target.value, Worksheets("Worksheet 2").Range("B2:B7"), 0)) Then
    MsgBox "The value you entered is not valid"
End If

代码中您想要的位置.

这篇关于Worksheet_Change 比较值到列表的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！