ピポットテーブルは便利だが、マクロで一括でできないか。

ピポットテーブルを使って各商品の売り上げなどの合計を計算して出したいが、範囲指定まではいいが、そのあとコツコツ操作をしてゆくのが結構面倒　マクロ機能などをつかって一括でできないものか。

No.3 回答者： 銀鱗 回答日時： 2017/10/07 11:41

同じ処理を繰り返し行うには便利ですね。

(´・ω・`)でも…
マクロを組むほうが面倒な気がするんだ。

できないことはありません。
ただし、作成するには一つずつ処理を記述するのです。
…誰かに作ってもらうというのは無しの方向でね…

・・・
自分なら、
　・まずはピボットテーブルの条件のプリセットを指定し
　・SUBTOTAL関数で集計して
　・その値を指定したセルへコピーする
そんなマクロを作るかな。
これなら条件を指定して、コピーするセルを指定するだけです。
（処理方法までぜーんぶ自分で作るなんて馬鹿のすることです）


・・・そして大事な事なのでもう一度記述します・・・
…誰かに作ってもらうというのは無しの方向でね…

この回答へのお礼

基本的エクセルの勉強がまだ足りない自分です。マクロは自分には無理なようでした。ありがとう。

お礼日時：2017/10/07 15:03

No.2 回答者： ママチャリ 回答日時： 2017/10/07 11:25

できますよ。

ただし、norakurotodorokiさんの実力次第です。
まずは「マクロの記録」でピボットテーブルの作成をマクロ化してみて下さい。
作成されたマクロを眺めてみて「あっ、ここをこう変えれば、汎用的に使えるな」みたいなことが理解できれば大丈夫です。

この回答へのお礼

有難うございます。
Sub pipotto2()
Macro'
Range("N1:O247").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Sheet13!R1C14:R247C15", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="Sheet12!R3C1", TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2", _
DefaultVersion:=xlPivotTableVersion10
Sheets("Sheet12").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").PivotFields("薬品名")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").AddDataField ActiveSheet.PivotTables( _
"ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2").PivotFields("数量"), "合計 / 数量", xlSum
End Sub
の中で ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Sheet13!R1C14:R247C15", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="Sheet12!R3C1", TableName:="ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ2", _
DefaultVersion:=xlPivotTableVersion10　が黄色くクレームがつくのですが何がいけないのか。

お礼日時：2017/10/07 15:01

No.1 回答者： スリープ 回答日時： 2017/10/07 11:05

マクロが組めるのならできますよ

マクロが組めなくてもセルを参照して計算すればいいだけのことです。