检索代码优化

YZC51

大灰狼1976 发表于 2019-5-30 20:46
M列输入公司名称的一部分，如果是唯一的话就没问题，如果不是唯一怎么处理？比如输入“集团”？

优化下，请指教！
世界500强查询.zip (34.43 KB, 下载次数: 5)

2019-5-30 21:34 上传

点击文件名下载附件

大灰狼1976

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Count > 1 Then Exit Sub
   
3.     If Target = "" Then Exit Sub
   
4.     If Target.Row < 4 Then Exit Sub
   
5.     Dim rng As Range, n&
   
6.     n = Target.Column
   
7.     If n <> 12 And n <> 13 Then Exit Sub
   
8.     Set rng = Sheets("DATA").Columns(n - 11).Find(Target, lookat:=n - 11)
   
9.     Application.EnableEvents = False
   
10.     If Not rng Is Nothing Then
    
11.       Cells(Target.Row, 12).Resize(, 2) = Sheets("DATA").Cells(rng.Row, 1).Resize(, 2).Value
    
12.     Else
    
13.       Cells(Target.Row, 12).Resize(, 2) = Array(0, "Input Error!")
    
14.     End If
    
15.     Application.EnableEvents = True
    
16. End Sub

复制代码

YZC51

大灰狼1976 发表于 2019-5-30 21:58

思路很巧妙！！！

YZC51

谢谢老师！学习下。
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target = "" Then Exit Sub
    If Target.Row < 4 Then Exit Sub
    Dim rng As Range, n&
    n = Target.Column
    If n <> 12 And n <> 13 Then Exit Sub
    Set rng = Sheets("DATA").Columns(n - 11).Find(Target, lookat:=n - 11)
    If rng Is Nothing Then Cells(Target.Row, 12) = 0: Exit Sub
    Cells(Target.Row, 12).Resize(, 2) = Sheets("DATA").Cells(rng.Row, 1).Resize(, 2).Value
End Sub

muyuangan

大灰狼1976 发表于 2019-5-30 21:58

麻烦问一下大神，lookat:=n - 11  是啥意思啊、

大灰狼1976

muyuangan 发表于 2019-6-17 17:07
麻烦问一下大神，lookat:=n - 11  是啥意思啊、

lookat:=xlwhole --->xlwhole=1
lookat:=xlpart --->xlpart=2
这样好理解了吧。

muyuangan

大灰狼1976 发表于 2019-6-19 14:43
lookat:=xlwhole --->xlwhole=1
lookat:=xlpart --->xlpart=2
这样好理解了吧。

谢谢！懂了