|
发表于 2013-7-19 17:07
|
显示全部楼层
本楼为最佳答案
本帖最后由 xdragon 于 2013-7-19 17:09 编辑
chenbo19890323 发表于 2013-7-19 16:47
现在黑名单似乎只有第一行的可以识别
改错了。。。献丑了{:10:}
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 13 Then
With Sheets("车号黑名单")
For I = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If Cells(Target.Row, Target.Column) Like "*" & .Cells(I, 1) & "*" Then
k = .Cells(I, 1)
j = j & " " & k
End If
Next
End With
If j <> 0 Then MsgBox "黑名单:" & Chr(10) & "车牌" & j, , "提示"
End If
End Sub
不上附件了。。哈哈 |
|