根据数值大小改变图表系列的颜色

1、假设有一个一季度的库存数据存放在sheet2工作表的A1:B4区域中,并且由这些数据生成了一张柱形图表.再假设目前的库存警戒值设定为50,如果超过这个值,希望图表中对应的柱子变成红色来提醒,不超过50时柱子显示绿色.

3、用下面代码可以实现执行下面代码前,必须先手工生成一张B2:B4区域的图表,且该图表在sheet2表中的图表ID为1(最好除这一张图表外,没有其他图表).Private Sub Worksheet_Change(ByVal Target As Range)x = Target.Rowy = Target.Column'数值改变的区域为B列的B2:B4时,生成新的图表If y = 2 And x > 1 And x < 5 Then Call 图表变色Target.SelectEnd SubSub 图表变色()ActiveSheet.ChartObjects(1).Activate '激活第一张图表'下面对B2:B4单元格的值进行判断,如果大于50就变成红色For i = 2 To 4 If Range("B" & i) > 50 Then b = 3 '大于50变红色(3是红色的代码) Else b = 10 '小于50为绿色(10是绿色的代码) End If ActiveChart.SeriesCollection(1).Points(i - 1).Interior.ColorIndex = b '设置图表的各个柱子的颜色NextEnd Sub

4、下面是改变颜色后的图表注意B2单元格与B4单元格中的数值是大于50的,所以图表自动改变了对应的柱子颜色为红色.