1. 아별툴
  2. 아별툴 패밀리
  3. 엑셀 질문하기
  4. 엑셀 강좌
  5. 엑셀 팁
  6. 엑셀 자료실
  7. 엑셀 연구과제
  8. 엑셀 북마크
  9. 관련 프로그램 소개

엑셀2007에서 셀의 색상을 RGB로 뽑아내기

조회 수 10196 추천 수 0 2009.10.06 00:20:24

오늘 갑자기 바탕화면 하나를 구해서.. (http://www.abyul.com/zbxe/69555)

"요거 요거.. 컬러를 뽑아서 차트나 테이블 만들때 써먹어야겠다~" 하고 픽업하다가..

 

셀의 배경색의 INDEX를 갖고 오는 사용자 정의함수나 만들어야겠다고 생각해서 작업하다보니..

Selection.Interior.Color가 24비트 컬러의 숫자로 나오는 바람에.. 아.. 이거 RGB로는 얼마야 하다가..

그냥 사용자 정의 함수에 RGB로도 표현이 가능하도록 옵션을 추가해버렸습니다.

 

관련 파일 다운 받기 : pickColor_Excel2007_abyul.xlsm

( 2003버전에서도 색을 바꿔버리긴 하지만, RGB 값을 얻을 수 있긴 하다. : pickColor_Excel2007_abyul.xls )

 

Option Explicit

'셀의 배경색을 갖고 오는 사용자 정의 함수
'작성자 : 아별닷컴 주인장 오주원
'http://www.abyul.com/zbxe/69564
Function PICKCOLOR(R As Range, Optional rgb As String)
    Dim resultColor As Double
    Dim resultRGB As String
    resultColor = R.Interior.Color
    If rgb = "RGB" Or rgb = "rgb" Then      '## RGB로 표현되는 옵션을 입력했을때..
            resultRGB = "RGB : "
            resultRGB = resultRGB & Format((resultColor Mod 256), "0")
            resultRGB = resultRGB & "," & Format(Application.WorksheetFunction.RoundDown((resultColor Mod 65536) / 256, 0), "0")
            resultRGB = resultRGB & "," & Format(Application.WorksheetFunction.RoundDown((resultColor Mod 16777216) / 65536, 0), "0")
        PICKCOLOR = resultRGB
    Else
        PICKCOLOR = resultColor
    End If
End Function

 

'수식보기 사용자 정의 함수
Function F(R As Range)
    F = R.Formula
End Function

 

 

 

 엑셀에서 수작업으로 확인할 때..

 

 
주제 : 엑셀2007에서 색상 값을 RGB로 추출하는 사용자 정의 함수 구현  
작성자 : 아별닷컴 주인장 오주원          
참조 사이트 : http://www.abyul.com/zbxe/69564      
* 저작권자의 동의 없이 임의의 배포 및 전제 금지      
▲ Interior.Color값을 RGB값으로 변환하기        
R =TRUNC(MOD($C24,POWER(2,8)))
G =TRUNC(MOD($C24,POWER(2,16))/POWER(2,8))
B =TRUNC(MOD($C24,POWER(2,24))/POWER(2,16))
▲ RGB값을 이용하여 Interior.Color값 만들기      
Interior.Color =D31+E31*POWER(2,8)+F31*POWER(2,16)
▲ 검증            

COLOR

Interior.Color

R

G

B

RGB

       11708800 128 169 178  RGB : 128,169,178 
       11387816 168 195 173  RGB : 168,195,173 
         9883082 202 205 150  RGB : 202,205,150 
         6398154 202 160 97  RGB : 202,160,97 
         3883427 163 65 59  RGB : 163,65,59 

COLOR

Interior.Color

R

G

B

Interior.Color

검증

  16777215 255 255 255 16777215 0
  16777214 254 255 255 16777214 0
  16776960 0 255 255 16776960 0
  16711935 255 0 255 16711935 0
  65535 255 255 0 65535 0
  65536 0 0 1 65536 0
  255 255 0 0 255 0
  256 0 1 0 256 0
  683492 228 109 10 683492 0
  512 0 2 0 512 0
  65793 1 1 1 65793 0

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수sort
공지 기타 엑셀 VBA 간단한 팁 모아놓기.. +_+ [레벨:30]아별 2007-01-24 33819
64 기타 오피스2010 64bit(64비트)를 위한 API Declare 방법 _ 윈도우 도움말 file [레벨:30]아별 2017-04-21 39349
63 [펌] Visual Basic (비쥬얼 베이직) 함수 정리 imagefile [레벨:30]아별 2009-11-27 20068
62 시트에서 콤보박스 활용하기 file [레벨:30]a☆ 2005-11-12 16708
61 메시지 박스 대용으로 Shape 사용하기 file [레벨:30]아별 2009-05-07 16045
60 기타 [펌] 엑셀 VBA 총정리 _ Excel 개체 모델 참조 등 image [2] [레벨:30]아별 2010-03-09 15919
59 [VBA] 전역변수 설정하기. Public 문, Private 문 imagefile [레벨:30]아별 2008-07-01 14018
58 엑셀에서 사용하는 언어 확인하기. file [1] [레벨:30]아별 2009-06-03 13776
57 기타 [펌] VBA 공부를 시작하시는분들에게 추천하는 강의자료 imagefile [4] [레벨:30]아별 2011-03-21 13698
56 기타 [Excel VBA] 피벗테이블(PivotTable)을 VBA로 컨트롤해보자.. [레벨:30]아별 2008-12-19 12076
55 [엑셀VBA] 자동필터를 매크로로 구현하기 [레벨:30]아별 2008-08-28 11224
54 엑셀에서 달력 집어 넣기.. [1] [레벨:30]a☆ 2004-10-21 10947
» 엑셀2007에서 셀의 색상을 RGB로 뽑아내기 file [레벨:30]아별 2009-10-06 10196
52 엑셀의 유저폼 관련 [1] [레벨:30]a☆ 2004-10-21 10049
51 엑셀에서 줄바꿈에 대해서.. 줄바꿈하기 제거하기 등등.. [레벨:30]a☆ 2004-11-15 9992
50 기타 [링크] VBA로 파일을 다루는 방법에 대한 강좌들을 모아놓은 겁니다. [레벨:30]아별 2010-03-03 9832
49 기타 오피스2010 64bit(64비트)를 위한 API Declare 방법 file [2] [레벨:30]아별 2011-10-05 9218
48 [엑셀VBA] 네이버 지식인 답변 _ 엑셀 쿼리를 이용해서 펀드 기준가 데이터를 읽어오기. file [레벨:30]아별 2008-04-30 9120
47 기타 VBA _ 레지스트리 다루기 ( registry control ) imagefile [레벨:30]아별 2011-03-19 8671
46 [10/19일 수정] 엑셀 매크로 수정하기... [2] [레벨:30]a☆ 2003-09-29 8250