Excel VBA質問箱 IV

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

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


18669 / 76737 ←次へ | 前へ→

【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

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 発言

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