Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


18667 / 76732 ←次へ | 前へ→

【63504】散布図グラフの点を数値によって色分けしたい
質問  Yu  - 09/11/13(金) 16:14 -

引用なし
パスワード
   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のような小数点一桁の数値です。
間違っている点のみマクロを走らせても解決しません。

何かおかしなところがありましたら教えてください。
よろしくお願いします。

0 hits

【63504】散布図グラフの点を数値によって色分けしたい Yu 09/11/13(金) 16:14 質問
【63506】Re:散布図グラフの点を数値によって色分け... Jaka 09/11/13(金) 17:16 発言
【63534】Re:散布図グラフの点を数値によって色分け... Yu 09/11/16(月) 10:29 お礼
【63507】Re:散布図グラフの点を数値によって色分け... kanabun 09/11/13(金) 21:53 発言
【63538】Re:散布図グラフの点を数値によって色分け... Yu 09/11/16(月) 14:53 発言
【63539】Re:散布図グラフの点を数値によって色分け... yoshi 09/11/16(月) 17:12 回答
【63547】Re:散布図グラフの点を数値によって色分け... Yu 09/11/17(火) 10:40 発言
【63552】Re:散布図グラフの点を数値によって色分け... yoshi 09/11/17(火) 13:25 回答
【63569】Re:散布図グラフの点を数値によって色分け... Yu 09/11/18(水) 14:05 お礼
【63559】Re:散布図グラフの点を数値によって色分け... n 09/11/17(火) 21:03 発言
【63570】Re:散布図グラフの点を数値によって色分け... Yu 09/11/18(水) 14:09 お礼
【63583】Re:散布図グラフの点を数値によって色分け... n 09/11/19(木) 0:57 発言

18667 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free