エクセル 入力した文字色のカラーインデックスを取得し、同色文字のセルを色フィルターで抽出する（Excel VBA)

【本日のミッション】

Excel VBAで、入力した文字色のカラーインデックスを取得し、同色文字のセルを色フィルターで抽出せよ。

ミッションの概要

入力した文字色のカラーインデックスを取得し、同色文字のセルを色フィルターで抽出せよ、というのが今回のミッションです。

↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

プロシージャ

Sub 文字色フィルター()

    Dim t_cor As Long   'カラー
    
    t_cor = Range("F1").Font.Color
    Range("a1").AutoFilter Field:=4, Criteria1:=t_cor, Operator:=xlFilterFontColor

End Sub

データ抽出を行いたいセルをアクティブにした状態で、プロシージャ（Sub～End Subまで）のどこかにカーソルを置いてF5キーをクリックしてください。

セルF1の文字色と同じ色のセルだけが、抽出されました。

文字色を取得する Font.Colorプロパティ

文字色は、Font.Colorプロパティで取得することができます。

Range.Font.Color

複数セルの文字色は取得不可

Font.Colorプロパティでは、複数セルの文字色を取得することはできません。
「実行時エラー’94’; Nullの使い方が不正です」というエラーになってしまいます。

t_cor = Range("A1:B1").Font.Color
MsgBox "あなたが指定した文字色のカラーインデックスは「" & t_cor & "」です"

AutoFilterメソッド

Range.AutoFilter(Field, Criteria1, Operator, Criteria2, VisibleDropDown)

今回は引数Operatorに「xlFilterFontColor」を指定しています。

Range("a1").AutoFilter Field:=4, Criteria1:=t_cor, Operator:=xlFilterFontColor

手作業で行う時の、↓これのことですね。