Excel数据透视表什么是显示和隐藏数据项

　　在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

　　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. 点击确定.