マクロを使ってピポットを実行したい
マクロを使ってピポットを実行したい
下記に書いたのが自動作成したものですが、なぜか実行すると画像の様になります。
そして、毎回実行する行数は違います、違う行数でもできるようにできたら尚すんばらしいです。
月一回作成する資料で、担当者別に作成します。だいた、３０人ぐらいですが…
ボタンクリックでできる様にしたいのでマクロを使ってます。
Sub ピポット実行()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"Sheet1!C1:C7").CreatePivotTable TableDestination:="", TableName:= _
"ピボットテーブル1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("ピボットテーブル1").AddFields RowFields:=Array("担当者名", _
"得意先2", "メーカー名"), ColumnFields:="売上年月"
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("売上金額")
.Orientation = xlDataField
.Caption = "合計 / 売上金額"
.Function = xlSum
End With
ActiveWorkbook.ShowPivotTableFieldList = True
End Sub
なにとぞよろしくお願いいたします
まったく同じ資料に実行をする場合は、大丈夫なのですが、少しでも違う資料にするとだめになります。
ピポットの形になっても、絶対に合計でできなかったり(個数などになったりしてします。)
