Tô màu biểu đồ Doughnut theo điều kiện (2 người xem)

[curet]

Chào các bạn, mình muốn vẽ 1 biểu đồ theo dữ liệu như file đính kèm.
Mình nhờ các bạn tô màu biểu đồ theo điều kiện ở cột D.
Mong các bạn giúp đỡ. Cảm ơn nhiều.

 

[leonguyenz]

Chào các bạn, mình muốn vẽ 1 biểu đồ theo dữ liệu như file đính kèm.
Mình nhờ các bạn tô màu biểu đồ theo điều kiện ở cột D.
Mong các bạn giúp đỡ. Cảm ơn nhiều.

Bạn tô màu từng vị trí theo D314 rồi chạy code sau:

Sub ToMauBD()
Dim i As Byte, Clr As Variant
For i = 1 To 12
    Clr = Sheet2.Range("D2").Offset(i).Interior.Color
    ActiveSheet.ChartObjects("Chart 8").Activate
    ActiveChart.FullSeriesCollection(1).Points(i).Format.Fill.ForeColor.RGB = Clr
Next i
End Sub

 

[curet]

Mình chạy code bị lỗi. Bạn giúp mình được không?

 

[leonguyenz]

Mình chạy code bị lỗi. Bạn giúp mình được không?

Tôi dùng Excel 2016 chạy bình thường.
Bạn thử chạy code sau:

Sub ToMauBD()
Dim i As Byte, Clr As Variant
For i = 1 To 12
    Clr = Sheet2.Range("D2").Offset(i).Interior.Color
    Sheet2.ChartObjects(1).Chart.SeriesCollection(1).Points(i).Format.Fill.ForeColor.RGB = Clr
Next i
End Sub

 

[curet]

Mình dùng Excel 2010. Cám ơn bạn đã giúp đở.