Macro RSA_ValColorRed

xxx.

Usage:

• xxx
• xxx

Cauton:

xxx

Sub Rsa_ValColorRed()

    'coloring for contribution to interface (relative difference in solvent accessible surface)
    i1 = Selection.Row
    i2 = i1 + Selection.Rows.Count - 1
    j1 = Selection.Column
    j2 = j1 + Selection.Columns.Count - 1
    
    For i = i1 To i2 Step 1
        For j = j1 To j2 Step 1
      
        If (IsEmpty(Cells(i, j)) Or Not (IsNumeric(Cells(i, j)))) Then
            k = 1 'black
            ElseIf Cells(i, j).Value > 80 Then
                k = 33 'red
                ElseIf Cells(i, j).Value > 60 Then
                    k = 34 'orange-red
                    ElseIf Cells(i, j).Value > 40 Then
                        k = 35 'orange
                        ElseIf Cells(i, j).Value > 20 Then
                            k = 36 'orange-yellow
                            ElseIf Cells(i, j).Value > 0 Then
                                k = 37 'yellow
                                Else
                                    k = 2 'white
        End If

        Cells(i, j).Select
        With Selection.Interior
            .ColorIndex = k
            .Pattern = xlSolid
        End With

    Next j
Next i

End Sub