如何根据单元格颜色在Excel中为图表着色？

当你在 Excel 中创建标准图表时，例如柱状图或条形图，系列或数据点会被分配 Excel 的默认颜色，这可能与数据区域中的填充颜色不匹配。然而，在许多场景下——例如仪表板、报告或数据可视化——你希望图表的柱状图能够完全匹配已应用于源单元格的颜色。这有助于保持视觉一致性，使数据解读更加直观，或强化通过颜色作为意义提示的分类分组。例如，你可能希望图表中的每个柱子都能反映汇总表中应用的颜色编码，如下方截图所示。Excel 并未提供直接内置的功能来自动将单元格填充颜色（尤其是手动设置的颜色）映射到图表元素上，因此需要采用几种不同的方法，具体取决于单元格颜色是手动设置还是基于公式或规则。下方提供了多种实用解决方案，帮助你在不同场景下有效地实现这种对应关系。

使用 VBA 代码根据单元格颜色为具有一个或多个数据系列的图表着色

使用卓越功能根据单元格颜色为具有一个或多个数据系列的图表着色

使用 VBA 代码根据单元格颜色为具有一个或多个数据系列的图表着色

根据单元格颜色为单个数据系列的图表着色

如果你希望图表的柱状图继承相应单元格的填充颜色，并且你的颜色分配是手动完成的（不是通过条件格式或公式），可以使用VBA同步图表柱状颜色和原始单元格颜色。此技术特别适用于单一系列图表，其中视觉匹配对于清晰性或报告标准至关重要。

1. 首先，选择你的数据并创建一个条形图或柱状图。为此，请选择相关的单元格并点击 插入 > 插入柱形图或条形图。你应该会看到类似下方截图的默认图表：

2. 按 ALT + F11 打开Microsoft Visual Basic for Applications (VBA) 编辑器。

3. 在VBA窗口中，点击 插入 > 模块。然后，将以下代码复制并粘贴到模块窗口中。该脚本将更新每个图表柱以匹配其相应单元格的填充颜色。

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

4. 输入代码后，按F5运行宏。现在，图表柱应反映出源单元格的填充颜色，从而立即呈现出视觉上的对应关系，如下方截图所示：

这种方法适用于单元格填充颜色是手动设置并且预计频繁手动调整的情况下。不过请注意，如果单元格颜色发生变化，则需要重新运行VBA以更新图表，因为这种关联并非动态。此外，请记得将工作簿保存为启用宏的文件（.xlsm），以便代码得以保留。

根据单元格颜色为多数据系列的图表着色

如果你的图表包含多个数据系列（例如，多个产品随时间变化或不同类别），你可以使用类似的 VBA 方法将每个柱段或数据点与其源单元格的填充颜色相对应。这可以帮助你的报告保持视觉一致性，并让观众轻松在工作表和图表之间交叉引用数据。

1. 设置你的数据并创建一个多系列条形图或柱状图，如下所示：

2. 按 ALT + F11 打开 VBA 编辑器。

3. 在 VBA 窗口中，点击 插入 > 模块 并粘贴以下代码：

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 运行此代码。你的图表系列将更新以反映数据范围内的单元格填充颜色，如下图所示：

虽然此技术为你手动配色的数据提供了完全的控制和灵活性，但它无法处理通过条件格式或公式自动生成颜色的情况。在那些情况下，请参见下面基于公式的和条件格式化的解决方案以获取更多动态选项。

使用卓越功能根据单元格颜色为一个或多个数据系列的图表着色

尽管VBA可以同步图表颜色与单元格填充颜色，但其需要手动运行代码，并且一些用户可能对宏或VBA安全提示感到不适。如果你正在寻找一种更简化且交互性强的方法，Kutools for Excel中的“根据单元格颜色更改图表颜色”功能提供了一个高效的解决方案。该工具可自动将单元格填充颜色应用于相应的图表元素，无论你的图表中有一个还是多个数据系列，并且即使以后更新了单元格颜色（简单的重新应用即可刷新映射）。

安装完 Kutools for Excel 后，按照以下步骤操作：

1. 插入你想着色的图表。选择图表，然后导航至 Kutools > 图表 > 图表工具 > 根据单元格颜色更改图表颜色，如下图所示：

2. 当提示出现时，只需在弹出的对话框中点击 确定 即可。

3. 图表将立即更新以匹配你的单元格颜色，如下方示例所示：

根据单元格颜色为单个数据系列的图表着色

根据单元格颜色为多个数据系列的图表着色

此功能非常适合那些经常需要自动匹配图表颜色并希望获得可重复使用的解决方案的人，无论数据更新与否。相比手动格式化或运行宏，它节省了大量时间，特别是在多人编辑数据或图表展示的协作环境中尤为有用。

立即下载并免费试用 Kutools for Excel！

更多相关图表文章：