Worksheet_Change比較值列表

我想使用worksheet_change作爲數據驗證檢查。我想確保將值粘貼到單元格區域a1：a3000與列表中的值列表匹配。恐怕我迷路了，不知道如何繼續。Worksheet_Change比較值列表

這裏是我迄今爲止

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"

有沒有人有什麼建議？

來源

2016-07-27 Matthew Ingle

你想補充一點：

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

，你的代碼要

。

來源

2016-07-27 20:56:38

嗨斯科特，這工作得很好。我需要刪除第一行中的「不」。否則，如果它出現在列表中，它會給我一個錯誤。請原諒我不清楚我的問題，但這對單個單元格有效。我真正需要的是如果將多個值粘貼到A列中，比如說1-1000，那麼它將會拒絕。你有什麼想法？ –

我真的注意到我自己，如果你看看我在一小時前做的編輯，我已經刪除了它。請考慮標記爲正確。 –

是Scott！你絕對正確。我沒有刷新我的頁面。我的錯！ –

Worksheet_Change比較值列表

回答

相關問題