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

【本日のミッション】

Excel VBAで、指定した色のカラーインデックスを取得し、同じ色のセルを色フィルターで抽出せよ

ミッションの概要

塗りつぶしで指定した色のカラーインデックスを取得し、その色のセルのみを色フィルターで抽出せよ、というのが今回のミッションです。

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

プロシージャ

Sub 背景色フィルター()

    Dim t_cor As Long   'カラー

    t_cor = Range("F1").Interior.Color
    Range("a1").AutoFilter Field:=4, Criteria1:=t_cor, Operator:=xlFilterCellColor

End Sub

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

セルF1に塗ったカラーと同じ色のセルだけが、抽出されました。

セルの背景色を取得する Interior.Color プロパティ

セルの背景色は、Interior.Color プロパティで取得することができます。

Range.Interior.Color

複数セルの背景色は取得不可

Interior.Color では、複数セルの背景色を取得することはできません。
複数セルの背景色を取得しようとすると「0」が返ってきます。

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

AutoFilterメソッド

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

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

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

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