返回列表 上一主題 發帖

篩選問題

回復 1# spermbank
  1. Sub Ex()
  2.     With ActiveSheet
  3.         If Not .AutoFilter Is Nothing Or .FilterMode Then  'FilterMode=True ->篩選模式
  4.             .ShowAllData
  5.            ' .Cells.AutoFilter   '取消篩選
  6.         End If
  7.     End With
  8. End Sub
複製代碼

TOP

        靜思自在 : 君子為目標,小人為目的。
返回列表 上一主題