adjust macro for colors other than Excel 56 index colors

[sunrise06]

Can someone tell me how to adjust this macro so I can use RGB colors and not required to use the 56 index colors?

Thanks!


Dim Shedule(100) As LectureBlock
Sub DrawShedule(b As Integer)
Dim LColor As Integer
Dim R As Range
Dim Str As String

With Shedule(b)
Select Case .Occupation
Case Is >= 0.5
Select Case .Occupation
Case Is <= 0.75
LColor = 35
Case Is <= 1
LColor = 36
Case Else
LColor = 22
End Select
Case Else
LColor = 37
End Select
Str = .Day & .Start & ":" & .Day & .End
Sheets("DISPLAY").Activate
Set R = Range(Str)
R.ColumnWidth = 18.09
R.RowHeight = 12
R.Merge
With R.Interior
.ColorIndex = LColor
.Pattern = xlSolid
End With
.....

 

[shg]

If you're using Excel 2007+, then for example,

R.Interior.Color = RGB(redvalue, greenvalue, bluevalue)

If you're using Excel 2003-, then you can still use the Color property, but it will get mapped to the nearest color on the palette.

 

[sunrise06]

Thank you shg but could you please be a little more specific? I have 4 LColor statements, based on on a specific condition, with the code at the bottom -
With R.Interior
.ColorIndex = LColor

Thanks!

 

[shg]

What colors do you want them to be?

 

[sunrise06]

They will vary base on value. For example if Case Is <= 0.75 s/b RGB(174, 201, 87), and if Case Is <= 1 s/b RGB(217, 182, 93) etc...

 

[shg]

    Dim LColor      As [COLOR=red]Long[/COLOR]
 
    With Shedule(b)
        Select Case .Occupation
            Case Is >= 0.5
                Select Case .Occupation
                    Case Is <= 0.75
                        LColor = RGB(1, 2, 3)
                    Case Is <= 1
                        LColor = RGB(4, 5, 6)
                    Case Else
                        LColor = RGB(7, 8, 9)
                End Select
            Case Else
                LColor = RGB(10, 11, 12)
        End Select
 
        ...
 
         With R.Interior
            .Color = LColor
            .Pattern = xlSolid
        End With

 

[sunrise06]

Awesome, thank you so much! It's always those little things!