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

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

PR

前提

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

実行前
実行前
PR

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)」を指定します。

赤は「RGB(255, 0, 0)」
赤は「RGB(255, 0, 0)」

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

PR

実行結果

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

「文字色が赤」で絞り込めた
「文字色が赤」で絞り込めた