AdvancedFilter如何精确筛选？

sj15627581616

lktqj 发表于 2024-2-6 22:27
手动输入可以显示出来，那表中还是用的VBA代码吧

实在搞不懂你，手动就文本筛选，选择等于那个选项再输入筛选内容，VBA还是算了吧，你都没明白自己具体作业需求

lktqj

sj15627581616 发表于 2024-2-6 22:31
实在搞不懂你，手动就文本筛选，选择等于那个选项再输入筛选内容，VBA还是算了吧，你都没明白自己具体 ...

不好意思，能否麻烦你再看看，你在查询条件那里，姓名栏输入“张三”，下方会复制出所有名字中含有张三的人，我的意思是在输入张三后，下方只复制出张三这一个人的名字，因为在“总成绩”表中只有“张三”一个。
需要如何修改里面的代码呢？不知我这样说清楚没有

里面的代码

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Application.CountA(Sheet1.Range("A4:z4")) = 0 Then Sheet1.Range("A8:z50000").Delete: Exit Sub
Sheet1.Range("A8:z50000").Delete
Sheet2.Range("A2:z50000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("A3:z4"), CopyToRange:=Range("A7:z7")
End Sub

lktqj

sj15627581616 发表于 2024-2-6 22:31
实在搞不懂你，手动就文本筛选，选择等于那个选项再输入筛选内容，VBA还是算了吧，你都没明白自己具体 ...

不好意思，麻烦你在那个表中查询的姓名栏里面输入“张三”，你会看到下方会把名字里面含有张三的所有人都显示出来，我想要的是只显示“张三”，不要其他的。不知这样说清楚没有
代码如下
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Application.CountA(Sheet1.Range("A4:z4")) = 0 Then Sheet1.Range("A8:z50000").Delete: Exit Sub
Sheet1.Range("A8:z50000").Delete
Sheet2.Range("A2:z50000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("A3:z4"), CopyToRange:=Range("A7:z7")
End Sub

lktqj

sj15627581616 发表于 2024-2-6 22:31
实在搞不懂你，手动就文本筛选，选择等于那个选项再输入筛选内容，VBA还是算了吧，你都没明白自己具体 ...

不好意思，麻烦你再看看那个表中，在查询条件的姓名那里输入“张三”后，下方会把姓名里面含“张三”的都显示出来，但是我想只显示“张三”，因为在总成绩里面只有一个“张三”。不知这样说清楚没有
我的代码如下
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Application.CountA(Sheet1.Range("A4:z4")) = 0 Then Sheet1.Range("A8:z50000").Delete: Exit Sub
Sheet1.Range("A8:z50000").Delete
Sheet2.Range("A2:z50000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("A3:z4"), CopyToRange:=Range("A7:z7")
End Sub

lktqj

sj15627581616 发表于 2024-2-6 22:31
实在搞不懂你，手动就文本筛选，选择等于那个选项再输入筛选内容，VBA还是算了吧，你都没明白自己具体 ...

不好意思，麻烦你再看看那个表中，在查询条件的姓名那里输入“张三”后，下方会把姓名里面含“张三”的都显示出来，但是我想只显示“张三”，因为在总成绩里面只有一个“张三”。不知这样说清楚没有

sj15627581616

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.CountLarge > 1 Then Exit Sub
   
3.     If Target.Address(0, 0) = "A4" Then
   
4.         Range("a7").CurrentRegion.ClearContents
   
5.         Sheets("总成绩").Range("$A$2").CurrentRegion.AutoFilter Field:=1, Criteria1:=Target
   
6.         Sheets("总成绩").Range("$A$2").CurrentRegion.Copy Range("A7")
   
7.     End If
   
8. End Sub
   

复制代码

参考代码，该代码我隐藏了成绩表第一行，你可以通过补充代码对第一行进行隐藏作业已经取消隐藏作业

lktqj

sj15627581616 发表于 2024-2-7 00:08
参考代码，该代码我隐藏了成绩表第一行，你可以通过补充代码对第一行进行隐藏作业已经取消隐藏作业

太感谢了，这么晚还帮忙解答，就是这个效果，VBA中高级筛查不能区分这类含有相同的部分。
看来我还要多学习下，再次感谢

lktqj

sj15627581616 发表于 2024-2-7 00:08
参考代码，该代码我隐藏了成绩表第一行，你可以通过补充代码对第一行进行隐藏作业已经取消隐藏作业

你好，再问下，这样修改后是可以根据名字查询，但是破坏了原来查询条件中的其他地方，比如说输入班级就不能查询了。
不好意思打扰了，新年快乐

ykcbf1100

lktqj 发表于 2024-2-7 10:50
你好，再问下，这样修改后是可以根据名字查询，但是破坏了原来查询条件中的其他地方，比如说输入班级就不 ...

VBA中，高级筛选的结果默认是模糊查询的结果，就是你遇到的情况。要得到精确查询结果，也是有办法的，就是姓名处你不能只输入”张三“，要这样输才行：=”=张三“，这样就是你要的结果了。其它字段也是一样的。

lktqj

ykcbf1100 发表于 2024-2-7 11:37
VBA中，高级筛选的结果默认是模糊查询的结果，就是你遇到的情况。要得到精确查询结果，也是有办法的，就 ...

谢谢，来的晚了，抱歉