Different color but same color index in Excel VBA

Question

I used the code below to get color index of cell in Excel.

Original Link

Function ConditionalColor(rg As Range, FormatType As String) As Long
  \'Ret         


        

Answer 1

What I think is the very likely cause of the confusion is the conditional formatting. The original ColorIndex or Color of the two to cells is the same. But conditional formatting "overrrides" the original color. Then if you try to get ColorIndex or Color property out of the cell the result is not the one which you see but the original/underlying one.

Btw if all you want to get is ColorIndex of the cell you can use something like this code to test if what I described here is your case.

MsgBox ActiveCell.Interior.ColorIndex

MsgBox ActiveCell.Interior.Color

Or to have it written in the next cell to the right:

ActiveCell.Offset(0, 1).Value = ActiveCell.Interior.ColorIndex

Answer 2

Edit: My previous answer does not solve your problem, but I think it may still be relevant to someone asking the same question.

The problem you are seeing stems from the use of the Colorindex property instead of something more specific like Color.

For a thorough explanation between the two, you can refer to this address: http://msdn.microsoft.com/en-us/library/cc296089(v=office.12).aspx

Essentially, there are only 57 possible color index values, but far more available colors. The color index refers to the index in a given palette. You happened to stumble upon two colors that have the same index. To have your program function as expected, you should update colorindex references to color. Without making the change you will continue to have confusing results.

---

Previous answer: If you are using conditional formatting that infers the cell whose value should be applied, then when the UDF checks to determine if the conditional formatting is true it will usually defer to the current cell.

For instance, if your conditional formatting formula is something like:

=MOD(ROW(),2)=1

Every time the code hits:

frmlaR1C1 = Application.ConvertFormula(frmla, xlA1, xlR1C1, , ActiveCell)
frmlaA1 = Application.ConvertFormula(frmlaR1C1, xlR1C1, xlA1, xlAbsolute, cel)                      
boo = Application.Evaluate(frmlaA1) 

It will evaulate based upon the current active cell instead of the cell for which the conditional formatting is applied.

I did a little experimentation, but depending on how frequently you need to utilize the code I think the best result may be to enhance the formula. This would not solve all the issues, but you could try inserting the following just before the first ConvertFormula call:

frmla = Replace(frmla, "()", "(" & cel.Address & ")")

Which solves it for using Row() or Column().

If this doesn't completely solve your issue, we'll need to see your conditional formatting formulas.