返回列表 上一主題 發帖

篩選問題

回復 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

        靜思自在 : 【時間無法遮擋】怕時間消逝,花了許多心血,想盡各式方法要遮擋時間,結果是:浪費了更多時間,且一無所成!
返回列表 上一主題