[已解决]Excel 黑名单功能实现

chenbo19890323

求助高手如何在数据表中输入数据时，当表黑名单中有的牌号被输入时提示为黑名单数据，跳出提示框或者其它方法皆可以。
数据可能是通过复制黏贴输入。
谢谢。

最佳答案

月排行榜 / 总排行榜

xdragon

2013-7-19 17:07

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

不上附件了。。哈哈

跳转到最佳答案楼层

w2001pf

跳出提示框或者其它方法是什么意思 ？

hwc2ycy

用数据有效性嘛。

股网千王

一定要一行输入很多牌照号码吗？若一个单元格输入一个牌照就好办多了。

chenbo19890323

w2001pf 发表于 2013-7-19 09:52
跳出提示框或者其它方法是什么意思 ？

就是我输入的车牌号在黑名单中有，就跳出提示框或者其他方法显示，此车牌号在黑名单中，或者把这个车牌号高亮也行啊。

chenbo19890323

hwc2ycy 发表于 2013-7-19 10:11
用数据有效性嘛。

数据有效性黏贴数据会失效吧

chenbo19890323

股网千王 发表于 2013-7-19 10:12
一定要一行输入很多牌照号码吗？若一个单元格输入一个牌照就好办多了。

是的 问题的难点就在这里

wayy

blacklist-wayy.rar (14.56 KB, 下载次数: 28)

2013-7-19 10:20 上传

点击文件名下载附件

xdragon

不知道能否达到你的要求。。。
满足数据的复制粘贴，手工录入。暂时没做颜色区别。。

股网千王

xdragon 发表于 2013-7-19 10:28
不知道能否达到你的要求。。。

{:101:}这个真可以{:121:}