我有一个生成颜色代码的任务。我在三个不同的列中列出了R G B值,并且有大约256行R G B值。我需要填充每行中与R G B值对应的颜色。
这就是它的列出方式。我需要在此
旁边生成相应的颜色代码答案 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