Worksheet_リストとの値の比較

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 

。