Excel VBA教程:PivotCell对象

   
Range
PivotCell
多个对象

表示数据透视表中的一个单元格。

PivotCell对象用法

可用Range集合的PivotCell属性返回一个 PivotCell对象。

返回一个 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

返回一个 PivotCell对象后,便可用ColumnItemsRowItems属性来确定对应于列轴或行轴(代表选定编号)上的项目的PivotItems集合。下例用 PivotCell对象的 ColumnItems属性返回一个PivotItemList集合。

本示例确定单元格 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

上页:Excel VBA教程:PivotCaches集合对象 下页:Excel VBA教程:PivotField对象

Excel VBA教程:PivotCell对象

Excel VBA教程:PivotField对象 Excel VBA教程:PivotFields集合对象
Excel VBA教程:PivotFormula对象 Excel VBA教程:PivotFormulas集合对象
Excel VBA教程:PivotItem对象 Excel VBA教程:PivotItemList集合
Excel VBA教程:PivotItems集合对象 Excel VBA教程:PivotLayout对象
Excel VBA教程:PivotTable对象 Excel VBA教程:PivotTables集合对象
Excel VBA教程:PlotArea对象 Excel VBA教程:Point对象
Excel VBA教程:Points集合对象 Excel VBA教程:Protection对象
Excel VBA教程:PublishObject对象 Excel VBA教程:PublishObjects集合对象
Excel VBA教程:QueryTable对象 Excel VBA教程:QueryTables集合对象
Excel VBA教程:Range集合 Excel VBA教程:RecentFile对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号