VBA　ピボットテーブルの作成

実務では、データ分析といえば、何と言ってもExcelのピボットテーブルでしょう。
今日は、ピボットテーブル作成の基本について、見ていきましょう。

 

 

VBAでピボットテーブルを作成

 

Sub test()
' VBAでピボットテーブルを作成

    Dim WS As Worksheet
    Dim PVC As PivotCache
    Dim PVT As PivotTable
    
    '　ピボットテーブル出力シートを追加（最後に）
    Set WS = Sheets.Add(after:=Sheets(Sheets.Count))
    
    '　ピボットテーブルデータソースをセット
    Set PVC = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
                                            SourceData:="DATA!R1C1:R29C4")
    Set PVT = PVC.CreatePivotTable(TableDestination:=WS.Name & "!R3C1", _
                                            TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1")
    ' フィールドのレイアウト設定
    With PVT
        With .PivotFields("地区")
            .Orientation = xlRowField
            .Position = 1
        End With
        With .PivotFields("支店名")
            .Orientation = xlRowField
            .Position = 2
        End With
        
        '　  集計対象を設定
        .AddDataField .PivotFields("売上高"), "合計 / 売上高", xlSum
    End With
End Sub

 

　

 

 

実行結果

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

 

参考記事