【VBA】Autofilterで指定したセル色以外の行に絞りたい

Question

特定の色特定の色→RGB(19, 19, 19)
以外のセルのみ、フィルターで表示させたいのですが、以下のコードでは「RangeクラスのAutoFilterメソッドが失敗しました」というエラーが出てしまいました。
どこをどう直せば、期待する結果になるのか、ご教示いただけますでしょうか。

※B列から始まる表で、B列のセル色で絞りたいです。
なお、B列のセル色はRGB(19, 19, 19)以外にも何種類かあるため、RGBでこの色を指定し、この色以外に絞って表示させるとしたいです。

WsFrom.Range("B8").AutoFilter Field:=2, Criteria1:="<>RGB(19, 19, 19)", Operator:=xlFilterCellColor 
```VBA

Answer 1

ちょっと強引ですが。

Sub Sample()
    Dim myColor As Long
    myColor = RGB(19, 19, 19)
    With WsFrom.AutoFilter.Range
        .Font.Color = myColor
        .AutoFilter Field:=2, Criteria1:=myColor, Operator:=xlFilterCellColor
        .SpecialCells(xlCellTypeVisible).Font.ColorIndex = xlColorIndexAutomatic
        .AutoFilter Field:=2, Criteria1:=myColor, Operator:=xlFilterFontColor
        .Font.ColorIndex = xlColorIndexAutomatic
    End With
End Sub

Answer 2

AutoFilter メソッドに<>はないので

Criteria1:=Array(RGB(198, 89, 17), RGB(169, 208, 142))

とかにするしかないんじゃないかと。

該当列のセル色をすべて取得→それ以外を配列にして選択、になるかと思います。