テーブル(ListObjects)のフィルター設定・解除

 

Sub test1()
  '  テーブル(ListObjects)のフィルター解除

 

  Range("A1").ListObject.ShowAutoFilter = False


End Sub


 

Sub test2()
  '  テーブル(ListObjects)のフィルター設定

 

  Range("A1").ListObject.ShowAutoFilter = True


End Sub

 

Sub test2B()
  '  シートのフィルター設定・解除(一番シンプル)

 

  Range("A1").AutoFilter


End Sub

 

 

実行結果

 

 

テーブル(ListObjects)のフィルター矢印表示・非表示

 

Sub test3()
   テーブル(ListObjects)のフィルター矢印非表示

 

  Range("A1").ListObject.ShowAutoFilterDropDown = False
End Sub

 

Sub test4()
   テーブル(ListObjects)のフィルター矢印表示

 

  Range("A1").ListObject.ShowAutoFilterDropDown = True
End Sub

 

実行結果

 

 

 

 

参考記事

 

 

 

 

 

 

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る