Question

试图在我的纸浆桌上给各栏的字体贴上白色。

I tried doing it like this:

  Format column field headers
For Each pvtField In pvtTable.ColumnFields
    With pvtField.LabelRange
        .Interior.Color = RGB(0, 0, 77)   Dark Blue
        .Font.Color = RGB(255, 255, 255)   White
        .Font.Bold = True
    End With
Next pvtField

But it didnt work, then I tried a more manual way, like this:

  Column headers are the fith row in TableRange2
Set headerRow = pvtTable.TableRange2.Rows(5)
With headerRow
    .Interior.Color = RGB(0, 0, 77)   Dark Blue
    .Font.Color = RGB(255, 255, 255)   White
     .Font.ColorIndex = 2   White   White
    .Font.Bold = True
End With

第2条蓝色正确,但不是真白。

Any ideas?

Answer 1

利用<代码>TableRange2.Rows(5)查找负责人并不可靠。这取决于纸面上有多少页田。
TableRange1系指含有整个可用范围,但其中不包括页数。

Microsoft documentation:

PivotTable.TableRange1 property (Excel)

Microsoft documentation:

Application。工会方法(Excel)

Sub HighLightPvtHeader()
    Dim pvtTable As PivotTable, pvtField As PivotField
    Dim headerRow As Range
    Set pvtTable = Sheet1.PivotTables(1)
    With pvtTable.TableRange1.Rows(2)
        Set headerRow = .Resize(, .Columns.Count - 1).Offset(, 1)   modify as needed
    End With
    For Each pvtField In pvtTable.ColumnFields
        Set headerRow = Union(headerRow, pvtField.LabelRange)
    Next pvtField
    With headerRow
        .Interior.Color = RGB(0, 0, 77)   Dark Blue
        .Font.Color = vbWhite
        .Font.Bold = True
    End With
End Sub

友情链接