(解决——谢谢老鬼斑竹，对的感谢如滔滔江水）图表里的各个系列能否根据值的 范围改

ppsnow

如表中的report-by month 表的第二个图，各个柱子能否根据白分比的不同而改变颜色。

具体是 ：<90%  绿色

                90%~105%  黄色

                 >105% 红色。

怎么编程呢，弄了好久，还是不会（声明：老鬼已提示过），老鬼骂我笨吧，我实在不行了。。。。。。。

请各大虾帮个忙，很急。

[此贴子已经被作者于2006-9-22 14:06:17编辑过]

ppsnow

何时偶才可以成为vba高手啊，，，，

老鬼

我可没说你笨。

在report-by month表中建下面的宏，然后将这个宏指定到表中的下拉框。

Sub chartColor()
i = 1
ActiveSheet.ChartObjects(2).Activate
    With ActiveChart.SeriesCollection(1)
        For Each CEL In Range("aa21:af21")
            Select Case CEL.Value
                Case Is < 0.9
                    .Points(i).Interior.ColorIndex = 4
                Case 0.9 To 1.05
                    .Points(i).Interior.ColorIndex = 27
                Case Is > 1.05
                    .Points(i).Interior.ColorIndex = 3
            End Select
            i = i + 1
        Next
    End With
End Sub