Worksheet_Change将值与列表进行比较

Question

我正在尝试使用worksheet_change作为数据验证检查。我想确保粘贴到单元格范围内的值a1：a3000匹配列表中的值列表。我害怕失去了，不知道如何继续。

这是我到目前为止所拥有的

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"

有没有人有任何建议？

Answer 1

您可以添加：

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

你想要的代码。