PivotTable.PivotValueCell メソッド (Excel)
特定の行インデックスと列インデックスを指定した特定のピボットテーブルの PivotValueCell オブジェクトを取得します。
構文
式。PivotValueCell (RowLine,ColumnLine)
式ピボットテーブル オブジェクトを表す変数。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
RowLine | オプション | バリアント型 | PivotLine 型の場合、PivotValueCell が配置されている行フィールドの PivotLine を指定します。 Int 型の場合は、PivotValueCell が配置されている行領域の PivotLine の位置を指定します。 指定なし、Empty、Null、または 0 の場合は、総計行を指定します。 |
ColumnLine | オプション | バリアント型 | PivotLine 型の場合、PivotValueCell が配置されている列フィールドの PivotLine を指定します。 Int 型の場合は、PivotValueCell が配置されている列領域の PivotLine の位置を指定します。 見つからない場合、空、Null、または 0 は、総計列を指定します。 |
戻り値
PIVOTVALUECELL
例
ここでは、PivotValueCell プロパティを使用して、PivotTable の 1 つのセルの値がもう 1 つのセルの値よりも大きいかどうかを調べます。
Sub TestEquality()
Dim X As Double
Dim Y As Double
'This code assumes 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"
Else
MsgBox "Y is greater than X"
End If
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。