在Excel表格的使用中，熟练掌握一些数据操作技巧还是很使用的，比如需要显示和隐藏数据项。以下是小编为您带来的关于Excel数据透视表显示和隐藏数据项，希望对您有所帮助。
Excel数据透视表显示和隐藏数据项
显示所有数据项
在数据透视表中，每个字段右侧都有一个小箭头，点击可下拉打开一个数据项列表.
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
强国说qiangguoshuo.com
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. 点击确定.
或者这样做
1. 将页字段按钮拖到行区域.
2. 使用复选框选择或删除数据项
3. 将页字段按钮拖回原处。
这样，数据透视表中仅显示页数据项中没有隐藏的数据项。
转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！
