Excel2013中利用圆环图坐南丁格尔玫瑰图

目前的方案

按照博文内容在Excel 2013中没有实现效果，检查后发现原博文中的宏代码有一些遗漏，补全后，自己又减少了圆环的圈数，并修改了一部分宏代码如下：

Sub set_colors()
ActiveSheet.ChartObjects("mychart").Activate
For i = 1 To 12
For j = 1 To 20
    ActiveChart.FullSeriesCollection(j).Select
    ActiveChart.FullSeriesCollection(j).Points(i).Select
    If j <= Range("C" & (13 + i)) Then
       Selection.Format.Fill.Visible = msoTrue     '小于等于则显示填充色
    Else
       Selection.Format.Fill.Visible = msoFalse    '大于指标值则无填充色
    End If
Next
Next
End Sub

存在的问题

在将圈数变大时遇到一些问题暂时还没解决。
执行过一次宏命令后，将图形的色彩方案后再次执行宏命令，则没有效果。