答案 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