![](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_fontcolor_001.png)
VBAコード
ここでは例として、
・オートフィルタの設定と表の3列目「住所」を
・「文字色が赤」で絞り込み
をします。
Sub sample()
'オートフィルタの設定と表の3列目「住所」を文字色「赤」で絞り込み
Worksheets("sample").Range("B2").AutoFilter field:=3, _
Criteria1:=RGB(255, 0, 0), _
Operator:=xlFilterFontColor
End Sub
![赤は「RGB(255, 0, 0)」](https://excel-vba.work/wp-content/uploads/2021/02/vba_autofilter_fontcolor_002.png)
実行結果
オートフィルタを設定し、文字色で絞り込むことが出来ました。
![「文字色が赤」で絞り込めた](https://excel-vba.work/wp-content/uploads/2021/02/vba_autofilter_fontcolor_003.png)