如何在VBA中判断自动筛选没有处在全部显示状态？

hudi

我的一个工作表中有很多的表，每个表都要用到自动筛选功能，使用完后我希望系统自动全部显示。我将ActiveSheet.ShowAllData放在Activate事件中，但是这个语句只有在自动筛选功能在使用状态下起作用，在表中的数据全部显示的时候出现错误提示： 运行时错误‘1004’ 类worksheet的ShowAllData的方法无效 如何才能不出这样的错误？[em27]

老刀

用FilterMode判断,或用On Error Resume Next逃跑.

hudi

to 老刀 我对VBA不是太熟悉，用FilterMode如何判断？语句如何写？

老刀

应该是这样写: With ActiveSheet If .FilterMode = True Then .ShowAllData end with

hudi

谢谢老刀

jayke

Sub 按钮1_单击()
   Dim myPath$, myFile$, AK As Workbook, aRow%, tRow%, i As Integer
   Application.ScreenUpdating = False        '冻结屏幕，以防屏幕抖动
   Rows("2:65536").Select
    Range("A65536").Activate
    Selection.ClearContents
   myPath = ThisWorkbook.Path & "\分表\"          '把文件路径定义给变量
   
   myFile = Dir(myPath & "*.xls")            '依次找寻指定路径中的*.xls文件
   Do While myFile <> ""                     '当指定路径中有文件时进行循环
      If myFile <> ThisWorkbook.Name Then
         Set AK = Workbooks.Open(myPath & myFile)          '打开符合要求的文件
          For i = 1 To AK.Sheets.Count
         aRow = AK.Sheets(i).Range("a65536").End(xlUp).Row
         tRow = ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Row + 1
         
            'AK.Sheets(i).Select
            AK.Sheets(1).Range("a2:w2" & aRow).Copy ThisWorkbook.Sheets(1).Range("a" & tRow)
          Next
         Workbooks(myFile).Close False               '关闭源工作簿,并不作修改
      End If
      myFile = Dir                                   '找寻下一个*.xls文件
   Loop
      
   Application.ScreenUpdating = True                 '冻结屏幕,此类语句一般成对使用
   MsgBox "汇总完成，请查看！", 64, "提示"


End Sub
在这段代码中插入“如果处于筛选状态，用ShowAllData显示所有记录，若不是处于筛选状态则直接选择全部记录”应怎么写代码

yanjie

i=Sheet2.AutoFilter.Range.Areas.Count
iF i=0 Then
选择全部记录代码
Else
sheet2.showAllData
end iF

nbqmdzlcdint

楼主辛苦了

努力加油学习中