返回列表 上一主題 發帖

篩選問題

回復 1# spermbank
  1. Sub nn()
  2. Dim A As Filter
  3. With Sheet1
  4.    For Each A In .AutoFilter.Filters
  5.       If A.On Then .ShowAllData
  6.    Next
  7. End With
  8. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 【是否發揮了良能?】人間壽命因為短暫,才更顯得珍貴。難得來一趟人間,應問是否為人間發揮了自己的良能,而不要一味求長壽。
返回列表 上一主題