エクセルVBAでピボットテーブルを作成しています。
作成まではできましたが、以下2つのVBAの組み方が分からないのでおしえてください。
【質問1】
ピボットテーブルの作成先を指定できるか?
例えば、予め準備したシートに作成することは可能でしょうか?
VBAのどこを触ったら良いか分かりません。
【質問2】
作成されたピボットテーブルの列を、見出しの準備された別シートへ、それぞれ流し込むことはできるか?
例えば
ピボットテーブルが以下のように作成されたとして、
A列 B列
購入額 総計
A社 1000
B社 2500
C社 800
予め用意した別シート(A~D列の見出しは固定)のB、C列にピボットのA、B列(最終行まで)をそれぞれ流し込みたいのです。
A列(コード) B列(購入額) C列(総量) D列(JANコード)
001 A社 1000 JAN1
002 B社 2500 JAN2
003 C社 800 JAN3
流し込んだ列を元にA、D列にはVLOOKをかける予定です。
何か良い案があれば是非、ご教授ください。
No.1ベストアンサー
- 回答日時:
>【質問1】
ピボットテーブル作成時に、『既存のワークシート』に作成する動作をマクロ記録とればわかると思いますが。
CreatePivotTableメソッドの引数、TableDestination:=... で指定します。
>【質問2】
提示レイアウト通りだったら、単純にコピーすれば良いのでは。
列の総計、ColumnGrandプロパティをFalseにして、
With ActiveSheet.PivotTables(1)
.ColumnGrand = False
.DataBodyRange.Resize(, 2).Offset(, -1).Copy Sheets("Sheet2").Range("B2")
End With
...など。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで、あるセルの値に応じて...
-
URLのリンク切れをマクロを使っ...
-
VBAコンボボックスで選択した値...
-
IIF関数の使い方
-
SUM関数の範囲を変数を代入して...
-
VBAのFind関数で結合セルを検索...
-
Cellsのかっこの中はどっちが行...
-
文字列の結合を空白行まで実行
-
複数処理 Worksheet_Change(ByV...
-
オートフィルタをマクロで作成...
-
日付セルの日数差でコピー入力...
-
検索
-
【Excel VBA】 B列に特定の文字...
-
Application.Max
-
期限を超えた日付に警告のメッ...
-
VBA グラフX軸の変更
-
【VBA】2つのシートの値を比較...
-
VBA: 2列のリストボックスの2列...
-
エクセルVBAでピボットテー...
-
エクセルで行を挿入し、小計、...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
【Excel VBA】 B列に特定の文字...
-
IIF関数の使い方
-
VBAのFind関数で結合セルを検索...
-
URLのリンク切れをマクロを使っ...
-
文字列の結合を空白行まで実行
-
データグリッドビューの一番最...
-
【VBA】2つのシートの値を比較...
-
Changeイベントでの複数セルの...
-
VBAを使って検索したセルをコピ...
-
VBA 何かしら文字が入っていたら
-
エクセルVBA intersect colu...
-
VBAでのリスト不一致抽出について
-
マクロ 最終列をコピーして最終...
-
VBAコンボボックスで選択した値...
-
複数の列の値を結合して別の列...
おすすめ情報