マクロでのピボットテーブルについて
EXCELにてピボットテーブルから抜粋できる表を作ろうと考えています。
sheet1!$A$1 にはピボットテーブルがあり、そこから値を拾い、
x～yの範囲に表を作るマクロです。
変数1～3にはユーザーが指定する項目が入ります。
さらにピボットテーブルの場所を変数としたいのですが、上手く値を拾えません。
(変数にすると#REF!となります)
Dim 場所 As String
場所 = "sheet1!$A$1"
Worksheets("sheet2").select
For x = h to i
For y = j to k
Cells(x, y) = Application.Evaluate("=getpivotdata(""個数"",場所,""フィールド1"",""" & 変数1 & """,""フィールド2"",""" & 変数2 & """,""フィールド3"",""" & 変数3 & """)")
Next
Next
Cells(x, y) = Application.Evaluate("=getpivotdata(""個数"",sheet1!$A$1,[略]
と、すると正しい値が拾えるのですが。
ピボットテーブルの場所を変数にしてもエラーにならないやり方をご教示いただけませんでしょうか。
お礼
いろいろ調べて、シートの移動はCTRL＋PAGEUP PAGEDOWN でできることがわかり、やってみると 出てきました。 どういうわけか、タブを表示しないように設定が変わっていたようです。お騒がせして申し訳ありません。
補足
お返事ありがとうございます。 「ピボットテーブル/ピボットグラフ ウィザード」というので作っているのですが、そのウィザードの最後の所で、テーブルの作成先を 新規のワークシートにするか、既存のワークシートにするかを選べるようになってます。 デフォルトでは、「新規」の方になってますので、通常は新規で作成するようですね・・ 既存のシートに作成すると、グラフにした時点で下のタブがなくなってしまいました。 いろいろ考えましたが、私の力ではどうすることもできないので、データベース作り直したほうが速いかもしれません。。