【VBA】フィルターで複数色で絞りたい

Question

前提・実現したいこと

複数の色で絞りたいがうまく行きません

下記コードで実行するも
RGB(150, 150, 150)の色でしか絞られません。
RGB(204, 255, 255)の色がないわけではないので
複数条件の組み方が間違えているのかと思います。

自分なりに方法を探してみましたがわからず
こちらのサイトに行き着きました。

初歩的な質問になりますが、ご教授下さいませ。

該当のソースコード

    ActiveSheet.Range("$A$1:$K$1413").AutoFilter Field:=10,  _
    Criteria1:=RGB(150, 150, 150), _
    Operator:=xlFilterCellColor, _
    Operator:=xlAnd, _
    Criteria2:=RGB(204, 255, 255), _
    Operator:=xlFilterCellColor

試したこと

Operator:=xlAnd,
ANDをORなどで試したができませんでした。

Answer 1

出典：ExcelVBAのフィルタによる文字と背景色の複数条件検索

こんなことできるようです。

Sub filter()
Dim Val As String
Dim col_num, i As Integer
Dim Arr() As String: ReDim Arr(0) '空の配列を作成
col_num = 1 '対象列　col_num

For i = 2 To Cells(2, col_num).End(xlDown).Row '表の最下行までループ
    If Cells(i, col_num).Interior.Color = RGB(150, 150, 150) Or _
       Cells(i, col_num).Interior.Color = RGB(204, 255, 255) Then
    '「背景色が一致」した場合の処理
        ReDim Preserve Arr(UBound(Arr) + 1) '配列を一つ増やす
        Arr(UBound(Arr)) = Cells(i, 1) '条件に合致する行の一列目の内容を配列に追加
    End If
Next i
Range("A1").AutoFilter Field:=1, Criteria1:=Arr, Operator:=xlFilterValues
    '配列Arrに含まれる行のみをフィルター
End Sub
End Sub

Comments

[TanakaHiroaki]

配列に入れるとは、凄いアイデアですね。
一列目のデータがユニークであることが必要条件のようです。

[abiek]

sinzouさん
回答ありがとうございます。
出来ました。

今回は、色以外でフラグを立てる方法で解決しましたが
次回活用させて頂きます。
勉強になりました。

また機会があれば、よろしくお願いします。

Answer 2

エクセルの色フィルターを試しマクロ記録してみたところ水色ですか？
単独ですがフィルターが効きましたね。やはり何か組み合わせの問題でしょうか。。
もう少し検証してみます。

    ActiveSheet.Range("$A$1:$A$5").AutoFilter Field:=1, Criteria1:=RGB(204, 255 _
        , 255), Operator:=xlFilterCellColor

Comments

[abiek]

回答ありがとうございます。
RGB(204, 255 , 255)は水色です。

お手数をお掛けしますがよろしくお願いします。

[退会済みユーザー]

Excel2016ですが、手作業による色フィルターは1つしか指定できないようです。
仕様なのでしょうか・・。
マクロで複数例を記録してみるとか無理でした。

[abiek]

やはり手作業で無理なものはマクロでも無理なのでしょうかね、、、
色以外で絞れるように工夫してみます。

[退会済みユーザー]

下記の記事をみつけました。

注意点：色フィルターは複数色での指定ができない

https://tipstour.net/office/excel/10092#i-2

色以外で抽出するかしたほうがよいと思われます。

[abiek]

ありがとうございます。
色以外で抽出しなんとか上手く行きました。

また機会があれば、よろしくお願いします。