[VBA기초] RGB 색상표

Sub RGB색상채우기()
Dim rngC As Range

For Each rngC In Range("A2:A16913").SpecialCells(2)
    rngC.Offset(, 3).Interior.Color = RGB(rngC.Value, rngC.Offset(, 1).Value, rngC.Offset(, 2).Value)
Next rngC

End Sub

RGB 색상을 어떤 색으로 적용하면 좋을지 쉽게 찾을 수가 없어서 RGB 표를 만들었습니다.

RGB 색을 변경해서 육안으로 쉽게 원하는 색을 찾아서 적용하기 쉽게 했습니다.

RGB색상표.xlsm

첨부파일 받아서 직접 보시면 활용하는데 도움 되실 겁니다.

첨부파일 실행하고 Alt + F11 눌러서 보면 아래와 같은 형태의 화면이 나옵니다.

해당 Sheet 에 코드가 적용된 것인지를 알고자 한다면 해당 시트를 선택하고 마우스 우클릭하여 코드보기를 누르면 보입니다.