Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

18664 / 76732

←次へ　｜　前へ→


	【63507】Re:散布図グラフの点を数値によって色分けしたい

kanabun - 09/11/13(金) 21:53 -


	引用なし

	パスワード

▼Yu さん：

>タイトルの通りなのですが、散布図のグラフがありまして
>同じ行、別の列の数値（グラフには含まれない)によって
>その要素の色を変えたいと思っています。

つまりこういうことでしょうか？

Sub Try1()
　　Dim Cht As Chart
　　Dim Ser As Series
　　Dim ss As String
　　Dim rngY As Range
　　Dim v, i As Long
　　Dim co As Long
　　Dim bo As Long
　　Set Cht = ActiveSheet.ChartObjects(1).Chart
　　Set Ser = Cht.SeriesCollection(1)
　　ss = Ser.Formula　　　　　　　　　'系列の元データ範囲式より
　　Set rngY = Excel.Range(Split(ss, ",")(2)) 'Y軸データ範囲を取得
　　i = rngY.Column　　　　　　　　　　　　　 'その行範囲の
　　v = rngY.Offset(, 12 - i)　　　　　　　　 'L列の値を配列に入れる
　　For i = 1 To UBound(v)
　　　　Select Case v(i, 1)
　　　　　Case Is >= 84: co = 3: bo = 2
　　　　　Case Is >= 82: co = 7: bo = 2
　　　　　Case Is >= 80: co = 6: bo = 2
　　　　　Case Is >= 78: co = 4: bo = 2
　　　　　Case Is >= 76: co = 8: bo = 2
　　　　　Case Is >= 74: co = 5: bo = 2
　　　　　Case Else:　　 co = 2: bo = 2
　　　　End Select
　　　　With Ser.Points(i)
　　　　　　.MarkerBackgroundColorIndex = co
　　　　　　.MarkerForegroundColorIndex = bo
　　　　End With
　　Next
　　
End Sub

1 hits

▼

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