PivotCell 对象 (Excel)
代表数据透视表中的一个单元格。
使用 Range 集合的 PivotCell 属性可返回 PivotCell 对象。
返回 PivotCell 对象后,可以使用 ColumnItems 或 RowItems 属性来确定 PivotItems 集合,该集合对应于列轴或行轴上表示选定数字的项。
返回 PivotCell 对象后,可以使用 PivotCellType 属性来确定特定区域的单元格类型。
下例确定数据透视表中的单元格 A5 是否是数据项目并通知用户。 此示例假定活动工作表上存在数据透视表,并且该单元格 A5 包含在数据透视表中。 如果单元格 A5 不在数据透视表中,则本示例处理运行错误。
Sub CheckPivotCellType()
On Error GoTo Not_In_PivotTable
' Determine if cell A5 is a data item in the PivotTable.
If Application.Range("A5").PivotCell.PivotCellType = xlPivotCellValue Then
MsgBox "The PivotCell at A5 is a data item."
Else
MsgBox "The PivotCell at A5 is not a data item."
End If
Exit Sub
Not_In_PivotTable:
MsgBox "The chosen cell is not in a PivotTable."
End Sub
此示例确定单元格 B5 的数据项所在的列字段。 然后判断列字段标题是否与“Inventory”相匹配,并通知用户。 该示例假定活动工作表上存在数据透视表,并且工作表的列 B 包含数据透视表的列字段。
Sub CheckColumnItems()
' Determine if there is a match between the item and column field.
If Application.Range("B5").PivotCell.ColumnItems.Item(1) = "Inventory" Then
MsgBox "Item in B5 is a member of the 'Inventory' column field."
Else
MsgBox "Item in B5 is not a member of the 'Inventory' column field."
End If
End Sub
- Application
- CellChanged
- ColumnItems
- Creator
- CustomSubtotalFunction
- DataField
- DataSourceValue
- MDX
- Parent
- PivotCellType
- PivotColumnLine
- PivotField
- PivotItem
- PivotRowLine
- PivotTable
- Range
- RowItems
- ServerActions
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。