|
かみちゃん さん、こんばんは。
レスありがとうございます。
>本当にこのコードでしたいことができていますか?
>まず、[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になるのですか?
>おそらく、手作業できちんと期待している結果が得られていないと思います。
>今一度確認してみてください。
確かに正確には得られていません。
と言いますのは、細かく言いますと各等級毎の合計が挿入されていますから
その後コピペして整形しています。
それで、この辺のコピペ整形も不要なようにマクロで行いたいのです。
よろしくお願いします。
|
|