《根据数值大小改变图表系列的颜色》由会员分享，可在线阅读，更多相关《根据数值大小改变图表系列的颜色（4页珍藏版）》请在金锄头文库上搜索。
1、根据数值大小改变图表系列的颜色假设有一个一季度的库存数据存放在 sheet2工作表的 A1:B4区域中,并且由这些数据生成了一张柱形图表.图 1再假设目前的库存警戒值设定为 50,如果超过这个值,希望图表中对应的柱子变成红色来提醒,不超过 50时柱子显示绿色.如果是针对数据表改变颜色,可以用条件格式来实现,但想让图表改变颜色就只能用 VBA编写代码了.在 sheet2工作表的底部标签上点鼠标右键,选查看代码,调出该工作表的 VBA窗口,把下面代码粘贴进去.图 2Private Sub Worksheet_Change(ByVal Target As Range)x = Target.Rowy
2、= Target.Column数值改变的区域为 B列的 B2:B4时,生成新的图表If y = 2 And x 1 And x 50 Thenb = 3 大于 50变红色(3 是红色的代码)Else b = 10 小于 50为绿色(10 是绿色的代码)End IfActiveChart.SeriesCollection(1).Points(i - 1).Interior.ColorIndex = b 设置图表的各个柱子的颜色NextEnd Sub从代码中可以看到,这是使用了 sheet2工作表的 Change事件来实现的,只要工作表中 B2:B4区域中的数据被修改了,图表就会自动根据库存数改变
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 50 Thenb = 3 大于 50变红色(3 是红色的代码)Elseb = 10 小于 50为绿色(10 是绿色的代码)End IfActiveChart.SeriesCollection(1).Points(i - 1).Interior.ColorIndex = b 设置图表的各个柱子的颜色NextEnd Sub下面是改变颜色后的图表注意 B2单元格与 B4单元格中的数值是大于 50的,所以图表自动改变了对应的柱子颜色为红色.
