vba到自动过滤器，使用“ <>”作为过滤字体的条件

Question

This is snippet of my code:

Dim col As Integer
col = InputBox("Please enter column number to search", "Need Input", 0)
ActiveSheet.AutoFilterMode = False

With ActiveSheet
Set rnData = .UsedRange
    With rnData
        .AutoFilter Field:=col, Criteria1:="<>RGB(0, 0, 255)", Operator:=xlFilterFontColor      
    End With
End With

This throws an error but works when I remove <> and "" to select blue font but I want non blue font. Questions: The col that I want to filter has some sentences in which few words have different font Colors(red,blue,green...) or all just black 1) I want to filter on non blue color. 2) Filter on only black fontcolor with no words being of different color.how do I achieve that? 3) Is there a way to give the colummn as alphabets instead of column number- basically does the field accept alphabets instead of numbers to indicate column.

When i used @jeeped code for an eg

after running the code then it gives this

which is what I am not clear why it is not able find non blue.

Answer 1

In the past, I've used a method of collecting all non-conforming (ie non-blue ) values from the filter field into an array and then filtering on the array. Your problem seemed similar so I adapted the procedure for the filter field's font color.

Sub Not_Blue()
    Dim r As Long, iFLD  As Long
    Dim dNOTBLUs As Object    'New Scripting.Dictionary

    Set dNOTBLUs = CreateObject("Scripting.Dictionary")
    dNOTBLUs.CompareMode = vbTextCompare

    With ActiveSheet.Cells(1, 1).CurrentRegion
        If .Parent.AutoFilterMode Then .Parent.AutoFilterMode = False

        iFLD = 3   ' get your filter column here
        For r = 2 To .Cells(Rows.Count, iFLD).End(xlUp).Row
            '~~> collect unique non-blue values
            If .Cells(r, iFLD).Font.Color <> RGB(0, 0, 255) Then _
                dNOTBLUs.Add Key:=.Cells(r, iFLD).Text, Item:=.Cells(r, iFLD).Value2
        Next r

        .AutoFilter Field:=iFLD, Criteria1:=dNOTBLUs.Keys, Operator:=xlFilterValues

        'column iFLD is filtered for all non-blur fonts
        'do something with the filtered results here

    End With

    dNOTBLUs.RemoveAll: Set dNOTBLUs = Nothing
End Sub

That collects a unique list of all non-blue values into a scripting dictionary. It uses the unique key list as the array to filter on. Essentially, you are abandoning the xlFilterFontColor but achieving the same results.

^Before

^After

---

_{If you can convert the late binding of the Scripting.Dictionary to early binding, you must add Microsoft Scripting Runtime to the VBE's Tools ► References.}