팁 : 다른 언어는 Google 번역입니다. 방문하실 수 있습니다. English 이 링크의 버전.
로그인
x
or
x
x
회원가입
x

or

Excel에서 셀 색을 기반으로 차트 색을 지정하는 방법?

일반적으로 차트를 만들 때 열 막대의 색이 기본값입니다. 표시된 스크린 샷과 같이 셀 색상을 기반으로 각 막대에 채워진 색상을 포맷해야하는 경우 Excel에서 어떻게 해결할 수 있습니까?

VBA 코드로 셀 색상을 기반으로하는 하나의 데이터 시리즈로 차트 색상 지정

VBA 코드로 셀 색을 기반으로 여러 데이터 계열로 차트 색 지정


VBA 코드로 셀 색상을 기반으로하는 하나의 데이터 시리즈로 차트 색상 지정


다음 VBA 코드를 사용하면 원래 셀 값의 색상을 기반으로 한 데이터 시리즈가 포함 된 차트의 색을 빠르게 변경할 수 있습니다.

1. 먼저 표시된 스크린 샷과 같이 막대 또는 세로 막 대형 차트를 만듭니다 (데이터 선택 및 클릭 끼워 넣다 > 열 또는 막대 차트 삽입):

2. 누르고있어. ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

3. 딸깍 하는 소리 끼워 넣다 > 모듈다음 코드를 모듈 창에 붙여 넣습니다.

VBA 코드 : 셀 색상을 기반으로하는 하나의 데이터 시리즈가있는 색상 표 막대 :

Sub ColorChartColumnsbyCellColor()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, xRows As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    With xChart.SeriesCollection(1)
        Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))
        xRows = xRg.Rows.Count
        Set xRg = xRg(1)
        For I = 1 To xRows
            .Points(I).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xRg.Offset(I - 1, 0).Interior.ColorIndex)
        Next
    End With
End Sub

주의 사항: 위의 코드에서, 차트 1 사용할 차트 이름입니다. 직접 변경하십시오.

4. 위의 코드를 붙여 넣은 후 F5 키를 눌러이 코드를 실행하고 차트 막대의 색이 원래 셀 색을 기준으로 변경되었습니다. 스크린 샷을 참조하십시오.


VBA 코드로 셀 색을 기반으로 여러 데이터 계열로 차트 색 지정

위의 코드는 하나의 데이터 시리즈 차트에만 적용 할 수 있습니다. 여러 데이터 시리즈의 차트 인 경우 다음 VBA 코드를 적용하십시오.

1. 아래의 스크린 샷과 같이 여러 데이터 시리즈가 포함 된 가로 막 대형 차트 또는 세로 막 대형 차트를 만드십시오.

2. 누르고있어. ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

3. 딸깍 하는 소리 끼워 넣다 > 모듈다음 코드를 모듈 창에 붙여 넣습니다.

VBA 코드 : 셀 색상을 기반으로하는 다중 데이터 계열의 색상 표 막대 :

Sub CellColorsToChart()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, J As Long
    Dim xRowsOrCols As Long, xSCount As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    xSCount = xChart.SeriesCollection.Count
    For I = 1 To xSCount
        J = 1
        With xChart.SeriesCollection(I)
            Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(2), "!")(1))
            If xSCount > 4 Then
                xRowsOrCols = xRg.Columns.Count
            Else
                xRowsOrCols = xRg.Rows.Count
            End If
            For Each xCell In xRg
                .Points(J).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                .Points(J).Format.Line.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                J = J + 1
            Next
        End With
    Next
End Sub

4. 그런 다음 F5 이 코드를 실행하기위한 키, 차트 막대는 한 번에 원래 셀 색으로 채워집니다. 스크린 샷보기 :

노트:

1. 위의 코드에서, 차트 1 사용할 차트 이름입니다. 직접 변경하십시오.

2. 이 코드는 꺾은 선형 차트에도 적용 할 수 있습니다.


Excel 용 Kutools는 대부분의 문제를 해결하고 생산성을 80 % 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 수식, 차트 그리고 당신이 전에 사용했던 것; 셀 암호화 비밀번호로; 메일 링리스트 만들기 그리고 이메일을 보내 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집); 레이아웃 읽기 (많은 셀을 쉽게 읽고 편집); 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 분할 셀 내용; 중복 행 / 열 결합... 중복 세포 방지; 범위 비교...
  • 복제 또는 고유를 선택하십시오. 행; 빈 행 선택 (모든 세포는 비어있다); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 랜덤 선택 ...
  • 정확한 사본 공식 참조를 변경하지 않는 다중 셀; 참조 자동 작성 여러 장에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 소계 생성 및 인쇄; 셀 내용과 주석 간 변환...
  • 수퍼 필터 (필터 구성표를 저장하고 다른 시트에 적용); 고급 정렬 월 / 주 / 일별, 빈도 등; 특수 필터 대담하고 기울임 꼴로
  • 통합 문서와 WorkSheets 결합; 키 열을 기준으로 테이블 병합 데이터를 여러 시트로 분할; 일괄 변환 xls, xlsx 및 PDF...
  • 300 이상의 강력한 기능. Office / Excel 2007-2019 및 365를 지원합니다. 모든 언어를 지원합니다. 기업이나 조직에 쉽게 배포 할 수 있습니다. 30 일 무료 평가판 전체 기능.
kte 탭 201905

Office 탭 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, 게시자, 액세스, Visio 및 프로젝트.
  • 새 창보다는 동일한 창에서 새 탭으로 여러 문서를 열고 만들 수 있습니다.
  • 50 %만큼 생산성을 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
오피셜
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Lisa · 10 months ago
    Thank you for the codes! How would you add a conditional format when the format is already established?
  • To post as a guest, your comment is unpublished.
    Armin · 1 years ago
    Thank you for these codes! This was exactly what I've been looking for with one detail not quite fitting. When I ran the code, the bar graphs colored in correctly but not legend which stayed unchanged. Is there a variation to the code that would include the legend? Or is there a way to match the Legend to the changes in the chart without a code?
  • To post as a guest, your comment is unpublished.
    WILLIAN GUSMÃO · 1 years ago
    If i have more charts in my sheet? do you have another code?