如何在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.此代碼也可以應用於折線圖。

使用具有驚人功能的基於單元格顏色的一個或多個數據系列為圖表著色

通過使用上述代碼，圖表的顏色將不會始終與單元格顏色匹配，為解決此問題，在這裡，我將介紹一個有用的工具- 根據單元格顏色更改圖表顏色 of Excel的Kutools，借助此方便的功能，您可以快速輕鬆地根據單元格顏色為圖表著色。

安裝後 Excel的Kutools，請這樣做：

1。 首先，請插入要使用的圖表，然後選擇圖表，然後單擊 庫工具 > 圖表 > 圖表工具 > 根據單元格顏色更改圖表顏色，請參見屏幕截圖：

2。 然後彈出一個提示框，請點擊 OK 按鈕。

3。 現在，所選的圖表已根據單元格顏色進行了著色，如下圖所示：

使用基於單元格顏色的一個數據系列為圖表著色

根據單元格顏色為圖表添加多個數據系列

立即下載和免費試用Excel的Kutools！

更多相關圖表文章：