ピボットテーブルのフィールドを設定
PivotTableWizardメソッド を実行すればピボットテーブルを作成できますが、基礎ができるだけです。
どの位置にどのデータを置くのか、フィールドの設定をしなければなりません。
フィールド設定は PivotFieldオブジェクト に Orientation、Functionプロパティ を使用します。
PivotField.Orientationプロパティ
構文
Object.Orientation
| Object | PivotFieldオブジェクト を表す変数です。 |
| Orientation | ピボットテーブル内のフィールドの位置について XlPivotFieldOrientation の値で指定します。 |
| XlPivotFieldOrientation | 値 | 説明 |
| xlHidden | 0 | 非表示 |
| xlRowField | 1 | 行 |
| xlColumnField | 2 | 列 |
| xlPageField | 3 | ページ |
| xlDataField | 4 | データ |
PivotField.Functionプロパティ
構文
Object.Function
| Object | PivotFieldオブジェクト を表す変数です。 |
| Function | ピボットテーブル内のフィールドの集計方法を XlConsolidationFunction の値で設定または返します。 |
| XlConsolidationFunction | 値 | 説明 |
| xlAverage | -4106 | 平均 |
| xlCount | -4112 | カウント |
| xlCountNums | -4113 | カウント数値のみ |
| xlDistinctCount | 11 | Distinct Count 分析を使ったカウント |
| xlMax | -4136 | 最大 |
| xlMin | -4139 | 最小 |
| xlProduct | -4149 | 積 |
| xlStDev | -4155 | 標本に基づく標準偏差 |
| xlStDevP | -4156 | 母集団全体に基づく標準偏差 |
| xlSum | -4157 | 合計 |
| xlUnknown | 1000 | 小計に使用する関数は指定されない |
| xlVar | -4164 | 標本に基づく変動 |
| xlVarP | -4165 | 母集団全体に基づく変動 |
サンプルコード
A1セルに下記の表をコピペしてください。
| 日付 | 担当者 | 販売個数 |
| 1月1日 | A | 10 |
| 1月1日 | B | 20 |
| 1月1日 | C | 15 |
| 1月2日 | B | 3 |
| 1月3日 | A | 6 |
| 1月4日 | B | 10 |
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コレクション のメンバーです。
関連記事
コメント