Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How Write for RGB palette?
I have the following procedure for changing background colors of cells based
upon whatever percentage a user types in, however, the standard colors to pick are too dark and I would like some lighter colors from the RGB palette. Here is my code: Private Sub Worksheet_Change(ByVal Target As Range) Dim icolor As Integer Multiple Select Case Statements.... followed by.... ElseIf Not (Intersect(Target, Me.Range("SPM12mo")) Is Nothing) Then Select Case UCase(Target.Value) 'Converts entry in cell to Uppercase Case Is = "RED": icolor = 3 Case Is = "YLO": icolor = 6 Case Is = "BRZ": icolor = 53 Case Is = "SVR": icolor = 16 Case Is = "GLD": icolor = 44 Case Else: icolor = xlNone End Select Target.Interior.ColorIndex = icolor End If End Sub Is there a way to rewrite this to draw from the RGB palette so I can get the shade of color that I want to use. Mainly I need to use it for readability. Thank you. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
How Write for RGB palette?
What I usually do is record a new macro and manually set the colors until I
get the values I like. Then paste the values from the recorded macro into my code. Record macro by using worksheet menu Tools - Macro - Record New Macro. "Walter" wrote: I have the following procedure for changing background colors of cells based upon whatever percentage a user types in, however, the standard colors to pick are too dark and I would like some lighter colors from the RGB palette. Here is my code: Private Sub Worksheet_Change(ByVal Target As Range) Dim icolor As Integer Multiple Select Case Statements.... followed by.... ElseIf Not (Intersect(Target, Me.Range("SPM12mo")) Is Nothing) Then Select Case UCase(Target.Value) 'Converts entry in cell to Uppercase Case Is = "RED": icolor = 3 Case Is = "YLO": icolor = 6 Case Is = "BRZ": icolor = 53 Case Is = "SVR": icolor = 16 Case Is = "GLD": icolor = 44 Case Else: icolor = xlNone End Select Target.Interior.ColorIndex = icolor End If End Sub Is there a way to rewrite this to draw from the RGB palette so I can get the shade of color that I want to use. Mainly I need to use it for readability. Thank you. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
How Write for RGB palette?
Hi Walter
presuming you know the RGB colours you want to use change you icolor numbers to RGB ....Case Is = "RED": icolor = RGB(200, 200, 200) and then change the ColorIndex to just Color ....Target.Interior.Color = icolor HTH Trevor Williams "Walter" wrote: I have the following procedure for changing background colors of cells based upon whatever percentage a user types in, however, the standard colors to pick are too dark and I would like some lighter colors from the RGB palette. Here is my code: Private Sub Worksheet_Change(ByVal Target As Range) Dim icolor As Integer Multiple Select Case Statements.... followed by.... ElseIf Not (Intersect(Target, Me.Range("SPM12mo")) Is Nothing) Then Select Case UCase(Target.Value) 'Converts entry in cell to Uppercase Case Is = "RED": icolor = 3 Case Is = "YLO": icolor = 6 Case Is = "BRZ": icolor = 53 Case Is = "SVR": icolor = 16 Case Is = "GLD": icolor = 44 Case Else: icolor = xlNone End Select Target.Interior.ColorIndex = icolor End If End Sub Is there a way to rewrite this to draw from the RGB palette so I can get the shade of color that I want to use. Mainly I need to use it for readability. Thank you. |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
How Write for RGB palette?
There is no RGB color palatte as such. You have to build your own by
assigning the RGB values to variables and then calling those variables when needed. expl: colVar1 = RGB(255, 200, 150) colVar2 = RGB(200, 150, 255) colVar3 = RGB(168, 247, 145) If myRange = Yes Then myRange.Interior.Color = colVar2 Else myRange.Interior.Color = colVar3 End If "Walter" wrote: I have the following procedure for changing background colors of cells based upon whatever percentage a user types in, however, the standard colors to pick are too dark and I would like some lighter colors from the RGB palette. Here is my code: Private Sub Worksheet_Change(ByVal Target As Range) Dim icolor As Integer Multiple Select Case Statements.... followed by.... ElseIf Not (Intersect(Target, Me.Range("SPM12mo")) Is Nothing) Then Select Case UCase(Target.Value) 'Converts entry in cell to Uppercase Case Is = "RED": icolor = 3 Case Is = "YLO": icolor = 6 Case Is = "BRZ": icolor = 53 Case Is = "SVR": icolor = 16 Case Is = "GLD": icolor = 44 Case Else: icolor = xlNone End Select Target.Interior.ColorIndex = icolor End If End Sub Is there a way to rewrite this to draw from the RGB palette so I can get the shade of color that I want to use. Mainly I need to use it for readability. Thank you. |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
How Write for RGB palette?
If you are looking for some kind of color scheme for different RGB code
structure, then try this site. It is a quite lengthy chart but provides a wide variety of color reseults for RGB combinations. http://rgbchart.com/ "Walter" wrote: I have the following procedure for changing background colors of cells based upon whatever percentage a user types in, however, the standard colors to pick are too dark and I would like some lighter colors from the RGB palette. Here is my code: Private Sub Worksheet_Change(ByVal Target As Range) Dim icolor As Integer Multiple Select Case Statements.... followed by.... ElseIf Not (Intersect(Target, Me.Range("SPM12mo")) Is Nothing) Then Select Case UCase(Target.Value) 'Converts entry in cell to Uppercase Case Is = "RED": icolor = 3 Case Is = "YLO": icolor = 6 Case Is = "BRZ": icolor = 53 Case Is = "SVR": icolor = 16 Case Is = "GLD": icolor = 44 Case Else: icolor = xlNone End Select Target.Interior.ColorIndex = icolor End If End Sub Is there a way to rewrite this to draw from the RGB palette so I can get the shade of color that I want to use. Mainly I need to use it for readability. Thank you. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Color Palette | Excel Discussion (Misc queries) | |||
Color Palette | Excel Programming | |||
Formula palette. | Excel Programming | |||
Color Palette | Excel Programming | |||
Formula Palette | Excel Programming |