같은 값끼리 같은 색을 적용하고 싶습니다

함수/공식
작성자
유령회원
작성일
2021-10-15 17:34
조회
2086
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

 

같은 값끼리 같은 색을 적용하고 싶습니다..

 

조건부 서식의 색조를 적용해 봐도 어느건 되고 어느건 안되고... 잘 안되네요

 

확실히 해결할 수 있는 방법이 있나요 ?

 

 

스크랩
공유
전체 6

  • 2021-10-15 23:43
    채택된 답변

    @유령회원 님 데이터에 따라 다르게 색상을 표시한다는 것은?
    주마간산으로 데이터 형태를 살펴보고자 하는 것이겠죠?
    컬러는 5가지 이상이 되면, 가독성이 떨어지는 문제가 있기 때문입니다.

    몇개가 되든 조건부 서식으로 지정한다는 것은
    상당한 노력이 필요한 듯 하네요.

    이것을 VBA 로 작업해 보면,
    컬러 인덱스는 최대 56개로 제한됩니다. (아래 이미지 참조)

    56개 이상은 56을 나눈 나머지로 처리하는 방식으로
    VBA 코드를 작성했습니다.

    alt+F11 후 코드 삽입해서 실행해 보세요.
    감이 올 겁니다.

     

    Sub 칼러색상조정()
    
        Dim cSName As String
        Dim cRange As String
        Dim iRow As Long
        Dim iLoop As Long
        Dim iColotPalette As Integer    '// 1~56
        '// 칼러 번호 참조 : https://docs.microsoft.com/en-us/office/vba/api/excel.colorindex
        
        cSName = "Sheet1"   '// 시트명으로 조정
        cRange = "A3:A"     '// 데이터 위치
        
        
        iRow = Worksheets(cSName).Range("A3").CurrentRegion.Rows.Count - 1 + 2      '// 상단 2행이 비어 있고 한줄은 헤더
        For iLoop = 3 To iRow
            If Application.WorksheetFunction.CountIf(Worksheets(cSName).Range(cRange & iRow), Worksheets(cSName).Range("A" & iLoop)) > 1 Then
                iColotPalette = Application.WorksheetFunction.Match(Worksheets(cSName).Range("A" & iLoop), Worksheets(cSName).Range(cRange & iRow), 0) + 2
                
                iColotPalette = iColotPalette Mod 56
                If iColotPalette = 0 Then iColotPalette = 56
                
                Worksheets(cSName).Range("A" & iLoop).Interior.ColorIndex = iColotPalette
            End If
        Next iLoop
        Worksheets(cSName).Select
        Range("A1").Select
    End Sub
    

     

    20211015_233858.png


  • 2021-10-15 18:04

    @유령회원 님 보조열 구성했습니다.

    첨부파일 : 같은값-끼리-색칠조건부서식.xlsx


    • 2021-10-15 18:19

      @bobo 님 열이 드문드문 틀려도 같은 숫자는 같은 색깔 할수는 없나요 ㅜㅜ?


      • 2021-10-15 18:51

        @유령회원 님 a3값 복사-->a25에 붙여넣기 해보세요


        • 2021-10-15 18:54

          @bobo 님 각 데이터 값마다 전부 다른색은 안되나요


          • 2021-10-15 19:06

            @유령회원 님 우선 떠오르는 건

            값목록이 10개이면 10번 조건부서식 설정해야 할 것 같습니다.

            vba매크로 작업을 하더라도 값별 색상을 정해줘야겠네요.

            다른 방법이 있는지는...


전체 7,759
번호 카테고리 제목 작성자 작성일 추천 조회
알림
🎉다양한 이벤트와 함께 진행하는, PPT 보고서 디자인 특강 안내 - 9/24 (토) 오후 9시~ (15)
오빠두엑셀 | 2022.09.08 | 추천 9 | 조회 2292
오빠두엑셀 2022.09.08 9 2292
공지사항 함수/공식
[신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (3)
오빠두엑셀 | 2022.08.04 | 추천 4 | 조회 1636
오빠두엑셀 2022.08.04 4 1636
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (93)
오빠두엑셀 | 2021.10.28 | 추천 123 | 조회 7371
오빠두엑셀 2021.10.28 123 7371
42449 함수/공식
New 숫자만 추출하여 연산하기 엑셀파일
eexcell | 11:00 | 추천 0 | 조회 6
eexcell 11:00 - 6
42447 함수/공식
New 여러개의 날짜로 되어 있는 것을 특정 날짜로 개수를 count 하고자 하는데, 잘 안됩니다. ㅠ.ㅠ (1)
jrki**** | 10:12 | 추천 0 | 조회 12
jrki**** 10:12 - 12
42442 함수/공식
New 이름을 검색할수 있는 함수와 부가적 기능.. 첨부파일 (1)
gogoexcel | 03:23 | 추천 0 | 조회 19
gogoexcel 03:23 - 19
42441 VBA
New 재고관리에서 비율 자동 계산 방법 첨부파일
EXCELEXCEL | 01:21 | 추천 0 | 조회 22
EXCELEXCEL 01:21 - 22
42434 VBA
New 셀레니움을 통한 엣지 호출 첨부파일 (2)
로고테라피 | 2022.09.25 | 추천 0 | 조회 23
로고테라피 2022.09.25 - 23
42432 VBA
New get_db 명령어 관련 질문드립니다 첨부파일 (3)
EXCELEXCEL | 2022.09.25 | 추천 0 | 조회 33
EXCELEXCEL 2022.09.25 - 33
42427 기능/도구
New 엑셀 '안전모드' 실행하는 방법 질문드립니다. 첨부파일 (4)
월마리아 | 2022.09.25 | 추천 0 | 조회 34
월마리아 2022.09.25 - 34
42426 VBA
New 사진대지 VBA 매크로 수정 엑셀파일 (1)
WWW | 2022.09.25 | 추천 0 | 조회 26
WWW 2022.09.25 - 26
42414 기능/도구
New 엑셀로 가능한지 여쭤봅니다. 엑셀파일첨부파일 (1)
naver_5f055a605ee7d | 2022.09.24 | 추천 0 | 조회 60
naver_5f055a605ee7d 2022.09.24 - 60
42405 함수/공식
New 엑셀 INDEX MATCH 함수 질문드립니다. (다중조건) 첨부파일 (3)
임천명 | 2022.09.24 | 추천 0 | 조회 44
임천명 2022.09.24 - 44
42396 함수/공식
New 함수조언 엑셀파일 (1) 답변완료
엑셀공부중 | 2022.09.24 | 추천 0 | 조회 39
엑셀공부중 2022.09.24 - 39
42395 함수/공식
New 함수 결과값 자동 갱신 질문입니다 엑셀파일 (2)
lifeti**** | 2022.09.24 | 추천 0 | 조회 36
lifeti**** 2022.09.24 - 36
42391 VBA
New 검색어와 동일한 결과값에 하이라이트 색깔 넣기 첨부파일 (2) 답변완료
조지아 칸타타 | 2022.09.23 | 추천 0 | 조회 44
조지아 칸타타 2022.09.23 - 44
42390 VBA
New 검색어 입력시 같은 정보가 2개 반복되어... 첨부파일
조지아 칸타타 | 2022.09.23 | 추천 0 | 조회 29
조지아 칸타타 2022.09.23 - 29
42386 함수/공식
New 조건부서식 오류 엑셀파일첨부파일 (3)
Ngw77 | 2022.09.23 | 추천 0 | 조회 36
Ngw77 2022.09.23 - 36
42385 기능/도구
New 파일 가로로 통합하기(합치기) 질문입니다 첨부파일 (1)
감귤쫀드기 | 2022.09.23 | 추천 0 | 조회 36
감귤쫀드기 2022.09.23 - 36
42379 문서서식
New 가로로 작업했는데, 내용 보존?하면서 세로로 쉽게 바꿀 수 있는 방법이 있나요?? (1)
앨리 | 2022.09.23 | 추천 0 | 조회 50
앨리 2022.09.23 - 50
42378 차트/그래프
New 강우-유출량 그래프 분석 엑셀파일 (1)
chanyk | 2022.09.23 | 추천 0 | 조회 47
chanyk 2022.09.23 - 47
42377 함수/공식
New 한도액에서의 지원금 정산하기 엑셀파일 (2)
송인숙 | 2022.09.23 | 추천 0 | 조회 32
송인숙 2022.09.23 - 32
42374 함수/공식
New 각기 다른셀에 값 입력시 한셀에 날짜 자동 나타내기 (2)
MC쿠마 | 2022.09.23 | 추천 0 | 조회 27
MC쿠마 2022.09.23 - 27
42372 함수/공식
New 조건별 날짜계산 함수 계산 엑셀파일 (2) 답변완료
Ngw77 | 2022.09.23 | 추천 0 | 조회 43
Ngw77 2022.09.23 - 43
42367 기능/도구
New 엑셀2019에서 shift + 스크롤 (시트 좌우 스크롤) 되는건가요? 첨부파일 (4) 답변완료
월마리아 | 2022.09.22 | 추천 0 | 조회 44
월마리아 2022.09.22 - 44
42366 구글시트
New 스프레드 시트 필터함수 엑셀파일첨부파일 (5) 답변완료
거꾸로문 | 2022.09.22 | 추천 0 | 조회 49
거꾸로문 2022.09.22 - 49
42362 함수/공식
New NaverFinanceHistory 함수 연결 데이터 갱신 질문입니다 엑셀파일첨부파일
lifeti**** | 2022.09.22 | 추천 0 | 조회 34
lifeti**** 2022.09.22 - 34
42358 VBA
New VBA 텍스트 파일 저장 후 불러오기 질문드립니다. 엑셀파일
LovelyK | 2022.09.22 | 추천 0 | 조회 42
LovelyK 2022.09.22 - 42
42355 함수/공식
New 근속년수 산출 관련 문의 (4)
꼬맹이영 | 2022.09.22 | 추천 0 | 조회 63
꼬맹이영 2022.09.22 - 63
42354 함수/공식
New 세가지의 조건을 만족하는 값 불러오기 엑셀파일 (3) 답변완료
뎡이 | 2022.09.22 | 추천 0 | 조회 71
뎡이 2022.09.22 - 71
42348 차트/그래프
New 엑셀 일일 데이터관리 차트를 만들려고 합니다,,, 첨부파일 (2)
MC쿠마 | 2022.09.22 | 추천 0 | 조회 58
MC쿠마 2022.09.22 - 58
42342 기능/도구
New 엑셀 셀의 열너비, 행높이 고정 문의드립니다. (4)
함수시르미 | 2022.09.22 | 추천 0 | 조회 54
함수시르미 2022.09.22 - 54
42341 함수/공식
New  증가 또는 하락하는 함수 문의 합니다. 엑셀파일 (1) 답변완료
천형기 | 2022.09.22 | 추천 0 | 조회 45
천형기 2022.09.22 - 45