나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 서비 (csle1123)

추천:  2
파일:     조회:  6132
제목:   셀색상을 RGB값으로 받을려면??
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...): 

* 아래줄에 질문을 작성하세요 >>

xColor_No = Cells(1, 1).Interior.ColorIndex
이렇게 하면 A1셀의 내부 색상 값을 받을수 있는데....
이것을 RGB 값으로 RGB(x,y,z) 이렇게 x,y,z 값을 받을려면 어케하면 되나요??
 
[불량 게시물 신고]  
사내안녕하세요..^^

미흡하지만 제가 답변을..

아래의 코드를 살펴봐주세요..

Range("a1").Interior.Color = RGB(120, 130, 150)

..도움이 되셨기를..
07-25 (15:46)
삭제 ■신고
ist공원질문은 특정한 셀의 색상 중 Red성분, Green성분, Blue성분을 따로 추출해 내고자 하는 것 같은데요...
아닌가..$%@#$@#$
07-25 (16:21)
삭제 ■신고
사내안녕하세요..^^

제가 요즘 더워를 먹었나봅니다...ㅠㅠ(ist공원님의 말씀 감사합니다..^^)


아래의 코드를 살펴봐주세요..

Sub RGB반환()

Dim R As Integer
Dim G As Integer
Dim B As Integer
Dim s As Long
Dim s1 As Long


s = Range("a1").Interior.Color
R = s Mod 256 'R의 값입니다.
s1 = Int(s / 256)
G = s1 Mod 256 'G의 값입니다.
B = Int(s1 / 256) 'B의 값입니다.

MsgBox R & ", " & G & ", " & B

End Sub

..도움이 되셨기를..
07-25 (16:44)
삭제 ■신고
서비감사합니다. 사내님의 및에것이 답이 원하는 답입니다.^^07-25 (18:05)
삭제 ■신고
        
  

작성일 : 2003-07-25(14:51)
최종수정일 : 2003-07-25(14:51)