excel VBA マクロ内でGETPIVOTDATA関数を使いたい

自動でピボットテーブルを作成し、作ったデータを使って
率や平均を求めた結果を表示させるマクロを作りたいです。

その結果の値の中身は関数式が表示されてほしいです

また、Evaluateのgetpivotdata内で取得した行の項目が入った変数を使いたいのですがそちらも可能なのでしょうか？

追記

VBA
1Dim name As String    
2Dim per As Double
3per = Evaluate(GETPIVOTDATA(""合計 / 金額"",$A$1,""商品名"",""name"")")

行動規範の内容に同意します

回答1件

ベストアンサー

色々方法はあると思います。
1.元データから計算する
2.ピボットテーブルをコピペで値貼り付けして計算する
3.Range("A1")="=GETPIVOTDATA()"の形で入力する

そもそもメソッドであるのでこれを使えばよさげです。
PivotTable の GetPivotData メソッド (Excel)

投稿2021/01/22 00:31

編集2021/01/22 02:25

radames1000

総合スコア1925

退会済みユーザー

2021/01/22 00:37

ご回答ありがとうございます。一番考えていたものに近い３で試しました Range("F1") = "=GETPIVOTDATA("合計 / 金額",$A$1,"名前","商品１")" 構文エラーになってしまうのですがどこか違いますか・・・？

radames1000

2021/01/22 00:56 編集

"合計 / 金額"じゃなくて"金額"かも。実際にピボットテーブルを作って、手入力で式を入れてみるとどう入れればいいのかわかると思いますよ。

退会済みユーザー

2021/01/22 02:13

それだとやはり上手くいかなかったので Evaluate("GETPIVOTDATA(""合計 / 売上金額"",$A$1,""名前"",""商品１"")") で実行したら上手くいきました・・・ですがピボットテーブルは何行もあるので名前の項目を変数に入れてその変数を使いループで表示させたいのですが可能なのでしょうか・・・？

radames1000

2021/01/22 02:18

項目名はこちらに提示されてないので何も言えませんよー Evaluateにされたんですね。項目名を間違えなければループは可能です。

退会済みユーザー

2021/01/22 02:20

あまりEvaluateはおすすめされない方法なのですか？初心者で申し訳ありません・・・ Evaluateのgetpivotdata内で取得した変数を使いたいのですがそちらも可能なのでしょうか・・・

radames1000

2021/01/22 07:39

大丈夫です！わたしが提示していなかったので、しっかり調べられたら見つけられたんだなーと思っただけですよ。今テストできない状況なので申し訳ないですが、できそうな気もしますね。一度試してみてください。

退会済みユーザー

2021/01/22 07:48

お返事ありがとうございます！型が一致しないと出てしまいました・・・