Условное форматирование по гистограмме - VBA

Формулировка задачи:

Подскажите пожалуйста, есть в экселе в функции условного форматирования "Гистограммы" можно как-то ее адаптировать под темп роста ячейки, т.е. в ячейка с помощью условного форматирования определяется гистограмма темпа роста (сапастовление с предыдущей ячейкой) в диапазоне от 100% до 300% и в итоге чем выше темп роста на столько окрашивается ячейка Например, в ячейке А1 значение 1 в ячейке B1 значение 2 в итоге ячейка B1 с гистограммой должна показать половину закрашенной ячейки (поскольку темп роста 200%)

Решение задачи: «Условное форматирование по гистограмме»

textual
                            Листинг программы 
                        

                            Public Sub ййййй()
 
Dim cCell As Range
For Each cCell In Selection
    Call green(cCell)
Next
End Sub
                        