PivotCell オブジェクト (Excel)PivotCell object (Excel)

ピボットテーブル レポート内のセルを表します。Represents a cell in a PivotTable report.


PivotCellオブジェクトを取得するのにには、 Rangeコレクションの**PivotCell** プロパティを使用します。Use the PivotCell property of the Range collection to return a PivotCell object.

PivotCellオブジェクトを取得した後、 columnitemsまたはrowitemsプロパティを使用して、選択されている数値を表す列または行の軸の項目に対応する**PivotItems** コレクションを特定できます。After a PivotCell object is returned, you can use the ColumnItems or RowItems property to determine the PivotItems collection that corresponds to the items on the column or row axis that represents the selected number.


PivotCellオブジェクトを取得すると、 PivotCellTypeプロパティを使用して、特定の範囲のセルの種類を特定できます。After a PivotCell object is returned, you can use the PivotCellType property to determine what type of cell a particular range is.

次の使用例は、ピボットテーブルのセル A5 がデータ アイテムかどうかを調べて、表示します。The following example determines if cell A5 in the PivotTable is a data item and notifies the user. 次の使用例では、アクティブワークシートにピボットテーブルがあり、そのセル A5 がピボットテーブルに含まれていることを前提としています。This example assumes that a PivotTable exists on the active worksheet, and that cell A5 is contained in the PivotTable. セル A5 がピボットテーブル内にない場合、次の使用例は実行時エラーを処理します。If cell A5 is not in the PivotTable, the example handles the run-time error.

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." 
 MsgBox "The PivotCell at A5 is not a data item." 
 End If 
 Exit Sub 
 MsgBox "The chosen cell is not in a PivotTable." 
End Sub

次の使用例は、セル B5 のデータ アイテムが含まれる列フィールドを調べます。This example determines the column field that the data item of cell B5 is in. 次に、その列フィールドのタイトルが "在庫" に一致するかどうかを調べて、通知します。It then determines if the column field title matches "Inventory" and notifies the user. この例では、ピボットテーブルがアクティブワークシートに存在し、ワークシートの列 B にピボットテーブルの列フィールドが含まれていることを前提としています。The example assumes that a PivotTable exists on the active worksheet, and that column B of the worksheet contains a column field of the PivotTable.

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." 
 MsgBox "Item in B5 is not a member of the 'Inventory' column field." 
 End If 
End Sub



関連項目See also

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.