改变单点的颜色与VBA

Question

我比较两个系列，如果第二系列的值小于给定x值的1日，我想为这第二系列的红酒吧。我尝试了以下一些其他论坛的答案，并得到了这一点，但现在我卡...

Public Sub Bar_Colour() 

Dim c As Chart 
Dim p As Series 
Dim a As Series 
Dim iPoint As Long 
Dim nPoint As Long 

Set c = ActiveChart 
Set s = ActiveChart.SeriesCollection(1) 
Set a = ActiveChart.SeriesCollection(2) 

nPoint = s.Points.Count 

For iPoint = 1 To nPoint 
    If a.Points(iPoint).Value < s.Points(iPoint).Value Then 
     a.Points(iPoint).Interior.Color = RGB(255, 0, 0) 
    End If 
Next iPoint 

End Sub 

谢谢！

Answer 1

Public Sub Bar_Colour() 

Dim c As Chart 
Dim p As Series 
Dim a As Series 
Dim iPoint As Long 
Dim nPoint As Long 

Set c = ActiveChart 
Set s = ActiveChart.SeriesCollection(1) 
Set a = ActiveChart.SeriesCollection(2) 

nPoint = s.Points.Count 

For iPoint = 1 To nPoint 
    If a.Values(iPoint) < s.Values(iPoint) Then 
     a.Points(iPoint).Interior.Color = RGB(255, 0, 0) 
    End If 
Next iPoint 

End Sub