Excel VAB ピボットテーブル を期間でグループ化して集計する

• オブジェクト（必須）
  Range【ﾚﾝｼﾞ】オブジェクトを指定します。ピボットテーブル内のグループ化したいフィールド内の単一セルを指定します。セル範囲を指定するとエラーにはなりませんが処理されません。
• Start【ｽﾀｰﾄ】（省略可）
  グループ化する最初の値を指定します。省略した場合はTrueが指定され、フィールドの最初の値になります。開始日を指定する場合はDateSerial【ﾃﾞｲﾄｼﾘｱﾙ】関数で指定します。
• End【ｴﾝﾄﾞ】（省略可）
  グループ化する最後の値を指定します。省略した場合はTrueが指定され、フィールドの最後の値になります。終了日を指定する場合はDateSerial【ﾃﾞｲﾄｼﾘｱﾙ】関数で指定します。
• By【ﾊﾞｲ】（省略可）
  各グループのサイズを指定します。数値フィールドの場合は、各グループのサイズを指定します。引数Periods【ﾋﾟﾘｱｽﾞ】で指定する配列の4つ目の要素のみがTrueの場合は、各グループ内の日数を指定します。上記以外は無視され既定のグループサイズが設定されます。
• Periods【ﾋﾟﾘｱｽﾞ】（省略可）
  日付フィールドの場合に指定します。グループの期間を指定するブール型の配列をArray関数を使用して指定します。配列の要素をTrueにすると対応する期間のグループが作成されFalseにするとグループは作成されません。例えば、月単位でグループ化する場合は

  ---

  Periods:=Array(False,False,False,False,True,False,False)

  ---

  として5つ目だけをTrueにします。

  配列の要素	グループ期間
  1	秒
  2	分
  3	時間
  4	日
  5	月
  6	四半期
  7	年

Sub テーブル作成()
Dim キャッシュ As PivotCache
Dim テーブル As PivotTable
Set キャッシュ = ActiveWorkbook.PivotCaches.Create _
(SourceType:=xlDatabase, SourceData:=Range("A1").CurrentRegion)
Set テーブル = キャッシュ.CreatePivotTable _
(tabledestination:=Range("F1"), TableName:="2017年度各店売上")
With テーブル
.PivotFields("売上日").Orientation = xlRowField
.PivotFields("店名").Orientation = xlColumnField
With .PivotFields("売上額")
.Orientation = xlDataField
.Function = xlSum
.NumberFormat = "#,##0"
End With
End With
End Sub

Sub 期間グループ化()
Range("F3").Group _
periods:=Array(False, False, False, False, True, True, True)
With ActiveSheet.PivotTables("2017年度各店売上").PivotFields("四半期")
    .PivotItems("Qtr1").Caption = "第4四半期"
    .PivotItems("Qtr2").Caption = "第1四半期"
    .PivotItems("Qtr3").Caption = "第2四半期"
    .PivotItems("Qtr4").Caption = "第3四半期"
End With
End Sub

3行目【periods:=Array(False, False, False, False, True, True, True)】
Grpup【ｸﾞﾙｰﾌﾟ】メソッドの引数Periods【ﾋﾟﾘｱｽﾞ】で、グループ化する期間を指定します。
配列の要素5の月、6の四半期、7の年をTrueに指定してグループ化します。7の年をTrueにしないと元データは4月から始まりますが1月始まりに並べ替えられてしまします。

4行目～8行目【With ActiveSheet.PivotTables(“2017年度各店売上”).PivotFields(“四半期”)
.PivotItems(“Qtr1”).Caption = “第4四半期”
.PivotItems(“Qtr2”).Caption = “第1四半期”
.PivotItems(“Qtr3”).Caption = “第2四半期”
.PivotItems(“Qtr4”).Caption = “第3四半期”】
エクセルでは、第1四半期を年度に関わらず1月～3月に自動的に設定してしまうので、4月始まりの場合は、4月から6月を第1四半期にしたいので、ラベルを変更する必要があります。ラベルを変更するには、Worksheet【ﾜｰｸｼｰﾄ】オブジェクトのPivotTables【ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙｽﾞ】メソッドを使用して、ピボットテーブルを参照し、PivotFields【ﾋﾟﾎﾞｯﾄﾌｨｰﾙｽﾞ】メソッドでラベルを変更したいフィールドを参照します。さらに、PivotItems【ﾋﾟﾎﾞｯﾄｱｲﾃﾑ】メソッドでラベルを参照します。引数のラベル名は四半期の場合は、第1四半期はQtr1、第2四半期はQtr2、第3四半期はQtr3、第4四半期はQtr4と指定して参照します。QtrはQuarter【ｸｳｫｰﾀ】（四半期）の略です。参照したラベルをCaption【ｷｬﾌﾟｼｮﾝ】プロパティを使用して変更します。Caption【ｷｬﾌﾟｼｮﾝ】はタイトルという意味があります。