0

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

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

我试图根据三个条件更改值。警告、紧急和紧急情况。基本上每个条件都有三种不同的颜色。例如，所有紧急情况均为红色，所有紧急情况均为橙色，所有警告均为黄色。在我的例子中，“标题”是 x 轴，而“关键性”恰好是集群。

我尝试按照线程 excel vba 根据点值更改数据点的条形图颜色

我还查看了这个线程使用基于类别标签的 VBA 更改条形颜色

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

来自第二个线程的这段代码实际上对我来说是有意义的。

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

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

谢谢。

4

1 回答 1

2

s.XValues(iPoint) 将包含连接的 Title 和 Criticality。尝试改变：

If s.XValues(iPoint) = "avg"

至：

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

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

您应该能够修改您的代码，为严重或警告添加另一个条件。

希望这有帮助，

宏观大师

于 2013-09-06T11:44:23.357 回答