マクロで、ピボットテーブルでの範囲のコーディングの仕方について、どなたかどうぞ教えてください。
列はM列までで固定です。
行が毎回異なります。
どのようにしたら、毎回異なる範囲を、「SourceData:=」に反映させることが出来ますか?
マクロ初心者ですが、なんとか作業効率をUPさせたいと思っています。
どうぞよろしくお願い致します。
尚、今のマクロは絶対参照になっています。
自動作成されたVBAは以下の通りです。
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"A1:M5372").CreatePivotTable TableDestination:="", TableName:= _
"ピボットテーブル2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
No.1ベストアンサー
- 回答日時:
こんにちは。
Dim rng As Range 'データ範囲用Range型変数を準備
'A列を基準にする場合は↓。場合によっては Set rng = Range("a1").CurrentRegion でも可。
Set rng = Range("A1", Range("A65536").End(xlUp).Offset(, 12))
With ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=rng.Address(external:=True))
With .CreatePivotTable(TableDestination:="")
.AddFields RowFields:=rng.Cells(1).Value, ColumnFields:=rng.Cells(2).Value
.PivotFields(rng.Cells(3).Value).Orientation = xlDataField
End With
End With
Set rng = Nothing
な感じで、まずデータ範囲を変数にセットすれば良いです。
上記はActivesheetが対象になりますが、必要に応じてSheetから指定してあげる事もできます。
また、一般機能の[名前の定義]で可変範囲に名前をつける、という方法もあります。
=OFFSET($A$1,,,COUNTA($A:$A),13)
pauNedさま
ご回答ありがとうございました。
お陰様で、A列を基準にする場合で、やってみたところ、出来ました!!!
すごく感激です。
本当にありがとうございます。
これで時間を短縮できます!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです 2 2023/03/05 02:44
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Visual Basic(VBA) vbaで条件付き書式を設定したときの適用範囲について 1 2023/07/17 23:14
- Visual Basic(VBA) VBAマクロ 決まっていない行を選択して別シートへ貼付け 4 2023/02/16 16:08
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Visual Basic(VBA) 4月~3月まで12カ月横に並んだ表へ指定範囲を貼り付けたい。 Sheet2の指定範囲、Range(" 2 2022/11/30 16:37
- Visual Basic(VBA) 【VBA】Excelの特定範囲のセルを画像で保存したい 2 2023/01/25 13:06
- Excel(エクセル) スプレッドシートのマクロで値の入力があるセルの範囲を指定する方法を教えて下さい 2 2022/04/05 17:29
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パワポで曲がった両矢印の簡単...
-
パワーポイントの表
-
音声マークを一括非表示にしたい。
-
パワーポイント「スライドショ...
-
Power pointって、スクリーンに...
-
パワーポイント2019 図の透...
-
PowerPointで、作成されたファ...
-
canvaでつくったプレゼン資料を...
-
パワーポイントで、プレゼン用...
-
この図を参照してください。 こ...
-
Powerpointを用いた論文の発表...
-
2016EXCEL→2016PowerPointにコ...
-
マイクロソフトアカウントのこ...
-
COUNTIFのやり方を教えてくださ...
-
パワーポイント、四角い枠の中...
-
【パワポ初心者の大学生におす...
-
Power point で、アニメって作...
-
パワポ初心者で申し訳ありませ...
-
Accessで Tabキーを押したとき...
-
パワーポイントで教えてくださ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パワポで曲がった両矢印の簡単...
-
パワーポイントの表
-
パワーポイント「スライドショ...
-
音声マークを一括非表示にしたい。
-
ホワイトボード 油性マジックの...
-
エクセル・パワーポイントなど...
-
パワーポイントで、プレゼン用...
-
PowerPointVBAでスライドマスタ...
-
PowerPointでスライドマスタの...
-
Power point で、アニメって作...
-
パワポ初心者で申し訳ありませ...
-
PowerPointで、作成されたファ...
-
パワーポイントで資料を作る時 ...
-
【パワーポイントのフォントが...
-
パワーポイントのアニメーショ...
-
ExcelのグラフをPowerPointに貼...
-
パワーポイント2019 図の透...
-
パワーポイントで、全てのスラ...
-
PowerPointのアニメーションで...
-
PowerPointで、線を点滅した感...
おすすめ情報