[已解决]如何通过RGB值实现颜色自动填充？

Leozheng

单元格的颜色与单元格里面的RGB数值关联起来怎么做？
比如单元格内容是0,101,255如何自动把这个单元格填充为RGB=0,101,255的背景颜色，
最好还能把单元格文字的颜色与背景颜色为相反，如果背景颜色是黑色，则文字颜色为白色

最佳答案

月排行榜 / 总排行榜

冥王

2015-5-26 13:17

1. Sub demoRGB()
   
2.     Dim r As Range, arr
   
3.     For Each r In Range("A1:A8")
   
4.         arr = Split(r, "，")
   
5.         r.Interior.Color = RGB(CInt(arr(0)), CInt(arr(1)), CInt(arr(2)))
   
6.         r.Font.Color = RGB(255 - CInt(arr(0)), 255 - CInt(arr(1)), 255 - CInt(arr(2)))
   
7.     Next
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

qh8600

录制宏，然后改成变量

爱疯

建议上次你的excel文件，免得别人给了答案后，再改。

Leozheng

爱疯 发表于 2015-5-26 12:59
建议上次你的excel文件，免得别人给了答案后，再改。

EXCEL附件上传不了，帮我写个代码，谢谢啦

另：我有若干个RGB值，就是说我只需要输入RGB值，就可以在另一个单元格显示颜色。

冥王

1. Sub demoRGB()
   
2.     Dim r As Range, arr
   
3.     For Each r In Range("A1:A8")
   
4.         arr = Split(r, "，")
   
5.         r.Interior.Color = RGB(CInt(arr(0)), CInt(arr(1)), CInt(arr(2)))
   
6.         r.Font.Color = RGB(255 - CInt(arr(0)), 255 - CInt(arr(1)), 255 - CInt(arr(2)))
   
7.     Next
   
8. End Sub
   

复制代码

Leozheng

冥王 发表于 2015-5-26 13:17

代码运行时显示“下标越界”是哪有问题啊

Leozheng

冥王 发表于 2015-5-26 13:17

Sub demoRGB()
    Dim r As Range, arr
    For Each r In Range("A1:A8")
        arr = Split(r, ",")
        r.Interior.color = RGB(CInt(arr(0)), CInt(arr(1)), CInt(arr(2)))
        r.Font.color = RGB(255 - CInt(arr(0)), 255 - CInt(arr(1)), 255 - CInt(arr(2)))
    Next r
   
End Sub



坛子大哥写了个VBA，运行时显示下标越界，是何意？

冥王

Leozheng 发表于 2015-5-26 14:44
Sub demoRGB()
    Dim r As Range, arr
    For Each r In Range("A1:A8")

RGB颜色 三个参数范围都是0-255之间 如果数值超过了这个范围 就会报错

Leozheng

冥王 发表于 2015-5-26 14:45
RGB颜色 三个参数范围都是0-255之间 如果数值超过了这个范围 就会报错

明白了，
还有，如果我希望RGB值在A列，颜色填充在B列，怎么改呀？

冥王

Sub demoRGB()
    Dim r As Range, arr
    For Each r In Range("A1:A8")
        arr = Split(r, "，")
        r.Offset(0, 1).Interior.Color = RGB(CInt(arr(0)), CInt(arr(1)), CInt(arr(2)))
        r.Offset(0, 1).Font.Color = RGB(255 - CInt(arr(0)), 255 - CInt(arr(1)), 255 - CInt(arr(2)))
    Next
End Sub