VBA颜色单元取决于值

问题描述

我想根据单元格的颜色为其着色。如果值为0，则单元格应为绿色，如果为1，则应为红色。整个过程应该是进度，因此值越接近1，则单元格应该越红。

有合适的功能吗？

非常感谢：）

我当前的解决方案看起来像这样，但不是很漂亮；）

Cells(i,20) = (l / j) * 1 
        
Cells(i,20).Interior.Color = RGB(255 * (l / j),255 * (1 - (l / j)),0)

解决方法

认为使用条件格式对此更有意义，但是下面的代码在图片中产生结果。

Sub x()

Dim r As Range

For Each r In Range("A1:A11")
    r.Interior.Color = RGB(255 * r.Value,255 * (1 - r.Value),0)
Next r

End Sub