2016-02-08 240 views
-1

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

list

这是它是如何被列出。我需要在此旁边生成相应的颜色代码

回答

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