作者:Matzoh | 来源:互联网 | 2023-05-25 15:54
我需要在运行某个宏之前清除工作表中的所有活动过滤器,如果有活动过滤器,此行可以正常工作
If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData
但是,如果未选择过滤器,则返回错误
Runtime error '1004';
ShowAllData method of Worksheet class failed
我从这个问题的答案得到了这个代码
Excel 2013 VBA清除所有过滤器宏
但是,如果没有过滤器处于活动状态,则该问题不能解释如何忽略该行.
如果没有应用当前有效的过滤器,如何忽略此行?
编辑
例如,所有列标题都已自动过滤,因此如果我的工作表被"女性"过滤,例如我需要在运行宏之前删除该过滤器,但是如果没有应用过滤器,则只需正常运行宏
1> Paul Kelly..:
使用FilterMode而不是AutoFilterMode.我经常处理过滤器,这段代码工作正常.
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
确保工作表不受保护,因为这也会产生1004错误.
2> 小智..:
我真诚地钦佩你为特定环境制定计划的愿望,但我必须承认,实现这一目标的最快捷方式是On Error Resume Next
.
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
您不应该破坏某些东西来检查它是否存在,但在VBA中偶尔是最好的追索权.就个人而言,我作为编程方法排On Error Resume Next
在那里SendKeys
.
上述方法不要求您检查是否.AutoFilterMode
为True.