![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
VBAから
・オートフィルタの設定
・セルの背景色で絞り込み
をする方法を記載します!
前提
シート「sample」の以下の表に対して、
・オートフィルタの設定
・セルの背景色で絞り込み
をします。
![実行前](https://excel-vba.work/wp-content/uploads/2021/02/vba_autofilter_xlfiltercellcolor_001.png)
VBAコード
ここでは例として、
・オートフィルタの設定と表の3列目「所属部署」を
・「セルの背景色が黄色」で絞り込み
をします。
Sub sample()
'オートフィルタの設定と表の3列目「所属部署」をセルの背景色「黄色」で絞り込み
Worksheets("sample").Range("B2").AutoFilter field:=3, _
Criteria1:=RGB(255, 255, 0), _
Operator:=xlFilterCellColor
End Sub
![黄色は「RGB(255, 255, 0)」](https://excel-vba.work/wp-content/uploads/2021/02/vba_autofilter_xlfiltercellcolor_003.png)
実行結果
オートフィルタを設定し、セルの背景色で絞り込むことが出来ました。
![「セルの背景色が黄色」で絞り込めた](https://excel-vba.work/wp-content/uploads/2021/02/vba_autofilter_xlfiltercellcolor_004.png)