|
Option Explicit
'©
2005 Alla rättigheter XL-Dennis
Private Sub
Worksheet_PivotTableUpdate(ByVal
Target
As
PivotTable)
Dim
pfRowField
As
PivotField, pfColumnField
As
PivotField
Dim
piItem
As
PivotItem
'I
händelse av att rad- eller kolumnfält saknas.
On Error
Resume Next
'Loopar igenom samtliga radfält.
For Each
pfRowField In Target.RowFields
For Each
piItem In pfRowField.PivotItems
With
piItem.LabelRange
.Font.Bold =
True
.Font.ColorIndex =
2
.Interior.ColorIndex =
55
End With
Next
piItem
Next
pfRowField
'Loopar igenom samtliga kolumnfält.
For Each
pfColumnField In Target.ColumnFields
For Each
piItem In pfColumnField.PivotItems
With
piItem.LabelRange
.Font.Bold =
True
.Font.ColorIndex =
6
.Interior.ColorIndex =
15
End With
Next
piItem
Next
pfColumnField
On Error GoTo
0
End Sub
|