LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 78
Default 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.


 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Color Palette JAD Excel Discussion (Misc queries) 1 November 19th 07 02:26 AM
Color Palette Beep Beep Excel Programming 2 June 15th 07 08:28 PM
Formula palette. STIG Excel Programming 3 September 29th 06 01:17 PM
Color Palette Katie[_5_] Excel Programming 7 January 9th 06 06:18 PM
Formula Palette Will[_7_] Excel Programming 1 February 6th 04 02:24 PM


All times are GMT +1. The time now is 12:18 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"