PivotCell オブジェクト (Excel)

ピボットテーブル レポート内のセルを表します。

注釈

Range コレクションの 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 のデータ アイテムが含まれる列フィールドを調べます。 次に、その列フィールドのタイトルが "在庫" に一致するかどうかを調べて、通知します。 この例では、アクティブなワークシートにピボットテーブルが存在し、ワークシートの列 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

メソッド

プロパティ

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

  • Last updated on