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

【问题标题】：Excel - coloured bars in bar chart based on valueExcel - 基于值的条形图中的彩色条
【发布时间】：2018-10-31 23:17:25
【问题描述】：

我有一个如下表：

以及由这张表制作的图表：

现在我想根据值是 >=100%（然后是绿色）还是

有什么办法吗？

提前致谢:)

【问题讨论】：

到目前为止你研究/尝试了什么？
我发现的唯一一件事是我需要在第 1 和第 2 行再添加一行，然后如果值大于 100%，它将在上单元格中，在下面的单元格中以相反的方式，这行得通，但是在第一个和第二个小节之间有一些空闲空间，我想避免它们。

标签： excel bar-chart

【解决方案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

【讨论】：

这正是我想要的。非常感谢！ :)