|
OS;WinXPpro,Excel2002
タイトルの通りなのですが、散布図のグラフがありまして
同じ行、別の列の数値(グラフには含まれない)によって
その要素の色を変えたいと思っています。
例)
A B C・・・L
1 3 6 5
2 6 8 9
3 5 9 7
4 7 11 8
散布図はA1:B4で作り、Lの数値によって
L=5→赤、L=6→緑・・・のように各点の色を変えたいのです。
作製したコードです。(例と数字は違います)
Sub test01()
Dim ritu As single
For i = 2 To 500 '最下行数
ActiveChart.SeriesCollection(1).Points(i).Select
With Selection
Worksheets("sheet1").Activate
ritu = Cells(i, "L").Value
Select Case ritu
Case Is >= 84
.MarkerBackgroundColorIndex = 3 '赤
.MarkerForegroundColorIndex = 2
Case Is >= 82
.MarkerBackgroundColorIndex = 7 'マゼンダ
.MarkerForegroundColorIndex = 2
Case Is >= 80
.MarkerBackgroundColorIndex = 6 '黄
.MarkerForegroundColorIndex = 2
Case Is >= 78
.MarkerBackgroundColorIndex = 4 '黄緑
.MarkerForegroundColorIndex = 2
Case Is >= 76
.MarkerBackgroundColorIndex = 8 'シアン
.MarkerForegroundColorIndex = 2
Case Is >= 74
.MarkerBackgroundColorIndex = 5 '青
.MarkerForegroundColorIndex = 2
End Select
End With
Next i
End Sub
・・・・・・・・・・・
セルの色分けで動くことを確認の上、手直しして
500点くらいあるグラフに適用したのですが
色分けが間違っている要素がいくつかあります。
例えば、L列;79.4なのに黄色に色分けされているとか。
(いくつかの点で確認して、大体は合っているのですが)
参照しているL列の数値は82.6、79.4のような小数点一桁の数値です。
間違っている点のみマクロを走らせても解決しません。
何かおかしなところがありましたら教えてください。
よろしくお願いします。
|
|