VBA如何实现判定输入值是否存在并弹出对话框提示

riverhuang

给位大佬, VBA新人请教:
Sheet1中包含数据源, Sheet2中输入值, 如果输入值在Sheet1中包含,显示为绿色. 如果输入数据在Sheet1中找不到对话框提示找不到,并把底色标记为红色.

phsu

假設Sheet1的數據源都放在A列，則在Sheet2模塊寫入下列Change事件程式，可在Sheet2輸入數值之後顯示你要的效果。
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Rng As Range
    Dim nRow As Integer
    With Sheet1
        nRow = .Range("A65536").End(xlUp).Row
    Set Rng = .Range("A1:A" & nRow).Find(Target.Value)
    If Rng Is Nothing Then
        MsgBox "Not found!"
        Target.Interior.Color = vbRed
    Else
        Target.Interior.Color = vbGreen
    End If
End Sub

riverhuang

多谢, 可以实现,太厉害了

aliensky

正好用上！！！感谢！！！