【VBA】ピボットテーブルの操作を自動化【要点を絞って解説します】

Sub TEST1()
    
    'シートを追加する
    Sheets.Add
    
    '元データの範囲を格納
    Set A = Worksheets("元データ").Range("A1").CurrentRegion
    
    'ピボットテーブルを作成する
    ActiveWorkbook.PivotCaches.Create(xlDatabase, A).CreatePivotTable Range("A3")
    
End Sub

Sub TEST2()
    
    'フィールドを設定
    With ActiveSheet.PivotTables(1)
        .PivotFields("商品").Orientation = xlRowField '行フィールドを設定
        .PivotFields("支店").Orientation = xlColumnField '列フィールドを設定
        'フィルターフィールドに設定する場合
        '.PivotFields("支店").Orientation = xlPageField
        .PivotFields("売上").Orientation = xlDataField '値フィールドを設定
    End With
    
End Sub

Sub TEST3()
    
    'フィルターフィールドを含めてピボットテーブルを削除
    ActiveSheet.PivotTables(1).TableRange2.ClearContents
    
End Sub

Sub TEST4()
    
    'ピボットテーブルを初期化する
    ActiveSheet.PivotTables(1).ClearTable
    
End Sub

Sub TEST5()
    
    '元データの値を変更
    Worksheets("元データ").Range("C7") = 9999
    '更新する
    ActiveSheet.PivotTables(1).PivotCache.Refresh
    
End Sub

Sub TEST6()
    
    '元データの範囲を取得
    Set A = Worksheets("元データ").Range("A1").CurrentRegion
    
    'データソースを変更する
    ActiveSheet.PivotTables(1).ChangePivotCache ActiveWorkbook.PivotCaches.Create(xlDatabase, A)
        
End Sub

Sub TEST7()
    
    With ActiveSheet.PivotTables(1)
        .PivotFields("商品").ClearAllFilters 'フィルターを解除
        '「商品」ラベルを「いちご」でフィルター
        .PivotFields("商品").PivotFilters.Add2 xlCaptionEquals, , "いちご"
    End With
    
End Sub

Sub TEST8()
      
    With ActiveSheet.PivotTables(1)
        'フィルター解除
        .PivotFields("年").ClearAllFilters
        .PivotFields("月").ClearAllFilters
        .PivotFields("日付").ClearAllFilters
        '「2021/9/1」～「2021/11/1」の範囲内でフィルター
        .PivotFields("日付").PivotFilters.Add2 xlDateBetween, , "2021/9/1", "2021/11/1"
    End With
        
End Sub

Sub TEST9()
    
    With ActiveSheet.PivotTables(1)
        .PivotFields("商品").ClearAllFilters 'フィルター解除
        '「商品」ラベルの「値」を「1400以上」でフィルター
        .PivotFields("商品").PivotFilters.Add2 xlValueIsGreaterThanOrEqualTo, .PivotFields("合計 / 売上"), 1400
    End With
    
End Sub

Sub TEST10()
    
    '「商品」ラベルを「昇順」にする
    ActiveSheet.PivotTables(1).PivotFields("商品").AutoSort xlAscending, "商品"
     
End Sub

Sub TEST11()
    
    '「商品」ラベルを「降順」にする
    ActiveSheet.PivotTables(1).PivotFields("商品").AutoSort xlDescending, "商品"
      
End Sub

Sub TEST12()
    
    '「商品」ラベルの「値」を「昇順」にする
    ActiveSheet.PivotTables(1).PivotFields("商品").AutoSort xlAscending, "合計 / 売上"
 
End Sub

Sub TEST13()
        
     '「商品」ラベルの「値」を「降順」にする
    ActiveSheet.PivotTables(1).PivotFields("商品").AutoSort xlDescending, "合計 / 売上"
        
End Sub

Sub TEST14()

    With ActiveSheet.PivotTables(1).PivotFields("点数").DataRange.Cells(1, 1)
        .Group Start:=0, End:=100, By:=20 '0～100を、20刻みでグループ化
    End With
    
End Sub

Sub TEST15()

    With ActiveSheet.PivotTables(1).PivotFields("日付").DataRange.Cells(1, 1)
        '「年」「月」でグループ化
        '引数⇒開始日、終了日、秒、分、時、日、月、四半期、年
        .Group Start:=True, End:=True, periods:=Array(False, False, False, False, True, False, True)
    End With
    
End Sub

Sub TEST16()
        
    '「商品」ラベルを取得する
    ActiveSheet.PivotTables(1).PivotFields("商品").DataRange.Select
    
End Sub

Sub TEST17()
    
    '「商品」ラベルをループ
    For Each A In ActiveSheet.PivotTables(1).PivotFields("商品").PivotItems
        '「ラベル」を取得
        Debug.Print A.Value
    Next
    
End Sub

Sub TEST18()
    
    '「値」フィールドを取得
    ActiveSheet.PivotTables(1).PivotFields("合計 / 売上").DataRange.Select
    
End Sub

Sub TEST19()
    
    '全ての値を取得
    ActiveSheet.PivotTables(1).DataBodyRange.Select
    
End Sub

Sub TEST20()
        
    '「いちご」の「名古屋」の値を取得
    Debug.Print ActiveSheet.PivotTables(1).GetData("いちご 名古屋")
    
End Sub

Sub TEST21()
    
    '「いちご」の総計を取得
    Debug.Print ActiveSheet.PivotTables(1).GetData("いちご")
    
End Sub

Sub TEST22()
    
    '「名古屋」の総計を取得
    Debug.Print ActiveSheet.PivotTables(1).GetData("名古屋")
    
End Sub

Sub TEST23()
    
    '「総計」の「総計」を取得
    Debug.Print ActiveSheet.PivotTables(1).GetData("")
    
End Sub

Sub TEST24()
    
    'ピボットテーブル全体を取得
    ActiveSheet.PivotTables(1).TableRange1.Select
    
End Sub

Sub TEST25()
    
    'フィルターフィールドを含むピボットテーブル全体を取得
    ActiveSheet.PivotTables(1).TableRange2.Select
    
End Sub

Sub TEST26()
    
    'ピボットテーブルを選択
    ActiveSheet.PivotTables(1).TableRange1.Select
    '集合縦棒を挿入
    ActiveSheet.Shapes.AddChart2(, xlColumnClustered).Select
    
End Sub

Sub TEST27()
    
    '「集合縦棒」に変更
    ActiveSheet.ChartObjects(1).Chart.ChartType = xlColumnStacked
    
End Sub

Sub TEST28()
    
    'グラフを指定
    With ActiveSheet.ChartObjects(1)
        .Left = Range("B11:H19").Left '左の位置
        .Top = Range("B11:H19").Top '上の位置
        .Width = Range("B11:H19").Width '幅
        .Height = Range("B11:H19").Height '高さ
    End With
    
End Sub

Sub TEST29()
    
    'グラフを削除する
    ActiveSheet.ChartObjects(1).Delete
    
End Sub