Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

23102 / 76738

←次へ　｜　前へ→


	【59007】Re:ピボットテーブルを自動化したい

［名前なし］ - 08/11/22(土) 23:11 -


	引用なし

	パスワード

かみちゃんさん、こんばんは。
レスありがとうございます。
>本当にこのコードでしたいことができていますか？
>まず、[58993]で提示された元データが11行しかないのに、
>Selection.AutoFill Destination:=Range("G2:G26"), Type:=xlFillDefault
>としているのはなぜですか？
すいません、今回[58993]で提示しました元データは実際のデータではなく、
今回のテストでは実データを26行切り取ってテストしました。

>次に、
>ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
>　　　　"Sheet2!C1:C7").CreatePivotTable
>としていますが、
>これは、手作業の場合の「ピボットテーブル/ピボットグラフウィザード 2/3」
>で、「範囲」を Sheet2!C1:C7 と指定しているのではないですか？
ピボットテーブル/ピボットグラフウィザード 2/3は使っていません。
ピボットテーブル/ピボットグラフウィザード 1/3で完了させ、後はフィールドをドラッグ＆ドロップしました。

>本当にその範囲で合っていますか？
C7に倉庫データを作っていますので、範囲はいいと思うのですが...

>>実行時エラー'1004'
>>PivotTableクラスのPivotFieldsプロパティを取得できません。
>これのエラーの直接の原因は、上記の
>>> 「範囲」を Sheet2!C1:C7 と指定している
>にあると思います。
>その範囲に、「等級」というフィールドは、あのますが、「倉庫」というフィールド
>がないからです。
「倉庫」フィールドはC7にありますが...

>ではどのようにしたらいいのかですが、
>ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
>　　　　"Sheet2!A1:G11").CreatePivotTable ～
>のようにすればいいのですが、本当にそれでしたいことができているのかが
>非常に疑問です。
どうしてA1:G11になるのですか？

>おそらく、手作業できちんと期待している結果が得られていないと思います。
>今一度確認してみてください。
確かに正確には得られていません。
と言いますのは、細かく言いますと各等級毎の合計が挿入されていますから
その後コピペして整形しています。
それで、この辺のコピペ整形も不要なようにマクロで行いたいのです。
よろしくお願いします。

2 hits

▼

【58993】ピボットテーブルを自動化したい ackkn 08/11/22(土) 10:23