abyul.com > Excel > Question & Answer

엑셀에 대해서 궁금한 것이 있으시면 마음껏 질문해주세요.

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

2010.04.07 20:53

매크로 기록기로 기록을 시작한 다음,

아무셀이나 선택하고 셀 색상을 채우세요.. 그러면 아래와 같은 코드가 생성될겁니다.

Sub Macro1()
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5296274
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

위 코드에서 주황색으로된 부분이 셀 음영색입니다. 저 숫자를 이용해서 도형의 색상도 바꿀 수 있구요..

저 숫자는 RGB색상을 일련번호로 변환한것입니다.

저 값을 RGB로 나눠서 보고 싶다면 아래 수식을 이용하시면 됩니다.

Red            =ROUNDDOWN(MOD($A1,POWER(2,8))/POWER(2,0),0)
Green         =ROUNDDOWN(MOD($A1,POWER(2,16))/POWER(2,8),0)
Blue           =ROUNDDOWN(MOD($A1,POWER(2,24))/POWER(2,16),0)

예제에서 설명한 색상값을 위의 변환식을 이용해서 RGB로 바꿔보면 아래와 같습니다.

.Color = 5296274

Red : 146 =ROUNDDOWN(MOD(5296274,POWER(2,8))/POWER(2,0),0)

Green : 208 =ROUNDDOWN(MOD(5296274,POWER(2,16))/POWER(2,8),0)

Blue : 80 =ROUNDDOWN(MOD(5296274,POWER(2,24))/POWER(2,16),0)

녹색이 가장 강하고 붉은색도 반이상 포함되었으니 노란색을 약간 띄는 밝은 녹색이 되겠지요.

재밌죠.. 엑셀.. ㅎㅎ