excel 输入关键字就可以自动返回所有包含关键字的记录，增加超链接和行号

shaokui123

模糊查询.rar (10.49 KB, 下载次数: 43)

2018-3-20 11:35 上传

点击文件名下载附件

大家好，A列为待查询数据，C2是查询条件输入，D列显示包含查询关键字的所有数据。这个功能已经实现了。
因为实际数据很多，所以现在想在E列增加查询到的数据的行号，并且D列查询到的数据加上超链接。这样一点击就直接能对原数据进行编辑了。
谢谢大家

Chip_Kenny

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim rng As Range
   
3. Application.EnableEvents = False '禁用事件（由于这是单元格变化即可触发事件，我们还要对单元格进行录入数据）
   
4. If Target.Address = "$C$2" Then '限定触发事件的单元格为C2单元格（target表示触发事件的单元格）
   
5.     Range("d2:d100").ClearContents '清除上一次的查询结果
   
6.     For Each rng In Range("a2:a58") '套路，遍历区域
   
7.          If rng.Value Like "*" & Target.Value & "*" Then 'like关键字匹配包含条件的数据  *表示任意长度字符
   
8.             i = Cells(Rows.Count, 4).End(xlUp).Row + 1 '获取D列最后一个非空单元格行号
   
9.             Cells(i, 4) = rng.Value '记录查询结果
   
10.             ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 4), Address:="", SubAddress:=rng.Address
    
11.         End If
    
12.       Next
    
13.    End If
    
14. Application.EnableEvents = True '启用事件
    
15. End Sub

复制代码

shaokui123

Chip_Kenny 发表于 2018-3-20 12:11

非常感谢高手，完美实现了一大步，能不能在E列把行号显示出来啊另外D列的查找结果是区分大小写的，能不能修改一下不区分大小写呢

jacky0202

插入代码：放在2楼代码的第10行
Cells(i,5) = rng.row '记录行号

shaokui123

jacky0202 发表于 2018-3-20 13:54
插入代码：放在2楼代码的第10行
Cells(i,5) = rng.row '记录行号

非常感谢，还有个问题，D列显示的查询结果是分大小写的，能不能修改一下可以大小写不区分的呢

jacky0202

你是说查询的时候不区分吗？还是结果全部大写或者小写？
如果是查询的时候，可以这样
If rng.Value Like "*" & Target.Value & "*" Then 'like关键字匹配包含条件的数据  *表示任意长度字符改成
If ucase（rng.Value ）Like "*" & ucase(Target.Value) & "*" Then 'like关键字匹配包含条件的数据  *表示任意长度字符

shaokui123

jacky0202 发表于 2018-3-20 16:08
你是说查询的时候不区分吗？还是结果全部大写或者小写？
如果是查询的时候，可以这样
If rng.Value Like  ...

查询的时候不区分，谢谢帮忙，非常感谢，代码改了，好用

aromapupu

学习了