更改 Excel 数据透视图中轴条的颜色

Question

我在 Excel 2016 年有这个数据透视图

如您所见，轴字段中有两个属性："Date" 和 "Category"。

"Category" 有两个可能的值：ASC 和 SBT。

现在，与任一值相关的条形颜色相同（红色和蓝色）。

我希望如果 "Category" 是 SBT，则条形的颜色必须不同（例如，黄色和绿色）。我怎样才能做到这一点？

谢谢

Answer 1

试试这个。

Sub test()
    Dim obj As ChartObject
    Dim cht As Chart
    Dim pnt As Point
    Dim Ws As Worksheet
    Dim s As String

    Set Ws = ActiveSheet
    Set obj = Ws.ChartObjects(1)
    Set cht = obj.Chart

    With cht
        .ApplyDataLabels
        For Each pnt In .SeriesCollection(1).Points
            With pnt.DataLabel
                .ShowCategoryName = True
                .ShowValue = False
            End With
            s = pnt.DataLabel.Text
            If InStr(s, "SBT") Then
               pnt.Format.Fill.ForeColor.RGB = RGB(255, 2255, 0)
            End If
             With pnt.DataLabel
                .ShowCategoryName = False
            End With
        Next pnt
        For Each pnt In .SeriesCollection(2).Points
            With pnt.DataLabel
                .ShowCategoryName = True
                .ShowValue = False
            End With
            s = pnt.DataLabel.Text
            If InStr(s, "SBT") Then
               pnt.Format.Fill.ForeColor.RGB = RGB(29, 219, 22)
            End If
             With pnt.DataLabel
                .ShowCategoryName = False
            End With
        Next pnt
    End With
End Sub

更改 Excel 数据透视图中轴条的颜色

Change color of axis bars in an Excel pivotchart

excel

vba

pivot-table

pivot-chart