How to Find cells with similar interior and font color (compare colors)

How to find cells with similar interior and font color (compare colors)

Requirement:

The user wants to write a VBA (office 2007, 2013) that will let me know which cells (in a large sheet or in a range that the user selects) have similar font and fill color, because they appear empty but are not - and the user needs to know if they have a value or something in them.

The formatting should stay the same so the user can't just pick up all of the values or mess with their already defined colors... the user needs to sift through and find the ones that appear empty 'cause of same or similar font/interior color (to then evaluate if the user needs them or not.. not using vba but my own judgment.

Is there a way to compare colors, and detirmen if the two (fill vs font) are similer or very similer so the user can pull their value out..or at least put them in a list (cell address or something) which know how to do.
Identical colors are easy to figure out, so no problem there...

Solution:

You'll have to define "similar" for yourself, but I would take the colors as hex values and then compare the three pairs of bytes, e,g,.:

Code:

Sub CompareColors()
Dim p As Long, RGB As Variant
  RGB = Array("RED", "BLUE", "GREEN")
  With ActiveCell
    For p = 1 To 6 Step 2
      Debug.Print RGB(p \ 2), Abs(Val("&H" & Mid$(Right$("000000" & Hex(.Interior.Color), 6), p, 2)) - Val("&H" & Mid$(Right$("000000" & Hex(.Font.Color), 6), p, 2)))
    Next
  End With
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by JonathanVH.