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

함수/공식
작성자
유령회원
작성일
2021-10-15 17:34
조회
225
엑셀버전 : 엑셀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매크로 작업을 하더라도 값별 색상을 정해줘야겠네요.

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


전체 4,679
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (10)
오빠두엑셀 | 2021.10.28 | 추천 16 | 조회 753
트로피 오빠두엑셀 2021.10.28 16 753
24253 함수/공식
New 파일과 관련된 숫자를 다른 파일에 있는 숫자로 변경할 수 있는 방법 첨부파일 (1)
안녕 | 2021.12.02 | 추천 0 | 조회 11
안녕 2021.12.02 0 11
24252 함수/공식
New 표 범위 내에서 맨 좌측값 가져오기 질문드립니다. (2)
김성환 | 2021.12.02 | 추천 0 | 조회 12
김성환 2021.12.02 0 12
24251 기능/도구
New 엑셀 주식 가격 예측 양식 사용 질문입니다. 첨부파일 (1)
thause | 2021.12.02 | 추천 0 | 조회 18
thause 2021.12.02 0 18
24249 VBA
New 모든 하위 폴더 내의 최신 파일 하나만을 특정 폴더로 복사하려 합니다
너의나라 | 2021.12.02 | 추천 0 | 조회 17
너의나라 2021.12.02 0 17
24248 차트/그래프
New 그래프에서 가로 축 Data 설정하는 법 첨부파일
Etter | 2021.12.02 | 추천 0 | 조회 20
Etter 2021.12.02 0 20
24245 VBA
New 아웃룩 이메일 내용에 VBA 변수 넣기 (1)
argus | 2021.12.02 | 추천 0 | 조회 21
argus 2021.12.02 0 21
24239 VBA
New [초보] 웹 크롤링 관련 질문입니다. 첨부파일 (2) 답변완료
스캐쳐 | 2021.12.02 | 추천 0 | 조회 24
스캐쳐 2021.12.02 0 24
24238 VBA
New 어떤 한 배열에서 다른 배열에 있는 값만 제외하고 새로운 배열3을 만들 수 있을까요? (2)
Paul | 2021.12.02 | 추천 0 | 조회 24
Paul 2021.12.02 0 24
24233 함수/공식
New 0이상의 값(유효값)이 있는 칼럼과 그 값을 불러오고 싶습니다. 첨부파일 (2) 답변완료
크놉스 | 2021.12.02 | 추천 0 | 조회 25
크놉스 2021.12.02 0 25
24232 차트/그래프
New 엑셀 차트에서 특정 값이 너무 높을때 차트화 하는 법 (2) 답변완료
담담 | 2021.12.02 | 추천 0 | 조회 31
담담 2021.12.02 0 31
24230 VBA
New vba 코딩을 부탁드립니다. 첨부파일 (2)
Trimman | 2021.12.02 | 추천 -2 | 조회 33
Trimman 2021.12.02 -2 33
24228 함수/공식
New 등급 기준표를 참조해서 연산을 하려고 할때 (1) 답변완료
지천 | 2021.12.02 | 추천 0 | 조회 22
지천 2021.12.02 0 22
24221 파워쿼리/피벗
New 엑셀 종속 테이블 문의 첨부파일 (2)
유령회원 | 2021.12.02 | 추천 0 | 조회 22
유령회원 2021.12.02 0 22
24216 VBA
New 로그인엑셀 사용시 수식입력줄 사라짐, 모든 엑셀창 자동종료 첨부파일 (1)
엑셀이 | 2021.12.02 | 추천 0 | 조회 19
엑셀이 2021.12.02 0 19
24215 VBA
New set_routine 반복 매크로 (1)
하늘의 꿈 | 2021.12.01 | 추천 0 | 조회 24
하늘의 꿈 2021.12.01 0 24
VBA
New 재질문 입니다.
하늘의 꿈 | 2021.12.02 | 추천 0 | 조회 12
하늘의 꿈 2021.12.02 0 12
24213 파워쿼리/피벗
New [파워쿼리] 계약자코드 중 특수계약 날짜가 일반계약 최소 최대 사이에 포함여부 열추가 첨부파일 (1)
seorin | 2021.12.01 | 추천 0 | 조회 20
seorin 2021.12.01 0 20
24211 VBA
New 시트를 메일머지하여 Hancom PDF 파일로 출력하는 매크로 VBA 코드 도움을 받고 싶어요. 첨부파일 (4) 답변완료
김학동 | 2021.12.01 | 추천 0 | 조회 34
김학동 2021.12.01 0 34
24210 함수/공식
New 혹시 이런 것도 구할 수 있을까요? (3)
마른막대기 | 2021.12.01 | 추천 0 | 조회 38
마른막대기 2021.12.01 0 38
24207 함수/공식
New 중복값 중 제일 마지막 값 추출 (2)
rladud99 | 2021.12.01 | 추천 0 | 조회 39
rladud99 2021.12.01 0 39
24203 함수/공식
New 엑셀 값 가로/세로 변경하는 방법 문의드려요! 첨부파일 (2) 답변완료
이시현 | 2021.12.01 | 추천 0 | 조회 38
이시현 2021.12.01 0 38
24200 함수/공식
New 데이터를 일정간격으로 띄워서 입력하고 싶습니다. (8) 답변완료
wlfl**** | 2021.12.01 | 추천 0 | 조회 47
wlfl**** 2021.12.01 0 47
24191 함수/공식
New 일치하는 값에 특정 데이터를 넣고싶습니다. (1)
노랑토끼 | 2021.12.01 | 추천 0 | 조회 54
노랑토끼 2021.12.01 0 54
24188 VBA
New VBA에서 이름이 긴 파일이 있는데 그 파일 이름을 바꾸고 싶습니다.(상세설명 필수) (2)
naver_618c988d51534 | 2021.12.01 | 추천 0 | 조회 31
naver_618c988d51534 2021.12.01 0 31
24184 문서서식
New 엑셀 자동채우기 관련 문의 (1) 답변완료
오문환 | 2021.12.01 | 추천 0 | 조회 42
오문환 2021.12.01 0 42
24182 함수/공식
New 줄바꿈 함수 도와주세요 첨부파일 (3)
김상준 | 2021.12.01 | 추천 1 | 조회 43
김상준 2021.12.01 1 43
24177 기능/도구
New 매크로 와 자동필터
FLOWERBALL | 2021.11.30 | 추천 0 | 조회 48
FLOWERBALL 2021.11.30 0 48
24168 VBA
New (문의) 번호가 같을경우 옆에 있는 셀의 값을 병합 (1)
ryan_cruze | 2021.11.30 | 추천 0 | 조회 44
ryan_cruze 2021.11.30 0 44
24166 기능/도구
New 질문있습니다.
최강씨맨 | 2021.11.30 | 추천 0 | 조회 34
최강씨맨 2021.11.30 0 34
24163 함수/공식
New 엑셀 특정 내용 추출하는 수식 질문드립니다. (2)
PAKSAW | 2021.11.30 | 추천 0 | 조회 52
PAKSAW 2021.11.30 0 52
24161 함수/공식
New 특정 날짜 값 찾기 (2)
ㄱ박민극 | 2021.11.30 | 추천 -1 | 조회 47
ㄱ박민극 2021.11.30 -1 47