abyul.com > Excel > Question & Answer - 감사합니다. 다시 한번 문의 드립니다. ^^: -조건부 서식의 셀 색상 참조 방법-

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

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

글 수 822

감사합니다. 다시 한번 문의 드립니다. ^^: -조건부 서식의 셀 색상 참조 방법-

조회 수 5082 추천 수 0 2009.12.30 21:03:28

루나 *.130.73.75 http://www.abyul.com/zbxe/72498

저번에 덧글이 많은 도움이 되었습니다. 정말 감사합니다. 이번에는 셀의 서식에서 채우기색에 관한 것인데요. 이미 아시겠지만 다음을 보시면,

Sub Macro1()

With Range("W45")
.Interior.ColorIndex = Range("I24").Interior.ColorIndex
End With

End Sub

다른 셀에 있는 색을 가져올 수가 있는데요, 조건부 서식으로 색을 지정한 셀들의 색들은 어떻게 가져와야 할지 모르겠습니다. 그럼 부탁드리고 Happy New Year~~~

이 게시물을...

엮인글 :: http://www.abyul.com/zbxe/72498/61a/trackback

수정 삭제

댓글 '1'

2009.12.31 00:21:21
*.130.73.75

안녕하세요?

조건부 서식에서 지정한 셀 색상을 갖고 오고 싶으시군요..

예전에 엑사모 같은데서 비슷한 질문을 본적이 있는데.. 다 못 갖고온다는 답변뿐이었습니다.

조건부 서식에서 값으로 조건을 걸었을 경우에는 갖고 올 수가 있는데요..

수식으로 조건을 걸었을때는.. 수식을 어떻게 평가해야할지에 대한 적당한 해법이 없네요..

홀수열에 음영을 넣는 "=MOD(ROW(),2)" 이런 조건이나 조건에 이름을 사용하거나 했을때..

수식으로 조건을 거는 방법은 무궁무진한지라.. 접근이 어렵습니다.

값으로 조건을 걸었을때 셀색상을 갖고 오는 사용자 정의함수를 만들어봤습니다.

조건부서식이 없거나, 조건을 만족하지 못 할 경우에는 기본 셀 음영색을 갖고 옵니다.

수식으로 된 조건에 해당하면.. "에라"죠.. =_=;;

참고하세요.

abyul_20091231_FormatConditions_colorIndex.xls

Option Explicit

Function getConditionalColor(uRange As Range)
    Dim i As Integer
    Dim cntConditions As Integer
    cntConditions = uRange.FormatConditions.Count
    If cntConditions < 1 Then
        getConditionalColor = uRange.Interior.ColorIndex
    Else
        For i = 1 To cntConditions
            With uRange.FormatConditions(i)
                Select Case .Type
                Case xlCellValue
                    Select Case .Operator
                        Case xlBetween
                            If uRange.Value >= .Formula1 And uRange.Value <= .Formula2 Then
                                getConditionalColor = .Interior.ColorIndex
                                Exit Function
                            End If
                        Case xlEqual
                            If uRange.Value = .Formula1 Then
                                getConditionalColor = .Interior.ColorIndex
                                Exit Function
                            End If
                        Case xlGreater
                            If uRange.Value > .Formula1 Then
                                getConditionalColor = .Interior.ColorIndex
                                Exit Function
                            End If
                        Case xlGreaterEqual
                            If uRange.Value > .Formula1 Then
                                getConditionalColor = .Interior.ColorIndex
                                Exit Function
                            End If
                        Case xlLess
                            If uRange.Value < .Formula1 Then
                                getConditionalColor = .Interior.ColorIndex
                                Exit Function
                            End If
                        Case xlLessEqual
                            If uRange.Value <= .Formula1 Then
                                getConditionalColor = .Interior.ColorIndex
                                Exit Function
                            End If
                        Case xlNotBetween
                            If uRange.Value <= .Formula1 Or uRange.Value >= .Formula2 Then
                                getConditionalColor = .Interior.ColorIndex
                                Exit Function
                            End If
                        Case xlNotEqual
                            If uRange.Value <> .Formula1 Then
                                getConditionalColor = .Interior.ColorIndex
                                Exit Function
                            End If
                    End Select
                Case xlExpression
                        getConditionalColor = "수식조건평가못함"
                End Select
            End With
        Next i
    End If
    If IsEmpty(getConditionalColor) Then
        getConditionalColor = uRange.Interior.ColorIndex
    End If
End Function

abyul_20091231_FormatConditions_colorIndex.xls [File Size:31.5KB/Download94]

» 편집 도구모음 건너뛰기

하이퍼링크

새 창으로
특수문자 삽입
선택한 기호
찾기/바꾸기
- 찾기
- 바꾸기
찾을 단어

찾을 단어
바꿀 단어

칸 수 지정

행
열

표 속성 지정

테두리 굵기
테두리 색
표 배경색

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)

비밀글 기능

List of Articles

번호	제목	글쓴이	날짜	조회 수
공지	공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요..	아별	2015-04-23	55991
엑셀일반 질문하나 더 드립니다! [1] 나카타 2011-12-09 조회 수 3145
VBA 엑셀파일 검색후 불러오기 문의 [3] 광택입니다 2012-09-19 조회 수 3146
엑셀일반 특정열을 밑으로 25칸 내리는 방법이 있나요? [2] 싸이 2012-10-30 조회 수 3154
엑셀수식 indirect [5] 엑셀짱 2011-08-11 조회 수 3157
차트 엑셀에서 라인 차트 질문입니다. [2] 해피엔드 2011-08-04 조회 수 3162
엑셀일반 도와주세요~!! 2탄 [2] 딸꾹질쟁이 2013-07-16 조회 수 3162
엑셀일반 안녕하세요 아별님 [2] 북곰 2013-06-04 조회 수 3165
날짜/시간 수식 날짜 함수 관련 문의합니다. [3] fmbass98 2013-02-19 조회 수 3168
엑셀에서 이메일 입력 시 @이메일 주소 자동 입력하는 방법이 없을까요? [2] 읍내꽃미남 2011-01-14 조회 수 3179
아별툴관련질문 아별툴 사용자정의함수 사용 질문입니다. [2] aaaaaafffff 2013-05-13 조회 수 3188
엑셀일반 신입 주제에 질문 먼저라 죄송합니다 ㅠㅠ [3] 에봉이 2011-12-09 조회 수 3195
VBA 매크로.. [1] 광택입니다 2011-10-18 조회 수 3196
엑셀일반 용량이 큰 엑셀파일 불럭오기 하면 시간이 많이 걸려요 [3] 도상우 2012-04-03 조회 수 3197
엑셀일반 질문드립니다 ^^! 쎔히 2014-08-04 조회 수 3199
엑셀수식 엑셀 수식 질문.. _ OFFSET 활용하여 특정 범위값만 합계로 표시하기 [1] 박주연 2012-02-29 조회 수 3204
엑셀일반 원하는 열만 추출할수 없나요?? [1] wooljima0 2012-06-07 조회 수 3208
엑셀수식 랭킹 구하는 함수 질문 눈물바다 2015-01-15 조회 수 3208
엑셀일반 엑셀 질문이 있습니다. 최영석 2014-09-01 조회 수 3210
VBA 기존에 설정되어 있는 단축키를 다른 기능으로 대체하는 방법 가르쳐주세요~ [4] LH 2013-04-15 조회 수 3211
VBA 특정폴더 내 숨기지 않은 파일 모두 열기 [2] 고수가되고파 2012-10-18 조회 수 3212

번호