[已解决]取消筛选

huweifvba

帮我改下以下代码  红色部分，我是想当这张表的第一行如果是筛选状态时，把这个筛选取消
rows("1:1").select
if activesheet.autofiltermode = true then
cancel.autofilter
end if

最佳答案

月排行榜 / 总排行榜

skyline_zwl

2012-1-6 09:59

最后一句改一下，就行了。

Rows("1:1").Select
If ActiveSheet.AutoFilterMode = True Then
ActiveSheet.AutoFilterMode = False
End If

试试

跳转到最佳答案楼层

windimi007

这样吗？

1.     Rows("1:1").Select
   
2.     If ActiveSheet.AutoFilterMode = True Then
   
3.         Selection.AutoFilter
   
4.     End If

复制代码

windimi007

可以再简化一下代码：{:3912:}

1. Sub aa()
   
2.     If ActiveSheet.AutoFilterMode = True Then
   
3.         Rows(1).AutoFilter
   
4.     End If
   
5. End Sub

复制代码

skyline_zwl

最后一句改一下，就行了。

Rows("1:1").Select
If ActiveSheet.AutoFilterMode = True Then
ActiveSheet.AutoFilterMode = False
End If

试试

huweifvba

windimi007 发表于 2012-1-6 09:50
这样吗？

老师，不是这样，反了，我要执行一个宏时要确认一张表是不是在筛选取的状态，如果不是就可以执行，如果是就要先取消筛后再执行

huweifvba

skyline_zwl 发表于 2012-1-6 09:59
最后一句改一下，就行了。

Rows("1:1").Select

嗯，这个可以。谢谢

Select

个人觉得，4楼方法比3楼好

wenchduan

好好向高手学习下！

huweifvba

huweifvba 发表于 2012-1-6 10:43
老师，不是这样，反了，我要执行一个宏时要确认一张表是不是在筛选取的状态，如果不是就可以执行，如果是 ...

教师，可以是可以的，我测试过