色を指定してデータを絞り込む【AutoFilterメソッド】【ExcelVBA】

セルの背景色で絞り込む

セルの背景色でデータを絞り込むときはAutoFilterメソッドの引数Criteria1に色を指定し、
引数OperatorにxlFilterCellColorと記述します。
※OperatorにxlFilterNoFillを指定すると、塗りつぶされていないデータを絞り込みます。

使い方
セル範囲.AutoFilter Field:=列番号, Criteria1:=色, Operator:=xlFilterCellColor
セル範囲.AutoFilter Field:=列番号, Operator:=xlFilterNoFill

文字色で絞り込む

文字色で絞り込みたい場合は引数OperatorにxlFilterFontColorを記述します。
※OperatorにxlFilterAutomaticFontColorを指定すると、文字色が自動のデータを絞り込みます。

使い方
セル範囲.AutoFilter Field:=列番号, Criteria1:=色, Operator:=xlFilterFontColor
セル範囲.AutoFilter Field:=列番号, Operator:=xlFilterAutomaticFontColor

サンプルコード

セルの背景で絞り込む場合

Public Sub Sample()
  'A1セルを基準に、3列目データの背景が赤色のデータを絞り込む
  Range("A1").AutoFilter Field:=3, Criteria1:=RGB(255, 0, 0), Operator:=xlFilterCellColor
  '塗りつぶしのされていないセルを絞り込む
  Range("A1").AutoFilter Field:=3, Operator:=xlFilterNoFill  
End Sub

文字色で絞り込む場合

Public Sub Sample2()
  'A1セルを基準に、3列目データの文字色が赤色のデータを絞り込む
  Range("A1").AutoFilter Field:=3, Criteria1:=RGB(255, 0, 0), Operator:=xlFilterFontColor
　'文字色が自動のデータを絞り込む
  Range("A1").AutoFilter Field:=3, Operator:=xlFilterAutomaticFontColor
End Sub

注意点

• 色はRGBで指定してください。※色一覧はコチラ

関連記事

• オートフィルタを使用する【AutoFilterメソッド】
• データ範囲から上位の値を絞り込む【AutoFilterメソッド】
• 【VBA一覧】ColorIndex(文字色/背景色/見出し色)