如何解决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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。