Macro RSA_ColorValxxx. Usage:
Cauton:
Sub Rsa_ColorVal() For i = 3 To 155 For j = 1 To 208 If IsEmpty(Sheets("all Rel.").Cells(i, j)) Then k = 1 'black ElseIf Sheets("all Rel.").Cells(i, j).Value < 10 Then k = 37 'yellow ElseIf Sheets("all Rel.").Cells(i, j).Value < 25 Then k = 38 'yellow-green ElseIf Sheets("all Rel.").Cells(i, j).Value < 50 Then k = 39 'green ElseIf Sheets("all Rel.").Cells(i, j).Value < 75 Then k = 40 'green-blue ElseIf Sheets("all Rel.").Cells(i, j).Value < 90 Then k = 41 'cyan Else k = 42 'blue End If Sheets("all Rel.").Cells(i, j).Select With Selection.Interior .ColorIndex = k .Pattern = xlSolid End With Next j Next i End Sub |
|
|||||||||||||||||
Last Modified by A.Honegger |