ピボットテーブルのフィールドを設定する【PivotFieldオブジェクト】【Orientation/Functionプロパティ】【ExcelVBA】

ピボットテーブルのフィールドを設定

PivotTableWizardメソッド を実行すればピボットテーブルを作成できますが、基礎ができるだけです。
どの位置にどのデータを置くのか、フィールドの設定をしなければなりません。

フィールド設定は PivotFieldオブジェクト に Orientation 、Functionプロパティ を使用します。

PivotField.Orientationプロパティ

構文
Object.Orientation

PivotField.Functionプロパティ

構文
Object.Function

サンプルコード

A1セルに下記の表をコピペしてください。

Public Sub PivotField()
'ピボットテーブルを作成
　'テーブル名を「販売個数集計」に設定
  Worksheets("Sheet1").PivotTableWizard SourceType:=xlDatabase, _
                             SourceData:=Range("A1").CurrentRegion, _
                             TableDestination:=Range("E1"), _
                             TableName:="販売個数集計"

'■ピボットテーブルのフィールドを設定
  With Worksheets("Sheet1").PivotTables("販売個数集計")
     .PivotFields("担当者").Orientation = xlRowField    '「担当者」を行に
     .PivotFields("日付").Orientation = xlColumnField   '「日付」を列に
     
     With .PivotFields("販売個数")      '販売個数に対する処理
          .Orientation = xlDataField    'データ
          .Function = xlSum             '合計値を求める
     End With
  End With

End Sub

注意点

• PivotFieldオブジェクト は PivotFieldsコレクション のメンバーです。

関連記事

• ピボットテーブルを作成する【PivotTableWizardメソッド】
• 同じデータソースから別のピボットテーブルを作成する【CreatePivotTableメソッド】