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)
녹색이 가장 강하고 붉은색도 반이상 포함되었으니 노란색을 약간 띄는 밝은 녹색이 되겠지요.
매크로 기록기로 기록을 시작한 다음,
아무셀이나 선택하고 셀 색상을 채우세요.. 그러면 아래와 같은 코드가 생성될겁니다.
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)
녹색이 가장 강하고 붉은색도 반이상 포함되었으니 노란색을 약간 띄는 밝은 녹색이 되겠지요.
재밌죠.. 엑셀.. ㅎㅎ