VBA Excel柱形图按值设置柱子颜色问题求助（附部分代码）

嘿，作为刚接触VBA的Excel新手，能找到Chart对象和SeriesCollection已经超棒啦！我来帮你补全代码，实现根据柱子对应数值自动设置颜色的功能。

完整代码示例 #

下面是可以直接用的完整代码，我加了详细注释，你能轻松看懂每一步：

Sub changeChartColumnColor()
    Dim ChtObj As ChartObject
    Dim mySrs As Series
    Dim myPt As Point ' 单个数据点对象，逐个处理柱子
    Dim pointValue As Double
    
    ' 遍历"MyWorkSheet"工作表里的所有图表
    For Each ChtObj In Worksheets("MyWorkSheet").ChartObjects
        ' 定位到你要修改的目标图表"My Chart"
        If ChtObj.Name = "My Chart" Then
            ' 遍历图表中的每一个数据系列（多列柱形图的每一组柱子就是一个系列）
            For Each mySrs In ChtObj.Chart.SeriesCollection
                ' 遍历当前系列里的每一根柱子（数据点）
                For Each myPt In mySrs.Points
                    ' 【关键】获取当前柱子对应的数值，推荐用这种方式（无需显示数据标签）
                    pointValue = mySrs.Values(myPt.Index)
                    
                    ' 这里是颜色判断逻辑，你可以完全自定义条件和颜色
                    If pointValue > 100 Then
                        myPt.Fill.ForeColor.RGB = RGB(255, 0, 0) ' 数值>100设为红色
                    ElseIf pointValue > 50 Then
                        myPt.Fill.ForeColor.RGB = RGB(0, 255, 0) ' 50<数值≤100设为绿色
                    Else
                        myPt.Fill.ForeColor.RGB = RGB(0, 0, 255) ' 数值≤50设为蓝色
                    End If
                Next myPt
            Next mySrs
            Exit For ' 找到目标图表后直接退出循环，不用再遍历其他图表啦
        End If
    Next ChtObj
End Sub

几个重要的细节说明 #

• 获取数值的可靠方式：我用了mySrs.Values(myPt.Index)来取数值，这种方法不需要开启数据标签，比myPt.DataLabel.Text更稳定，不会因为没显示标签报错。如果你的数值是文本格式，记得加CDbl()转成数值：pointValue = CDbl(mySrs.Values(myPt.Index))
• 只处理柱形系列：如果你的图表是组合图（比如混了折线），可以加个判断，只修改柱形的颜色：

  If mySrs.ChartType = xlColumnClustered Or mySrs.ChartType = xlColumnStacked Then
      ' 这里放遍历数据点的代码
  End If
  

• 颜色自定义：除了用RGB()函数，你也可以用VBA内置颜色常量，比如vbRed、vbGreen、vbYellow，写起来更简单。
• 效率优化：找到目标图表后加Exit For，避免无意义的遍历，小细节但很实用~

如果还有调整需求（比如按系列分组设置颜色、特殊值标记），随时改判断逻辑就行啦！

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