0

ラベルの条件に基づいてグラフの色を変更しようとしています。

まず、グラフはこんな感じ。 グラフ画像

3つの条件に基づいて値を変更しようとしていました。警告、重大、緊急。条件ごとに基本的に 3 つの異なる色を使用します。たとえば、すべての緊急事態は赤、すべての緊急事態はオレンジ色、すべての警告は黄色です。私の場合、「タイトル」はx軸で、「重要度」はたまたまクラスターです。

ポイント値に基づいてデータポイントの棒グラフの色を変更するスレッドExcel VBAをたどってみ ました

このスレッドも見ました カテゴリーラベルに基づいてVBAを使用してバーの色を変更する

両方のスレッドのコードを使用しようとしてもうまくいきませんでした。

2 番目のスレッドのこのコードは、実際に私の場合に使用する意味がありました。

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 に答える