根据轴标签更改聚类条形图的颜色

Question

我正在尝试根据标签条件更改图表的颜色。

首先，这就是图表的样子。

我试图根据三个条件更改值。警告，危急和紧急情况。基本上每种条件都有三种不同的颜色。例如，所有紧急情况都是红色，所有紧急情况都是橙色，所有警告都是黄色。在我的情况下，“标题”是x轴，“临界”恰好是集群。

我试过跟踪线程 excel vba changing bar chart color for a data point based on point value

我也查看了这个帖子Changing Bar colors using VBA based on category label

我没有运气试图使用两个线程中的代码。

第二个帖子中的代码对我来说实际上是有道理的。

Dim c As Chart
Dim s As Series
Dim iPoint As Long
Dim nPoint As Long

Set c = ActiveChart
Set s = c.SeriesCollection(1)

nPoint = s.Points.Count
For iPoint = 1 To nPoint
    If s.XValues(iPoint) = "avg" Then
        s.Points(iPoint).Interior.Color = RGB(255, 0, 0)
    End If
Next iPoint

但不确定我应该改变哪些变量。欢迎任何帮助！

感谢。

Answer 1

s.XValues（iPoint）将包含Title和Criticality连接。 尝试改变：

If s.XValues(iPoint) = "avg" 

为：

If right(s.XValues(iPoint), 9) = "Emergency" 

通过这种方式，您将检查标签的最后9个字母是否恰好是“紧急”。

您应该能够修改代码，为Critical或Warning添加另一个条件。

希望得到这个帮助，

宏大师