[已解决]修改代码——关于筛选的精确/模糊查找

文轩馨婷

大灰狼1976 发表于 2014-6-27 21:47
录制这个宏的原因是，比较惭愧，很多简单的功能因为实在太简单了，反而我不会去记代码，
用的时候录制个宏 ...

老师
今天想重新设个自动筛选——就您所设代码有几个地方没搞清楚，求解释

Range("a5:h" & [a65536].End(3).Row + 1).Clear 这句是什么意思？

UsedRange.AutoFilter Field:=j  这句是什么意思？

大灰狼1976

Range("a5:h" & [a65536].End(3).Row + 1).Clear  '将A5至H列有数据的最末行清空
UsedRange.AutoFilter Field:=j   'j为变量，对j列进行自动筛选，还有后半句是筛选条件

文轩馨婷

大灰狼1976 发表于 2014-6-30 13:41
Range("a5:h" & [a65536].End(3).Row + 1).Clear  '将A5至H列有数据的最末行清空
UsedRange.AutoFilter Fi ...

............
那老师还得麻烦您帮忙看看我附件为什么用工号就筛选不出来？——是哪句代码错啦？

大灰狼1976

改成文本格式就行了，附件请测试

文轩馨婷

大灰狼1976 发表于 2014-6-30 16:43
改成文本格式就行了，附件请测试

.................

打开后没VB？

大灰狼1976

在我这边是好的，要不你直接用原来的，然后把我修改过的“考勤”工作表的A列工号复制到原来的表里面。
代码本身我没有作修改。

zhengyixin

大灰狼1976 发表于 2014-6-27 21:47
录制这个宏的原因是，比较惭愧，很多简单的功能因为实在太简单了，反而我不会去记代码，
用的时候录制个宏 ...

你好，请问这几句是什么意思？

• Next j
•   .Range("a2:h" & .[a65536].End(3).Row).Copy [a5]
•   .UsedRange.AutoFilter
  

大灰狼1976

zhengyixin 发表于 2017-7-26 17:09
你好，请问这几句是什么意思？

Next j

大哥，你竟然把2014年的贴子翻了出来啊。

• Next j    '循环体不解释
•   .Range("a2:h" & .[a65536].End(3).Row).Copy [a5]    '将某个工作表的A2:H最下面有数据的行复制到本工作表的A5为首的单元格
•   .UsedRange.AutoFilter   '数据区域设置自动筛选
  

zhengyixin

大灰狼1976 发表于 2017-7-26 17:16
大哥，你竟然把2014年的贴子翻了出来啊。

Next j    '循环体不解释

我把你写得代码进行了我需要的修改，但在查询的时候会出错，麻烦你帮我看的一下。
我的功能是把所有工作表汇总到“查询筛选”表中，再在“查询筛选”表中进行查询，但查询的时候无法像你给的模板那样子，格式也出错，麻烦大神帮我看一下哈，万分感谢！

大灰狼1976

1. Sub aaa()
   
2. Dim j&, wc, name, rng As Range
   
3. wc = ThisWorkbook.Sheets.Count
   
4. With Sheets(wc)
   
5.   Set rng = .Range("a4:j" & .[b65536].End(3).row)
   
6.   If .Cells(2, 4) <> "" Then rng.AutoFilter Field:=6, Criteria1:=.Cells(2, 4).Value Else rng.AutoFilter Field:=6 '日期
   
7.   If .Cells(2, 5) <> "" Then rng.AutoFilter Field:=9, Criteria1:=.Cells(2, 5).Value Else rng.AutoFilter Field:=9 '是否借阅
   
8.   For j = 2 To 3
   
9.     If .Cells(2, j) <> "" Then rng.AutoFilter Field:=j + 1, Criteria1:="*" & .Cells(2, j) & "*" Else rng.AutoFilter Field:=j + 1
   
10.   Next
    
11. End With
    
12. End Sub

复制代码