Vb如何判断表首行是否有筛选状态，有自动取消！

二年级班长 · 发表于 2017-5-19 08:20

Vb如何判断一个表首行是否有筛选状态，有筛选状态进行自动取消！

lss001 · 发表于 2017-5-19 13:27

本帖最后由 lss001 于 2017-5-19 16:05 编辑

Sub sxpd()
If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
End Sub

二年级班长 · 发表于 2017-5-19 21:55

lss001 发表于 2017-5-19 13:27
Sub sxpd()
If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
End Sub

您好，您给的代码不管用，不知道怎么回事

lss001 · 发表于 2017-5-19 23:59

本帖最后由 lss001 于 2017-5-20 00:03 编辑

二年级班长发表于 2017-5-19 21:55
您好，您给的代码不管用，不知道怎么回事

是要取消筛选还是要取消筛选状态
上楼是取消筛选状态
下面是取消筛选
Sub sxpd()
If ActiveSheet.FilterMode = True Then ActiveSheet.FilterMode= False
End Sub

二年级班长 · 发表于 2017-5-20 11:14

取消筛选状态，我表达的不够准确，感谢您的帮忙，就是我把您给的代码放在表中运行，没有反应，还是有筛选状态，不知咋回事，晚上我下班上传个附件说明吧！现在手机不能弄表！再次感谢！

lss001 · 发表于 2017-6-17 22:56

本帖最后由 lss001 于 2017-7-2 13:48 编辑

Sub sxpd()
If ActiveSheet.Filter.Filters(1).On Then ActiveSheet.ShowAllData
End Sub
以上判断第1列是否筛选了数据，如果筛选了数据，则取消其筛选状态，其中Filters(1)中的1可改为你要的列！！！

急速之隼 · 发表于 2020-3-23 11:58

lss001 发表于 2017-5-19 23:59
是要取消筛选还是要取消筛选状态
上楼是取消筛选状态
下面是取消筛选

您好，请问取消筛选和取消筛选状态有什么区别？我弄的东西用取消筛选就没用，用取消筛选状态就可以。谢谢，打扰了。

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

Vb如何判断表首行是否有筛选状态，有自动取消！

评分