将 Excel 工作表列映射到条形图颜色答案

【问题标题】：Map Excel worksheet column to Bar Graph color将 Excel 工作表列映射到条形图颜色
【发布时间】：2011-01-04 12:42:03
【问题描述】：

如果我有这样的图表：

        x   y
        1   3
        2   8
        3   9
        4   0
color   3   1

是否可以在 Excel (2007) 中创建一个条形图，其中有 X 和 Y 条形，并且每个条形的颜色索引可以与表格的最后一行（标记颜色）相关联？

【问题讨论】：

我想你的意思是 3 = 红色，1 = 黑色等？可以使用 VBA（我认为），但不确定是否可以使用 excel 中的开箱即用图表功能来完成...
是的，就是这个想法。我不熟悉VBA，但我会研究它。谢谢
您希望我提供 VBA 解决方案，还是您愿意自己研究一下？我会留给你的......
@Remnant - 抱歉回复晚了。我真的很感激这个解决方案

标签： excel bar-chart

【解决方案1】：

此 VBA sn-p 将绘制条形图并将列中的最终值用作条形的颜色索引。

要使用它，只需选择两列数据（包括标题和最后一行），然后在以下代码上点击F5：

Sub BarChartWithColors()
    Dim selectedRng As Range, chartRng As Range, colorRng As Range

    Set selectedRng = Selection
    Set chartRng = Range(Selection.Cells(1, 1), Selection.Cells(selectedRng.Rows.Count - 1, 2))
    Set colorRng = Range(Selection.Cells(selectedRng.Rows.Count, 1), Selection.Cells(selectedRng.Rows.Count, 2))

    Charts.Add
    ActiveChart.ChartType = xlBarClustered
    ActiveChart.SetSourceData Source:=chartRng, PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1" //Change sheet destination as appropriate
    ActiveChart.SeriesCollection(1).Interior.ColorIndex = colorRng.Cells(1, 1)
    ActiveChart.SeriesCollection(2).Interior.ColorIndex = colorRng.Cells(1, 2)
End Sub

【讨论】：

我对范围定义做了一些修改，现在可以使用了。谢谢