[已解决]寻找相同名称提示的VBA

安全网

只要E列有输入地名，就会自动在SHEET2内寻找有没有相同的地名，如果有，就跳出提示框提示。没有就不提示的VBA代码，请求高手帮忙？

最佳答案

月排行榜 / 总排行榜

josonxu

2016-3-26 14:53

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim arr
   
3.     If Target.Column = 5 And Target.Row > 2 Then
   
4.     arr = Sheet2.Range("b3:b" & Sheet2.Range("b9999").End(xlUp).Row)
   
5.         For r = 1 To UBound(arr)
   
6.             If Target.Value = arr(r, 1) Then
   
7.              MsgBox "存在!"
   
8.             End If
   
9.         Next
   
10.     End If
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

安全网

请高手帮忙啊！

josonxu

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim arr
   
3.     If Target.Column = 5 And Target.Row > 2 Then
   
4.     arr = Sheet2.Range("b3:b" & Sheet2.Range("b9999").End(xlUp).Row)
   
5.         For r = 1 To UBound(arr)
   
6.             If Target.Value = arr(r, 1) Then
   
7.              MsgBox "存在!"
   
8.             End If
   
9.         Next
   
10.     End If
    
11. End Sub
    

复制代码

安全网

josonxu 发表于 2016-3-26 14:53

运行没有结果

josonxu

寻找相同名称提示.zip (10.42 KB, 下载次数: 15)

2016-3-26 16:30 上传

点击文件名下载附件 怎么可能  
更具我的截图来做

安全网

josonxu 发表于 2016-3-26 16:30
怎么可能  
更具我的截图来做

能否设置2列单元格的条件或者3列了

josonxu

安全网 发表于 2016-3-26 17:25
能否设置2列单元格的条件或者3列了

完全可以   你可以尝试下

安全网

josonxu 发表于 2016-3-26 21:46
完全可以   你可以尝试下

怎样设置可以将单元格的地名写入提示内面