资源描述：
《根据数值大小改变图表系列的颜色》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、根据数值大小改变图表系列的颜色假设有一个一季度的库存数据存放在sheet2工作表的A1:B4区域中,并且由这些数据生成了一张柱形图表.图1再假设目前的库存警戒值设定为50,如果超过这个值,希望图表中对应的柱子变成红色来提醒,不超过50时柱子显示绿色.如果是针对数据表改变颜色,可以用"条件格式"来实现,但想让图表改变颜色就只能用VBA编写代码了.在sheet2工作表的底部标签上点鼠标右键,选"查看代码",调出该工作表的VBA窗口,把下面代码粘贴进去.图2Private Sub Worksheet_Change(ByVal Target As Range)x = Target.
2、Rowy = Target.Column'数值改变的区域为B列的B2:B4时,生成新的图表If y = 2 And x > 1 And x < 5 Then Call 生成图表Target.SelectEnd SubSub 生成图表()ActiveSheet.DrawingObjects.Delete '先删除表中的所有图表'下面是生成图表并设置图表格式Set t = Charts.AddWith t .ChartType = xlColumnClustered .SetSourceData Source:=Sheets("Sheet2").Range("A1:
3、b4"), PlotBy:=xlColumns '图表的源数据,其中最后一个参数表示系列产生在列 .Location Where:=xlLocationAsObject, Name:="Sheet2" '图表显示到sheet2工作表中End With'下面对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 A
4、ctiveChart.SeriesCollection(1).Points(i - 1).Interior.ColorIndex = b '设置图表的各个柱子的颜色NextEnd Sub从代码中可以看到,这是使用了sheet2工作表的Change事件来实现的,只要工作表中B2:B4区域中的数据被修改了,图表就会自动根据库存数改变颜色.上面的例子中,每次改变数据区域的值,都会删除旧的图表,再生成一个新的图表,有的朋友不喜欢这样,希望只生成一次图表,以后数据改变时,只针对该图表改变颜色,这样图表中的其他设置不受影响.用下面代码可以实现执行下面代码前,必须先手工生成一张B2:B4
5、区域的图表,且该图表在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单元格的值进行判断,如
6、果大于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下面是改变颜色后的图表注意B2单元格与B4单元格中的数值是大于50的,所以图表自动改变了对应的柱子颜色为红色.
