柱状图根据不同的状态自动调整颜色

zipper126 · 发表于 2021-5-10 15:50

各位大神，
我想把附件的排序的柱状图根据Plan Do Check 和act的状态进行颜色更改（自动更改），比如Plan的为绿色，Do为蓝色...
请教各位是否可以用公式设置，或者VBA，请教了很多同事，他们都搞不定，还是在坛子里寻求大家的帮助，谢谢！

zipper126 · 发表于 2021-5-10 16:55

在线等呀。。。求助大神

493861364 · 发表于 2021-5-10 18:27

Sub test()
ActiveSheet.ChartObjects("图表 1").Activate
For i = 1 To ActiveChart.FullSeriesCollection(1).Points.Count
For j = 1 To 6
If Range("j" & 1 + i) = Range("m" & 1 + j) Then
ActiveChart.FullSeriesCollection(1).Points(i).Format.Fill.Visible = msoTrue
ActiveChart.FullSeriesCollection(1).Points(i).Format.Fill.ForeColor.RGB = Range("n" & 1 + j).Interior.Color
End If
Next
Next
End Sub

复制代码

祝洪忠- · 发表于 2021-5-10 21:54

插入数据透视图然后调整系列间距，分别设置各个系列的颜色试试看

数据透视图.rar (25.44 KB, 下载次数: 14)

zipper126 · 发表于 2021-5-11 08:06

493861364 发表于 2021-5-10 18:27

谢谢

zipper126 · 发表于 2021-5-11 08:07

祝洪忠- 发表于 2021-5-10 21:54
插入数据透视图然后调整系列间距，分别设置各个系列的颜色试试看

谢谢

		自动登录	找回密码
密码			免费注册

[已解决] 柱状图根据不同的状态自动调整颜色