VBA取消所有表的筛选过滤，但工作表仍保持在筛选状态。

manfred_wff

各位老师，请帮我看下列VBA代码，哪里有问题，运行不了。

我想实现用VBA取消所有表的筛选过滤，但工作表仍保持在筛选状态。在线等急用，万分感谢~~~！

Sub CancelAutoFilter()
For Each ASheet In ActiveWorkbook.Worksheets '循环工作簿每工作表
  If ASheet.AutoFilterMode = True Then
   ASheet.ShowAllData  '取消工作表筛选过滤显示所有数据
  End If
Next
End Sub

manfred_wff

自己顶一个，希望老师赶紧来。

Yalishanda30

manfred_wff 发表于 2020-2-12 19:00
自己顶一个，希望老师赶紧来。

加一句ASheet.AutoFilterMode = False

manfred_wff

Yalishanda30 发表于 2020-2-12 19:36
加一句ASheet.AutoFilterMode = False

在哪里加，能帮我写完整吗，感谢~~~！

manfred_wff

Yalishanda30 发表于 2020-2-12 19:36
加一句ASheet.AutoFilterMode = False

帮我看看，是这样改吗？谢谢!
Sub ClearAutoFilter()
For Each ASheet In ActiveWorkbook.Worksheets '循环工作簿每工作表
ASheet.AutoFilterMode = False
  If ASheet.AutoFilterMode = True Then
   ASheet.ShowAllData  '取消工作表筛选过滤显示所有数据
  End If
Next
End Sub

Yalishanda30

Sub ClearAutoFilter()
For Each ASheet In ActiveWorkbook.Worksheets '循环工作簿每工作表
  If ASheet.AutoFilterMode = True Then
   ASheet.ShowAllData  '取消工作表筛选过滤显示所有数据
  ASheet.AutoFilterMode = False
  End If
Next
End Sub

manfred_wff

Yalishanda30 发表于 2020-2-13 12:43
Sub ClearAutoFilter()
For Each ASheet In ActiveWorkbook.Worksheets '循环工作簿每工作表
  If ASheet ...

我试了一下，还是会报错呢。运行时错误“1004”