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

大灰狼1976

日期的查询好像比较复杂（以前怎么没有遇到？），目前的代码筛选不出正确的日期，要改成下面这样，原因还在确认中。
If .Cells(2, 4) <> "" Then rng.AutoFilter Field:=6, Operator:=xlFilterValues, Criteria2:=Array(2, [d2] & "") Else rng.AutoFilter Field:=6

zhengyixin

大灰狼1976 发表于 2017-7-27 10:34

大神，可以搜索，但是会出现这样子的情况，怎么解决

大灰狼1976

我的代码已限定在第4行设置自动筛选，理论上不应该出现你截图上的问题。你重新发一份出错的附件看看，
我用刚才的附件测试是正常的。

大灰狼1976

你先把原来的自动筛选取消，再点击按钮就行了。

zhengyixin

大灰狼1976 发表于 2017-7-27 11:23
你先把原来的自动筛选取消，再点击按钮就行了。

原来的自动筛选取消是什么意思？

大灰狼1976

不用看附件了，解决方法很简单：
退出原来的自动筛选模式后就能正常运行了，退出自动筛选模式就是第一行没有小箭头，找到菜单的漏斗状图标点击一下，处于非按下状态就行了。

大灰狼1976

附件给你。

zhengyixin

大灰狼1976 发表于 2017-7-27 11:28
不用看附件了，解决方法很简单：
退出原来的自动筛选模式后就能正常运行了，退出自动筛选模式就是第一行没 ...

万分感谢！好人一生平安！

zhengyixin

大灰狼1976 发表于 2017-7-27 10:34

大神，如果我要在“查询筛选”这张工作表上进行数据的修改然后保存起来如何做到？而且是不是无法反写到具体哪张工作表上？

大灰狼1976

这个比较复杂，要看你是怎么得到汇总数据的，然后查找到源数据位置后再反写。