次の方法で共有


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 のサポートおよびフィードバックを参照してください。