基于单元格值为堆积柱形图着色的VBA宏开发求助

需求回顾 #

我有一个堆积柱形图，需要按以下规则设置颜色：

• 图表中对应B3:B15区域值等于E2的部分设为蓝色，否则设为粉色
• 该规则同样适用于F2、G2、H2（每个系列分别对应这四个目标值，按对应B列值判断上色）

我编写了部分VBA代码但无法完成完整功能，现有代码如下：

Sub ColorChart()
    Dim chartObj As ChartObject
    Dim series As series
    Dim i As Integer
    
    ' Assuming you have a chart object named "Chart 8"
    Set chartObj = ActiveSheet.ChartObjects("Chart 8")
    
    ' Loop through each series in the chart
    For Each series In chartObj.chart.SeriesCollection
        ' Loop through each point in the series
       'MsgBox (series.Points.Count)
      ' MsgBox (chartObj.chart.SeriesCollection.Count)
        For i = 1 To series.Points.Count
       MsgBox (series.Points(i).Name)

I have tried a series of other code, but I can't figure out what is working and what isn't.

完善后的代码 #

你的代码框架没问题，但缺少核心判断逻辑和颜色设置，且代码未闭合。以下是完整可运行的代码，附带注释说明：

Sub ColorChart()
    Dim chartObj As ChartObject
    Dim ser As Series ' 避免与内置关键字Series重名
    Dim i As Integer
    Dim targetVals As Variant
    Dim cellVal As Variant
    
    ' 存储E2、F2、G2、H2的目标值，与图表系列一一对应
    targetVals = Array(Range("E2").Value, Range("F2").Value, Range("G2").Value, Range("H2").Value)
    
    ' 指定目标图表
    Set chartObj = ActiveSheet.ChartObjects("Chart 8")
    
    ' 遍历图表中的每个系列
    For Each ser In chartObj.Chart.SeriesCollection
        ' 超出目标值数量时停止循环，避免报错
        If ser.Index > UBound(targetVals) + 1 Then Exit For
        
        ' 遍历当前系列的每个数据点
        For i = 1 To ser.Points.Count
            ' 获取B列对应行的值：第1个点对应B3，行号为2+i
            cellVal = ActiveSheet.Cells(2 + i, "B").Value
            
            ' 判断是否匹配对应系列的目标值，设置对应颜色
            If cellVal = targetVals(ser.Index - 1) Then
                ser.Points(i).Format.Fill.ForeColor.RGB = RGB(0, 128, 255) ' 蓝色
            Else
                ser.Points(i).Format.Fill.ForeColor.RGB = RGB(255, 192, 203) ' 粉色
            End If
        Next i
    Next ser
End Sub

关键细节说明 #

1. 变量命名优化：将series改为ser，避免与VBA内置的Series类型冲突，减少语法报错
2. 目标值关联：用数组存储E2:H2的目标值，通过系列索引ser.Index一一对应，确保每个系列使用正确的判断规则
3. 数据对应关系：图表第i个数据点对应B3+i-1单元格（即行号2+i），保证数据匹配准确
4. 颜色自定义：使用RGB函数设置颜色，可根据需求修改RGB参数调整颜色（比如浅蓝RGB(173,216,230)、深粉RGB(255,105,180)）

注意事项 #

• 确认图表名称为Chart 8，如果图表名称不同，修改ChartObjects("Chart 8")中的名称
• 确保B3:B15的行数与每个系列的点数一致，否则会触发下标越界错误
• 若目标值区域不是E2:H2，直接修改targetVals数组中的单元格引用即可

内容的提问来源于stack exchange，提问作者Kate