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

在代码中您想要的位置。

Worksheet_Change 比较要列出的值

Worksheet_Change compare values to list

excel

vba

worksheet-function