|
あ、すいません。先のコードだと体温と関係ないですね。
Sub Point_Col()
Dim Num As Single
Dim i As Integer, Cl As Integer
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
For i = 1 To .Points.Count
Num = CSng(.DataLabels(i).Value)
If Num > 35 And Num <= 36 Then
Cl = 5
ElseIf Num > 36 And Num <= 37 Then
Cl = 6
Else
Cl = 3
End If
.Points(i).MarkerForegroundColorIndex = Cl
.Points(i).MarkerBackgroundColorIndex = Cl
Next i
End With
End Sub
で、どうでしょーか ?
プロットしている範囲をチェックしていくやり方の方が確実ですが、上のコードで
うまくいかなかったら、もう一度プロット元の表をUPして下さい。A列からで。
|
|