선생님... - 엑셀 VBA 차트 계열 색 변경 자동화 매크로

차트/그래프
작성자
rpaq****
작성일
2020-10-20 13:59
조회
1498

선생님답변 감사합니다.

선생님 답변대로 해보았으나 1~10번만 노랑이어야하는데 14 16등 1~10이외의 숫자도 노랑이되어서..

자료를첨부하여드립니다.

-------------------------------------------------------------------

 

안녕하세요 오빠두엑셀선생님 선생님께서 주신 답변 고심하고 연구해보려했지만

능력부족의 한계로 염치불구 계속문의를드리게되네요.. 로또와관련된것은아니나

로또가 예를들기 쉬울것 같아 로또로 예를 들겠습니다.

조건부서식으로 특정범위의 숫자를 색으로 나누었습니다.(1~10은 노랑 11~20은 파랑 ..등등)

그런데 이 조건부서식으로 만든 데이터를 분산형차트로 만들게 되면

계열색이 임의로지정되고 조건부서식으로 지정했던 범위별 색 분산형차트에 나타나지않아 문의드렸으나

매크로를 알려주셨는데 도저히 어떻게 적용하는지 감이안옵니다 ㅠㅠ 제가해보는데까지 해보고 문의드리려했는데

도저히...ㅠㅠ

이것이 첫번째 질문입니다.

두번째는 첨부한 그림과같이 분산형이든 꺽은선이든 좌에서 우로 x축 데이터가 나타나는걸

835~840~845 이걸 한번에 겹치게해서 분포도를 보고싶어서그렇습니다.. 그라데이션?해서 어느부분에 겹치는숫자가 많은지...

이상입니다..

전체 2

  • 2020-10-20 15:32

    안녕하세요.

    올려주신 파일을 확인해보니 이미 커스텀이 많이 되어 있어 제가 따로 수정해드리기는 어려워보입니다.^^

    대신 아래 예제파일을 작성하여 첨부해드리니 확인해보시고, 실제 사용중인 파일에 적절히 적용하시면 도움이 되실 듯 합니다.

    Sub 차트계열색변경()
    
    Dim cht As ChartObject
    Dim rng As Range
    Dim i As Long: Dim j As Long
    Dim c As Variant
    
    Set cht = Me.ChartObjects("차트")
    Set rng = Me.Range("B4:D8")
    
    For i = 1 To 5
        For j = 1 To 3
            Debug.Print rng.Cells(i, j).DisplayFormat.Interior.Color
            Debug.Print cht.Chart.FullSeriesCollection(j).Points(i).Format.Fill.ForeColor
            c = rng.Cells(i, j).DisplayFormat.Interior.Color
            cht.Chart.FullSeriesCollection(j).Points(i).Format.Fill.ForeColor.RGB = RGB((c Mod 256), ((c \ 256) Mod 256), (c \ 65536))
        Next
    Next
    
    End Sub

    첫번째 질문은 예제파일로 해결하시면 되겠으나, 두번째 질문은 차트 데이터를 수정하지 않는한 처리가 불가능합니다.

    2차원 차트에서 값의 겹침을 표현하려면, 값이 겹칠 경우 동일 값으로 취급하거나 또는 값의 크기를 배로 증가하여 버블차트로 표시할 수 있는데, 관련해서는 원하시는 방향으로 데이터를 수정하셔야 합니다.

    아래 버블차트 만들기 관련하여 네이버 포스트를 적어드리니 참고해보시길 바랍니다.

    https://m.blog.naver.com/PostView.nhn?blogId=poorsangel&logNo=221057462579&proxyReferer=https:%2F%2Fwww.google.com%2F

    만약 데이터 가공이 어렵다면, 아래 게시글에 답변을 드린 것처럼 2개의 표를 작성한 뒤 겹치는 방법으로 처리하실수도 있습니다.

    https://www.oppadu.com/question/?mod=document&pageid=1&keyword=%EB%B6%84%EC%82%B0%ED%98%95&uid=5983

    그라데이션으로 처리하는것은 저도 잘 모르겠네요..^^; 가능하다면 버블형차트로 구현하시는게 원하는 방향과 가장 근접하지 않을까 생각됩니다.

    답변이 도움이 되셨길 바랍니다.

    첨부파일 : 차트-색상-변경-자동화-매크로-예제.xlsm


전체 4,249
번호 카테고리 제목 작성자 작성일 추천 조회
4233 함수/공식
New x,y,z로 이루어진 방정식 두 개를 '해 찾기' 기능으로 풀 수 있을까요? (1)
고대하라 | 12:08 | 추천 0 | 조회 19
고대하라 12:08 0 19
4232 기능/도구
New 셀선택시 설명 팝업 (2)
HYODONG | 11:49 | 추천 0 | 조회 16
HYODONG 11:49 0 16
4231 피벗테이블
New 정규화에 대한 문의 첨부파일 (1)
광개토태왕 | 10:05 | 추천 0 | 조회 19
광개토태왕 10:05 0 19
4230 차트/그래프
New 원형 차트에 슬라이서 연결 시 표시 방법 문의 드립니다.
이찬우 | 09:48 | 추천 0 | 조회 16
이찬우 09:48 0 16
4229 함수/공식
New 대량의 데이터를 가지고 있는 다른 시트에서 중복값찾기 (4) 답변완료
라운 | 00:07 | 추천 0 | 조회 40
라운 00:07 0 40
4228 VBA
New 시간이 겹치거나 겹친 시간에 동일 이름이 중복될 경우 찾을려면 어떻게 하면 될까요? (3)
셀라푸우 | 2021.10.20 | 추천 0 | 조회 30
셀라푸우 2021.10.20 0 30
4227 VBA
New 데이터 범위설정 매크로 수식 (2)
젬마 | 2021.10.20 | 추천 0 | 조회 49
젬마 2021.10.20 0 49
4226 피벗테이블
New 피벗테이블 구성 (1)
광개토태왕 | 2021.10.20 | 추천 0 | 조회 38
광개토태왕 2021.10.20 0 38
4225 VBA
New (초보..)vba 웹크롤링(selenium 사용) 문자를 읽어오지않아 문의드립니다!! (4)
윌터너 | 2021.10.20 | 추천 0 | 조회 29
윌터너 2021.10.20 0 29
4224 함수/공식
New 함수 자동입력?
흑형 | 2021.10.20 | 추천 0 | 조회 51
흑형 2021.10.20 0 51
4223 기능/도구
New 구글 스프레드시트 이미지 인쇄 문제 (1)
민 쌤 | 2021.10.20 | 추천 0 | 조회 30
민 쌤 2021.10.20 0 30
4222 파워쿼리/피벗
New 파워쿼리 입문입니다. 시트 합치는 방법 질문드립니다. 첨부파일 (2)
월마리아 | 2021.10.19 | 추천 0 | 조회 51
월마리아 2021.10.19 0 51
4221 함수/공식
New 공부용 일정표 관련해서 자동 생성 질문드립니다.
1234느린열차 | 2021.10.19 | 추천 0 | 조회 31
1234느린열차 2021.10.19 0 31
4220 함수/공식
New 변화되는 값 추적하기 첨부파일 (1)
아자사랑 | 2021.10.19 | 추천 0 | 조회 47
아자사랑 2021.10.19 0 47
4219 함수/공식
New 셀에 포함된 특정단어 추출 함수 첨부파일 (5) 답변완료
마운틴 | 2021.10.19 | 추천 0 | 조회 68
마운틴 2021.10.19 0 68
4218 피벗테이블
New 피벗테이블에서 열 (레이블) 상위 10% 필터링 방법 문의 첨부파일 (3)
김성현19 | 2021.10.19 | 추천 0 | 조회 35
김성현19 2021.10.19 0 35
4217 함수/공식
New 다중조건으로 매출 순위 구하기 첨부파일 (8) 답변완료
newstar | 2021.10.19 | 추천 0 | 조회 56
newstar 2021.10.19 0 56
4216 파워쿼리/피벗
New Expression.Error: Table 형식의 값을 Binary 형식으로 변환할 수 없습니다 첨부파일 (3)
슝슝 | 2021.10.19 | 추천 0 | 조회 30
슝슝 2021.10.19 0 30
4215 함수/공식
New 행에서 시간만 나타내기 첨부파일 (6) 답변완료
드래군 | 2021.10.19 | 추천 0 | 조회 53
드래군 2021.10.19 0 53
4214 기능/도구
New QR 코드 만들기 첨부파일 (1)
맑고 향기롭게 | 2021.10.19 | 추천 0 | 조회 34
맑고 향기롭게 2021.10.19 0 34
4213 함수/공식
New --ISNUMBER의 의미 (2)
마운틴 | 2021.10.19 | 추천 0 | 조회 41
마운틴 2021.10.19 0 41
4212 함수/공식
New 엑셀 수식 가로로 하는법 첨부파일 (4)
KT | 2021.10.19 | 추천 0 | 조회 63
KT 2021.10.19 0 63
4211 함수/공식
New 유효성검사를 통해 다른시트의 데이터 중 매출액이 있는 데이터만 불러오는 방법 첨부파일 (6)
emp**** | 2021.10.19 | 추천 0 | 조회 42
emp**** 2021.10.19 0 42
4210 VBA
New 이미지넣는 매크로, 다시 열어보니 사진이 안떠요 (4) 답변완료
흑형 | 2021.10.19 | 추천 0 | 조회 43
흑형 2021.10.19 0 43
4209 함수/공식
New 조건에 맞는 값 추출될 수 있도록 수식 질문드립니다 첨부파일 (1) 답변완료
젬마 | 2021.10.19 | 추천 0 | 조회 48
젬마 2021.10.19 0 48
4208 기능/도구
New 하나 이상의 수식이 허용된 8,192자 제한보다 깁니다.
City0311 | 2021.10.19 | 추천 0 | 조회 21
City0311 2021.10.19 0 21
4207 VBA
New 재질문 : ParseJSON 함수 첨부파일 (3) 답변완료
하늘의 꿈 | 2021.10.19 | 추천 0 | 조회 29
하늘의 꿈 2021.10.19 0 29
4206 VBA
New 다른시트명 불러오기 vba (3)
야야야야구르트 | 2021.10.18 | 추천 0 | 조회 55
야야야야구르트 2021.10.18 0 55
4205 VBA
New 유저폼에서 리스트 검색 후, 선택목록 내용 보기 첨부파일 (7)
007 | 2021.10.18 | 추천 0 | 조회 52
007 2021.10.18 0 52
4204 함수/공식
New 변하는 변수값 고정시키기 첨부파일 (3)
아자사랑 | 2021.10.18 | 추천 0 | 조회 35
아자사랑 2021.10.18 0 35