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

実際のセル (Range オブジェクト) が使用できない場合にセル内の値を表示する方法を提供します。Provides a way to expose values of cells in the case that actual cells (Range objects) are not available.


ここでは、PivotValueCell プロパティを使用して、PivotTable の 1 つのセルの値がもう 1 つのセルの値よりも大きいかどうかを調べます。This code sample uses the PivotValueCell property to test whether the value of one cell in a PivotTable is greater than another cell.

Sub TestEquality()
Dim X As Double
Dim Y As Double

'This code assumes that you have a Standalone PivotChart on one of the worksheets.
X = ThisWorkbook.PivotTables(1).PivotValueCell(1, 1).Value
Y = ThisWorkbook.PivotTables(1).PivotValueCell(1, 2).Value

If X > Y Then
MsgBox "X is greater than Y"
MsgBox "Y is greater than X"
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.