请求各位高手帮忙

lyslyslys1

见附件 附件3.rar (34.32 KB, 下载次数: 6)

2017-8-14 15:22 上传

点击文件名下载附件

苏子龙

1. Sub test()
   
2. Dim str$
   
3. If Range("D3") <> "" Then str = "[总价]" & Range("D3")
   
4. If Range("H3") <> "" Then str = IIf(Len(str) > 0, str & "and", "") & " [联系人] = " & "'" & Range("H3").Text & "'"
   
5. If Range("e3") <> "" Then str = IIf(Len(str) > 0, str & " and", "") & " [税率] = " & Range("e3").Text
   
6. If Range("g3") <> "" Then str = IIf(Len(str) > 0, str & " and", "") & " [合同类别] =  " & "'" & Range("g3").Text & "'"
   
7. '就这么加进去。。。

复制代码

大概这样加进去

lyslyslys1

苏子龙 发表于 2017-8-14 17:01
大概这样加进去

非常感谢高手的帮助，高水平就是高水平，我还有一个愿望比如“编号“这栏如果我只输入前两个或前7个字符，代码只按我输入的字符筛选那就更好了。

lyslyslys1

按您编写的代码，该语句如何变动If Range("b3") <> "" Then str = IIf(Len(str) > 0, str & " and", "") & " [编号] =  " & "'" & Range("b3").Text & "'"
使我输入”BJ“或”BJ-1702”时就能筛选出由其开头的所有记录。

苏子龙

lyslyslys1 发表于 2017-8-14 20:07
按您编写的代码，该语句如何变动If Range("b3")  "" Then str = IIf(Len(str) > 0, str & " and", "") & "  ...

If Range("D3") <> "" Then str = "[总价]" & Range("D3")
If Range("H3") <> "" Then str = IIf(Len(str) > 0, str & "and", "") & " [联系人] = " & "'" & Range("H3").Text & "'"
If Range("e3") <> "" Then str = IIf(Len(str) > 0, str & " and", "") & " [税率] = " & Range("e3").Text
If Range("g3") <> "" Then str = IIf(Len(str) > 0, str & " and", "") & " [合同类别] =  " & "'" & Range("g3").Text & "'"
If Range("b3") <> "" Then str = IIf(Len(str) > 0, str & " and", "") & " [编号]  like '" & Range("b3").Text & "%'"
'就这么加进去。。。注意like是区分大小写的

lyslyslys1

太感谢了[em17]

lyslyslys1

再麻烦高手：实际工作中每张工作表B列有的单元格有批注，怎样将批注也一同筛选到“高级筛选”表中呢？

lyslyslys1

发错楼层了！不好意思再麻烦高手：实际工作中每张工作表B列有的单元格有批注，怎样将批注也一同筛选到“高级筛选”表中呢？