excel vb如何实现若干工作表的取消自动筛选

显示全部楼层 · 2009-1-5 09:34:30

在一个excel表中，若干工作表都已经自动筛选过。如何利用vb编程实现取消这些工作表的自动筛选（若没有自动筛选过则跳到下一张工作表，直到最后一张工作表为止）？请写下源代码并解释其含义

千问 · 2009-1-5 09:34:30

Sub CancelAutoFilter()
For Each ASheet In ActiveWorkbook.Worksheets
'循环工作簿里的每一个工作表
ASheet.AutoFilterMode = False
'取消工作表的自动筛选状态
NextEnd Sub...

千问 · 2009-1-5 09:34:30

Sub 取消自动筛选()For Each s In Application.Worksheets '遍历工作表
s.AutoFilterMode = False '取消自动筛选NextEnd Sub...