Excel - 条形图中基于值的彩色条形图

时间:2018-05-22 08:45:57

标签: excel bar-chart

我有一张如下表:

enter image description here

从这张表中制作的图表:

enter image description here

现在我想根据值是> = 100%(然后是绿色)还是< 100%来格式化此图表中条形的颜色。

有什么办法吗?

提前致谢:)

1 个答案:

答案 0 :(得分:1)

您可以使用VBA根据值重新格式化条形码:

Sub BarChartConditionalFormat()
    Dim ser As Series
    Dim v() As Variant
    Dim i As Integer

    With ActiveSheet.ChartObjects("Chart 1").Chart
        For Each ser In .SeriesCollection
            v = ser.Values
            For i = LBound(v) To UBound(v)
                If v(i) >= 1 Then
                    ser.Points(i).Format.Fill.ForeColor.RGB = RGB(0, 255, 0)
                Else
                    ser.Points(i).Format.Fill.ForeColor.RGB = ser.Format.Fill.ForeColor
                End If
            Next i
        Next ser
    End With
End Sub