如何根據儲存格顏色在 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

注意：在上述代碼中，Chart 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. 在上述代碼中，Chart 1 是您要使用的圖表名稱，請將其更改為您自己的圖表名稱。

2. 此代碼也適用於折線圖。

使用一項驚人的功能根據儲存格顏色為包含一個或多個數據系列的圖表著色

通過使用上述代碼，圖表的顏色不會始終與儲存格顏色匹配，為了解決這個問題，這裡我將介紹一個有用的工具 - Kutools for Excel 的 根據儲存格顏色改變圖表顏色 功能，使用這個便捷的功能，您可以快速輕鬆地根據儲存格顏色為圖表著色。

安裝 Kutools for Excel 後，請按照以下步驟操作：

1. 首先，請插入您要使用的圖表，然後選擇該圖表，接著點擊 Kutools > 圖表 > 圖表工具 > 根據儲存格顏色改變圖表顏色，請參見截圖：

2. 接著，會彈出一個提示框，請點擊 確定 按鈕。

3. 現在，您選擇的圖表已根據儲存格顏色進行了著色，如下方截圖所示：

根據儲存格顏色為包含單個數據系列的圖表著色

根據儲存格顏色為包含多個數據系列的圖表著色

立即下載並免費試用 Kutools for Excel！

更多相關圖表文章：