VBA - Gradient Algorithm for Conditional Formatting

[Legacy 143009]

Hi,

I decided to use VBA regarding the post below:

Conditional format a row according to the highest cell value

Hi, I state each time proudly that I am quite bad at conditional formatting :) I have a set of survey results and I populated answer percentages per question. C D E F Questions YES MAYBE NO 1. Question1 %66 %33 %0 I want to highlight each row from column D to F, like if closer to "100%...

www.mrexcel.com

Does anyone know the 3-color gradient algorithm that excel uses from green-to yellow-to red for conditional formatting?
I am going to have decimal values from 0.0 to 1.0. How can adjust RGB values accordingly in such a way that cells' interior colors will vary from red to green?

 

[Legacy 143009]

I came up with this solution. It works for me. I hope someone will benefit it, too..

Cells(i, 1).Interior.Color = RGB(Round(255 * (1 - x), 0), Round(255 * x, 0), 0)

 

[Legacy 143009]

A more pleasing version:

Dim x As Double
Dim r As Integer, g As Integer

 x = Cells(i, 1).Value
  If x > 0.5 Then
    r = 255 * (2 * (1 - x))
  Else
    r = 255
  End If
  If x < 0.5 Then
     g = 255 * (2 * x)
   Else
     g = 255
 End If
 Cells(i, 1).Interior.Color = RGB(r, g, 0)