こんばんは。マクロの自動記録を使って、ピボットテーブルを作成したのですが、記録した時のシート名とデータ範囲で記録されてしまいます。アクティブシートのデータがある範囲をピボットテーブルにしたい時は、どうすれば良いでしょうか?
以下のコードが自動記録で作成したコードです。
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"シート名!R1C1:R1000C30").CreatePivotTable TableDestination:= _
"", TableName:="ピボットテーブル2", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("商品番号")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("商品名 ")
.Orientation = xlRowField
.Position = 2
End With
Range("A9").Select
ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("商品番号").Subtotals = Array( _
False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("ピボットテーブル2").AddDataField ActiveSheet.PivotTables( _
"ピボットテーブル2").PivotFields("数量 "), "データの個数 / 数量 ", xlCount
With ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("発送日 ")
.Orientation = xlPageField
.Position = 1
End With
Range("A1").Select
ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("発送日 ").Orientation = _
xlHidden
With ActiveSheet.PivotTables("ピボットテーブル2").PivotFields("希望時期")
.Orientation = xlColumnField
.Position = 1
End With
No.2ベストアンサー
- 回答日時:
空白行と空白列で囲まれたセル範囲を取得できる[CurrentRegion プロパティ]を使う事もできます。
参考まで。
Sub try()
Dim r As Range
Set r = ActiveSheet.Range("A1").CurrentRegion
With ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
SourceData:=r.Address(external:=True) _
).CreatePivotTable(TableDestination:="")
.AddFields RowFields:=Array("商品番号", "商品名 "), _
ColumnFields:="希望時期", _
PageFields:="発送日 "
.PivotFields("商品番号").Subtotals(1) = False
With .PivotFields("数量 ")
.Orientation = xlDataField
.Caption = "データの個数 / 数量 "
.Function = xlCount
End With
End With
Set r = Nothing
End Sub
類似Q&Aとしては
http://oshiete1.goo.ne.jp/qa2926805.html
ここなども参考になるかもしれません。
No.1
- 回答日時:
以下は私が仕事で使っている自動化の一部です
HANI でC1から列AN(最右)の一番下を指定しています。一番下を見る列はJです。これを応用すればデータのある範囲を指定できるはずです。
HANI = "シート名!C1:AN" & Trim(Str(Range("J2").End(xlDown).Row))
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=HANI).CreatePivotTable _
TableDestination:="", TableName:="ピボットテーブル1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.PivotTables("ピボットテーブル1").AddFields RowFields:="集計行名", ColumnFields:="集計列名"
With ActiveSheet.PivotTables("ピボットテーブル1").PivotFields("集計名")
.Orientation = xlDataField
.Caption = "集計"
.Function = xlSum
End With
Application.CommandBars("PivotTable").Visible = False
ActiveWorkbook.ShowPivotTableFieldList = False
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【エクセル】オートフィルタで...
-
フィルタをしても最下行を常に...
-
ピボットを更新すると数式が入...
-
ピボットテーブルでは時間の表...
-
VBAで重複する項目を1つにまと...
-
エクセルの集計
-
常にタイトル行と合計行を表示...
-
いい機能だけど、毎回めんどく...
-
エクセル 日付(年月日)の合...
-
エクセル、リソース不足エラー...
-
excelで集計の合計を降順に並べ...
-
複数のピボットテーブルを一括...
-
エクセルで特定の色の数字だけ...
-
エクセルの小計を自動的に色づ...
-
マクロ実行時にエラーが出てし...
-
エクセルの集計
-
Excelの集計結果だけをコピー貼...
-
ピボットテーブルのページエリ...
-
COUNTIFでの集計
-
エクセルで円グラフに引き出し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【エクセル】オートフィルタで...
-
ピボットテーブルでは時間の表...
-
フィルタをしても最下行を常に...
-
エクセルで特定の色の数字だけ...
-
VBAで重複する項目を1つにまと...
-
ピボットの集計方法「合計」初...
-
ピボットを更新すると数式が入...
-
アンケートの集計
-
いい機能だけど、毎回めんどく...
-
エクセル、リソース不足エラー...
-
ピボットテーブルで同じデータ...
-
他部署からもらう データで、 ...
-
エクセル 関数を使った横方向の...
-
複数のピボットテーブルを一括...
-
VLOOKUP関数とCOUNT関数等の組...
-
excelで集計の合計を降順に並べ...
-
ピボットテーブルのページエリ...
-
Excelの集計結果だけをコピー貼...
-
エクセルの小計を自動的に色づ...
-
ピボットテーブルの逆
おすすめ情報