RGB在excel vba中填充颜色

时间:2016-02-08 06:13:33

标签: excel vba excel-vba

我有一个生成颜色代码的任务。我在三个不同的列中列出了R G B值,并且有大约256行R G B值。我需要填充每行中与R G B值对应的颜色。

list

这就是它的列出方式。我需要在此

旁边生成相应的颜色代码

1 个答案:

答案 0 :(得分:1)

Sub ChangeRowColorBasedonAtoCRGBValues()
Dim lRw As Long

lRw = Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To lRw
    Range("A" & i).EntireRow.Interior.Color = _
        RGB(Cells(i, "A").Value, Cells(i, "B").Value, Cells(i, "C").Value)
Next i

End Sub