1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

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

 

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

 

 Sub Macro1()

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

 

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


댓글 '1'

profile

[레벨:30]아별

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


첨부
문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 19496
161 아별툴 단축키 문의 [1] [레벨:2]키다리 2010-02-04 4912
160 엑셀 매크로를 쓰면 쓸수록... [1] [레벨:1]DATA 2010-02-03 5214
159 엑셀에서 어떤셀값의 중간부분만 봐서 중간값에 따라 앞셀의 값이 변하게 하려면 [5] 마음의눈 2010-02-01 7253
158 안녕하세요 가입후 첫 질문 입니다. [특정문자열 포함 데이터 분류&추출방법] file [2] [레벨:1]에르메스 2010-01-27 4615
157 아별님 질문드립니다. [입사지원서 스펙별 포인트 계산] file [2] [레벨:1]비비빅 2010-01-21 4447
156 미팅에서 1순위-2순위-3순위 매칭하는 서식을 알고 싶어요~ [9] [레벨:2]매미총각 2010-01-18 5203
155 [문의드릴께요]엑셀 창끼리 alt+tab으로 전환이 안됩니다. file [1] [레벨:1]윤여준 2010-01-15 5565
154 엑셀질문이요 -> 다중 조건 값 찾기, 유효성 검사, 이름 지정, DB로 변환 file [5] [레벨:1]안녕하기 2010-01-12 8353
153 다른시트에 조건부 수식 넣어서 합계 내는 법 file [2] [레벨:3]이구람 2010-01-11 5610
152 수량산출서 합계 구하기 imagefile [2] [레벨:1]뮤즈 2010-01-11 6606
151 그래프 눈금에 관한 질문 file [3] [레벨:2]리자딘 2010-01-06 5059
150 탭 병합하기 질문 ==> 시트 병합, 시트 합치기 [1] 콩쥐 2010-01-04 7875
149 적응이 느린 함수 작동 file [2] [레벨:4]쟈니 2010-01-04 4629
148 루나입니당 ㅎㅅㅎ; [1] 루나 2010-01-01 4286
» 감사합니다. 다시 한번 문의 드립니다. ^^: -조건부 서식의 셀 색상 참조 방법- [1] 루나 2009-12-30 4585
146 엑셀 2007 질문입니다. file [1] [레벨:1]베이스맨 2009-12-30 4269
145 엑셀 질문드립니다. - 셀내용에서 한글은 모두 제거하는 방법- file [6] 동동이 2009-12-29 6716
144 칸나누기?? [1] 2009-12-29 6109
143 문의 드립니다. [1] 루나 2009-12-29 4285
142 엑셀에서 필터하고 나서 보이는 부분만 복사해서 그대로 붙여넣고 싶은데.. [2] [레벨:2]시시오 2009-12-21 8234