数据透视表 -- 显示和隐藏数据项

显示所有数据项
 
      在数据透视表中，每个字段右侧都有一个小箭头，点击可下拉打开一个数据项列表.
      1. 在Excel中, 除页字段这外其它字段下拉时都有一个包含复选框的列表，第一个复选框本身就有“显示全部”数据项. 
      2. 选中此复选框，将显示据有数据项.  
 
      隐藏数据项
 
      你可以隐藏一个字段的保留一个之外的其它数据项.
      1. 不选中“显示全部”及数据项复选框, 
      2. 至少选中其中一个数据项的复选框，并点击确定.   
      显示所有数据项
      在较早的Excel版本中, 在下拉框中没有“显示全部”一项, 你可以使用程序显示右隐藏多个字段. 下面代码可使得可视字段下拉表中有显示所有数据项的功能.  
Sub PivotShowItemAllVisible()
'sort is set to Manual to prevent errors, e.g.
'unable to set Visible Property of PivotItem class
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
For Each pt In ActiveSheet.PivotTables
   For Each pf In pt.VisibleFields
    pf.AutoSort xlManual, pf.SourceName
     For Each pi In pf.PivotItems
       If pi.Visible <> True Then
         pi.Visible = True
       End If
     Next pi
    pf.AutoSort xlAscending, pf.SourceName
   Next pf
Next pt
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub       
 
      隐藏数据项
      在较早的Excel版本中, 在下拉框中没有“显示全部”一项, 你可以使用程序显示右隐藏多个字段. 下面代码可使得可视字段下拉表中除最后一条数据项这外的其它所有的功能.  
Sub HidePivotItemsVisible()
'hide all pivot items in all tables on sheet
'except last item
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
For Each pt In ActiveSheet.PivotTables
   For Each pf In pt.VisibleFields
    pf.AutoSort xlManual, pf.SourceName
    For Each pi In pf.PivotItems
      If pi.Visible = False Then
        pi.Visible = True
      Else
        pi.Visible = False
      End If
    Next
  Next
  pf.AutoSort xlAscending, pf.SourceName
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub 
 
      隐藏页字段数据项
      页字段下拉框列表中不是复选框，你不能同时选中多个数据项. 你可以选择全部或可视数据项中的一个. 
使用下面的技巧可以显示多个数据项.
      1. 双击字段按钮调出面字段对话框. 
      2. 在隐藏数据项列表中, 选择你想隐藏的数据项. 

      3. 点击确定.