Excel VBA编程 将前三个单元格的数值作为RGB，为第四个单元格填充颜色

Question

比如A1=120 B1=100 C1=255 那么D1填充颜色RGB（120,100,255）

A2=20 B2=131 C2=250 那么D2填充颜色RGB（20,131,250）

依次下去

Answer 1

Option Explicit

Sub Iclr()
    On Error Resume Next
    Dim ln As Integer, i As Integer
    Dim r As Integer, g As Integer, b As Integer
    With ActiveSheet
        ln = .[a60000].End(xlUp).Row
        For i = 1 To ln
            r = CInt(.Range("a" & i).Value)
            g = CInt(.Range("b" & i).Value)
            b = CInt(.Range("c" & i).Value)
            .Range("d" & i).Interior.Color = RGB(r, g, b)
        Next i
    End With
End Sub