PivotField.CubeField プロパティ (Excel)
指定したピボットテーブル フィールドの降順の CubeField オブジェクトを返します。 読み取り専用です。
構文
式。CubeField
式PivotField オブジェクトを表す変数。
例
次の使用例は、シート 1 の最初の オンライン分析処理 (OLAP) ベースのピボットテーブル レポートで、すべての階層フィールドに使用されているキューブ フィールド名の一覧を作成します。 この例では、ピボットテーブル レポートが最初のワークシートに存在することを前提としています。
Sub UseCubeField()
Dim objNewSheet As Worksheet
Set objNewSheet = Worksheets.Add
objNewSheet.Activate
intRow = 1
For Each objPF in _
Worksheets(1).PivotTables(1).PivotFields
If objPF.CubeField.CubeFieldType = xlHierarchy Then
objNewSheet.Cells(intRow, 1).Value = objPF.Name
intRow = intRow + 1
End If
Next objPF
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。