Office中国论坛/Access中国论坛

标题: (解决——谢谢老鬼斑竹，对的感谢如滔滔江水）图表里的各个系列能否根据值的范围改 [打印本页]

作者: ppsnow 时间: 2006-9-22 01:27
标题: (解决——谢谢老鬼斑竹，对的感谢如滔滔江水）图表里的各个系列能否根据值的范围改
[attach]20482[/attach]
如表中的report-by month 表的第二个图，各个柱子能否根据白分比的不同而改变颜色。

具体是：<90%  绿色

            90%~105%  黄色

               >105% 红色。

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

请各大虾帮个忙，很急。

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

作者: 老鬼 时间: 2006-9-22 09:18
我可没说你笨。

在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

作者: ppsnow 时间: 2006-9-25 16:22
何时偶才可以成为vba高手啊，，，，

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)