GBKEE

¦^´_ 7# jesscc

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Row < 7 Then Exit Sub '§Ú¦h¥[³o¦æ
    If Target.Column <> 5 Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False   '§ï©ñ³o¸Ì
    If Sheets("DATA").[b:b].Find(Target, , , 1) Is Nothing Then
      ' §R±¼ Application.EnableEvents = False   '°±¤îª«¥ó¯àIJµo¨Æ¥ó      
       Target.Offset(, -3) = "?"
        Target.Offset(, -3).Font.ColorIndex = 3
        Else
        Target.Offset(, -3) = ""
        Target.Offset(, -3).Font.ColorIndex = 0
      ' §R±¼ Application.EnableEvents = True      '«ì´_ª«¥ó¯àIJµo¨Æ¥ó   
    End If
     Application.EnableEvents = True    '§ï©ñ³o¸Ì

End Sub