VBA 颜色单元格取决于值答案

【问题标题】：VBA Color Cells Depending on the valueVBA 颜色单元格取决于值
【发布时间】：2020-08-13 12:07:15
【问题描述】：

我想根据单元格的值对单元格进行着色。如果值为 0，则单元格应为绿色，如果为 1，则为红色。整个事情应该是一个进步，所以值越接近 1，单元格应该越红。

有适合这个的函数吗？

非常感谢:)

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

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

【问题讨论】：

标签： vba colors

【解决方案1】：

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

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

【讨论】：