Function to return text color index

[PATSYS]

Hi,

Can somebody show me the code for a UDF that shows the color index number of a cell value in excel?

Thanks

 

[Krishnakumar]

Download and try parry's FORMAT FUNCTIONS

 

[MarkAndrews]

Hi,

Can somebody show me the code for a UDF that shows the color index number of a cell value in excel?

Thanks

ASAP utilities has this built in function - you could find the freeware add in on the internet?

 

[Richard Schollar]

Here's the code:

Function ColorIndex(rCell As Range,Optional FontOrInterior As Integer = 0) As Integer
If FontOrInterior Then
    ColorIndex = rCell.Interior.ColorIndex
Else
    ColorIndex = rCell.Font.ColorIndex
End If
End Function

Use:

=ColorIndex(A1)

for the font colorindex. Or:

=ColorIndex(A1,1)

for the fill colorindex.

Richard

 

[PATSYS]

Thanks guys.