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

xdragon

chenbo19890323 发表于 2013-7-19 15:45
我看了下 我改的和你是一样的诶 为什么就是不行类

实在不好意思，我以为你不会去改黑名单里的内容，而且改了以后再删除。。。这样会改变usedrange，然后把空白单元格也计入了。。。。已经修改了代码了

chenbo19890323

xdragon 发表于 2013-7-19 16:07
实在不好意思，我以为你不会去改黑名单里的内容，而且改了以后再删除。。。这样会改变usedrange，然后把空 ...

现在黑名单似乎只有第一行的可以识别

xdragon

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

不上附件了。。哈哈

chenbo19890323

xdragon 发表于 2013-7-19 17:07
改错了。。。献丑了
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Colum ...

非常感谢 很赞