How to make font color oppose to cell interior color

[narke]

Hi,

When I changed the cell color to, say, red, I usually have to change
it's font color to, say, white to make it readable, otherwise a black
font on red background is very hard to see. But, for too many cells
with too many different cell colors, it can be very tedious to set font
colors for each of them.

So, I am thinking whether it exists an automatic solution that can set
font color smartly according to its cell color? For example, if the cell
color is 0x00ff00, it's font color can be its reverse color, 0xff00ff.

Is that possible to implement? Thanks.

 

[Héctor Miguel]

hi, !

switching only between black/white font color does it serve ? (i.e.)

Sub BlackWhiteFontColor()
Dim nCell As Range
For Each nCell In Selection
Select Case nCell.Interior.ColorIndex
Case 1, 5, 9 To 14, 16 To 18, 21, 23, 25, 29 To 32, 41 To 43, 46 To 56
nCell.Font.ColorIndex = 2
Case Else
nCell.Font.ColorIndex = xlColorIndexAutomatic
End Select
Next
End Sub

hth,
hector.

__ OP __

 

[narke]

hi, !

switching only between black/white font color does it serve ? (i.e.)
Yes.


Sub BlackWhiteFontColor()
Dim nCell As Range
For Each nCell In Selection
Select Case nCell.Interior.ColorIndex
Case 1, 5, 9 To 14, 16 To 18, 21, 23, 25, 29 To 32, 41 To 43, 46 To 56
nCell.Font.ColorIndex = 2
Case Else
nCell.Font.ColorIndex = xlColorIndexAutomatic
End Select
Next
End Sub

It looks almost what I need, thanks! Just one question: why these
colors:
1, 5, 9 To 14, 16 To 18, 21, 23, 25, 29 To 32, 41 To 43, 46 To 56

1) Why not simply 1 to 56?
2) Why choice 56 as a cross line?

Please give me a little more explain. Thanks.

 

[Héctor Miguel]

hi, !

here is a better explanation about the 56 color palette in excel:
http://www.mvps.org/dmcritchie/excel/colors.htm#dpalette

just figure which back-ground color looks better with black/white foreground

hth,
hector.

__ OP __

 

[narke]

hi, !

here is a better explanation about the 56 color palette in excel:
http://www.mvps.org/dmcritchie/excel/colors.htm#dpalette

Thanks for the URL~