【VBA】オートフィルタを設定し、セルの背景色で絞り込む

VBAから
　・オートフィルタの設定
　・セルの背景色で絞り込み
をする方法を記載します！

前提
VBAコード
実行結果

前提

シート「sample」の以下の表に対して、
　・オートフィルタの設定
　・セルの背景色で絞り込み
をします。

VBAコード

ここでは例として、
　・オートフィルタの設定と表の3列目「所属部署」を
　・「セルの背景色が黄色」で絞り込み
をします。

Sub sample()
    'オートフィルタの設定と表の3列目「所属部署」をセルの背景色「黄色」で絞り込み
    Worksheets("sample").Range("B2").AutoFilter field:=3, _
                                                Criteria1:=RGB(255, 255, 0), _
                                                Operator:=xlFilterCellColor
End Sub

表の3列目を絞り込むため、「AutoFilter」の引数「field」に「3」を指定します。

「セルの背景色が黄色」で絞り込みをするために、「AutoFilter」の引数「Criteria1」に「RGB(255, 255, 0)」を指定します。

セルの背景色で絞り込みをする際は、「AutoFilter」の引数「Operator」に「xlFilterCellColor」を指定します。

実行結果

オートフィルタを設定し、セルの背景色で絞り込むことが出来ました。