EXCEL VBA를 이용한 CELL 배경색 변경

MS Office의 각 제품들에는 VBA(Visual Basic for Application)이라는 이름으로,
Visual Basic을 이용해서 프로그램으로 EXCEL을 제어할 수 있도록 되어 있다.

이번에 필요에 의해, EXCEL에서 cell의 배경색을 변경하는 코드를 작성 해 보았다.
(RGB 색상 조합 및 반목문 등을 사용)

Sub UpdateColor()

    For i = 2 To 51

        r = Range("H" + CStr(i)).Value

        g = Range("I" + CStr(i)).Value

        b = Range("J" + CStr(i)).Value

        Range("K" + CStr(i)).Interior.Color = RGB(r, g, b)

        

        rIndex = 53 - i

        r = Range("H" + CStr(rIndex)).Value

        g = Range("I" + CStr(rIndex)).Value

        b = Range("J" + CStr(rIndex)).Value

        Range("L" + CStr(i)).Interior.Color = RGB(r, g, b)

    Next

End Sub

 
위 코드를 이용하면,
H열, I열, J열 이렇게 세 열의 각각의 cell에 R, G, B 값이 저장되어 있을 때,
그 값을 조합해서 K열에 실제 색상을 표시할 수 있다.