如何判断Excel筛选器是否开启(即使没有筛选任何内容)

dark_knight · 发表于 2023-1-3 21:16

如题.

网上可以搜到的答案主要是用ActiveSheet.AutoFilterMode, 或者一些"笨办法"逐行检查, 不过它们都只能在真的筛选了内容的情况下才有用, 如果只是打开了筛选器, 但并没有筛选任何内容时, 这些方法都会返回false

汉唐 · 发表于 2023-1-3 21:53

不管打开不打开筛选器，直接用 sheets(x).AutoFilterMode=False取消筛选即可

creast · 发表于 2023-1-3 21:54

如果存在筛选器,可用如下方式:
with thisworkbook.sheets("AA") '假设当前工作薄,工作表"AA"
if .filtermode then .showalldata '如果存在筛选器,那就显示所有行
end with

taller · 发表于 2023-1-4 00:18

判断Excel筛选器是否开启 - 判断这个肯定不是最终目的，之后楼主要实现什么功能呢

taller · 发表于 2023-1-4 00:24

提示: 该帖被管理员或版主屏蔽

dark_knight · 发表于 2023-1-9 13:12

汉唐发表于 2023-1-3 21:53
不管打开不打开筛选器，直接用 sheets(x).AutoFilterMode=False取消筛选即可

我试过, 这个代码时灵时不灵的..有时完全没反应, 有时会变成开关(没筛选时会打开筛选器)

dark_knight · 发表于 2023-1-9 13:14

taller 发表于 2023-1-4 00:18
判断Excel筛选器是否开启 - 判断这个肯定不是最终目的，之后楼主要实现什么功能呢

感谢大家回复. 我是想在程序结尾自动添加个筛选, 但如果本来就有筛选器的话, 这样反倒会取消筛选器...

dark_knight · 发表于 2023-1-9 13:22

creast 发表于 2023-1-3 21:54
如果存在筛选器,可用如下方式:
with thisworkbook.sheets("AA") '假设当前工作薄,工作表"AA"
if .f ...

谢谢, 这个思路很有帮助

taller · 发表于 2023-1-9 14:15

		自动登录	找回密码
密码			免费注册

taller taller 当前离线性别保密 UID 20291 阅读权限 100 注册时间 2003-7-10 在线时间小时最后登录 1970-1-1 积分 20207 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2023-1-4 00:24 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 该帖被管理员或版主屏蔽

	回复举报

[求助] 如何判断Excel筛选器是否开启(即使没有筛选任何内容)