如何使图表系列根据单元格值更改颜色

Question

我正在尝试根据单元格中的特定值使图表系列（点）更改颜色。但是我不断收到对象所需的错误。

这是我的代码

Private Sub Worksheet_Change(ByVal Target As Range)

 If Target.Column = 12 And (Target.Row >= 2 And Target.Row <= 37) Then
  If Target.Value = "Stage Gate 5" Then Sheet15.ChartObjects(1).Chart.SeriesCollection(2).Points(1).Interior.Color = RGB(167, 34, 110)
  Else
  MsgBox ("error")
  End If
 End If
 End Sub

我的想法是，我有一个带有项目的条形图，上面有开始和结束日期，他们经过舞台大门我需要根据舞台大门改变颜色。

任何人都可以给予任何帮助将非常感激。

由于

Answer 1

试试这个：

Private Sub Worksheet_Calculate()

If Range("M2") = "Stage Gate 5" Then 
    Sheet15.ChartObjects(1).Chart.SeriesCollection(2).Points(1).‌​Interior.Color = RGB(167, 34, 110)
Else
    Msgbox "error"
End If

End Sub