Excel에서 셀 색상에 따라 차트를 어떻게 색칠합니까?

일반적으로 차트를 생성할 때 열 막대의 색상은 기본값으로 설정됩니다. 아래 스크린샷과 같이 각 막대에 셀 색상을 기준으로 채우기 서식을 적용해야 하는 경우, Excel에서 이를 어떻게 해결할 수 있을까요?

VBA 코드를 사용하여 셀 색상에 따라 하나 또는 여러 데이터 시리즈로 차트 색칠하기

놀라운 기능을 사용하여 셀 색상에 따라 하나 또는 여러 데이터 시리즈로 차트 색칠하기

VBA 코드를 사용하여 셀 색상에 따라 하나 또는 여러 데이터 시리즈로 차트 색칠하기

셀 색상에 따라 하나의 데이터 시리즈로 차트 색칠하기

다음 VBA 코드를 사용하면 원래 셀 값의 색상에 따라 하나의 데이터 시리즈를 포함하는 차트의 색상을 빠르게 변경할 수 있습니다. 다음 단계를 따르세요:

1. 먼저, 다음과 같은 스크린샷에 표시된 바와 같이 막대 또는 히스토그램 차트를 생성합니다 (데이터를 선택하고 삽입 > 히스토그램 또는 막대 차트 삽입 클릭):

2. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

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 코드를 적용하세요:

1. 다음과 같은 스크린샷에 표시된 것처럼 여러 데이터 시리즈를 포함하는 막대 또는 히스토그램 차트를 생성하세요:

2. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

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. 이 코드는 선형 차트에도 적용할 수 있습니다.

놀라운 기능을 사용하여 셀 색상에 따라 하나 또는 여러 데이터 시리즈로 차트 색칠하기

위의 코드를 사용하면 차트의 색상이 항상 셀 색상과 일치하지 않을 수 있습니다. 이 문제를 해결하기 위해 여기에서는 Kutools for Excel의 '셀 색상에 따라 차트 색상 변경'이라는 유용한 도구를 소개하겠습니다. 이 편리한 기능을 사용하면 셀 색상에 따라 차트를 빠르고 쉽게 색칠할 수 있습니다.

Kutools for Excel 설치 후, 다음을 수행하세요:

1. 먼저 사용하려는 차트를 삽입하고 차트를 선택한 다음, Kutools > 차트 > 차트 도구 > 셀 색상에 따라 차트 색상 변경을 클릭하세요. 스크린샷을 참조하세요:

2. 그리고나서 팝업 창이 나타납니다. 확인 버튼을 클릭하세요.

3. 이제 선택한 차트가 아래 스크린샷과 같이 셀 색상에 따라 색칠되었습니다:

셀 색상에 따라 하나의 데이터 시리즈로 차트 색칠하기

셀 색상에 따라 여러 데이터 시리즈로 차트 색칠하기

지금 바로 Kutools for Excel을 다운로드하고 무료로 체험해 보세요!

관련 차트 기사 더 보기: