【VBA】オートフィルタを設定し、文字色で絞り込む

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

前提
VBAコード
実行結果

前提

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

VBAコード

ここでは例として、
　・オートフィルタの設定と表の3列目「住所」を
　・「文字色が赤」で絞り込み
をします。

Sub sample()
    'オートフィルタの設定と表の3列目「住所」を文字色「赤」で絞り込み
    Worksheets("sample").Range("B2").AutoFilter field:=3, _
                                                Criteria1:=RGB(255, 0, 0), _
                                                Operator:=xlFilterFontColor
End Sub

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

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

文字色で絞り込みをする際は、「AutoFilter」の引数「Operator」に「xlFilterFontColor」を指定します。

実行結果

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