<DMcRitchie@msn.com>De: David McRitchie 
Objet: Re: Colour function
Date : jeudi 14 octobre 1999 19:22

Hi Rob,
Not sure what you want perhaps using the following on some cells with font and interior colors
would give you some idea.   ColorIndex will give you a value 1-56, but user can change the
values of what color is used by a colorindex number.

function showRGB(rcell)
    'show RGB hex color value of interior of another cell
    showRGB = Right("000000" & Hex(rcell.Interior.Color), 6)
end function
function FontColorRGB(rcell)
    'show RGB hex color value of font in another cell
    FontColorRGB = Right("000000" & Hex(rcell.font.Color), 6)
end function
function showColor(rcell)
    'not of much value just testing -- see showRGB for something good
    xx = Right("000000" & Hex(rcell.Interior.Color), 6)
    showColor = Left(xx, 2) & "," & Mid(xx, 3, 2) & "," & Right(xx, 2)
 end function
function InteriorColorIndex(rcell)
    InteriorColorIndex = rcell.Interior.ColorIndex
end function
function FontColorIndex(rcell)
    FontColorIndex = rcell.font.ColorIndex
end function

for those using ColorIndex, number of cells with ColorIndex values
   =countIF(e2:e17,">4")
   =countIF(e2:e17,"=4")

HELP --> Index --> ColorIndex --><robdek@mnsi.net> ColorIndex Property

HTH,  just a reminder ColorIndex values are not specific assignments,
they can be changed.

David McRitchie,  Microsoft MVP - Excel
My Excel Pages:  http://members.aol.com/dmcritchie/excel/excel.htm

Rob De Koning  wrote in message news:38060a28@news.wincom.net...
> I am looking for a user function that will allow me to derive a number based
> on either the font color or the fill color.  I am just looking for a way to
> allow a user to mark certain entries that I can later derive a conditional
> sum from.
>
> if anyone can provide something along these lines, I would greatly
> appreciate it.
>
> Thanks in advance,
> Rob
> robdek@mnsi.net
>
>