マクロを記録し、それを実行しようとしたのですが、途中で下記のようなエラーが出てしまいます。
実行時エラー '1004':
PivotTableクラスのPivotFieldsプロパティを取得できません。
黄色い矢印がとまっているのは下記の箇所です。
→With ActiveSheet.PivotTables("ピボットテーブル").PivotFields("送付先")←
自分なりに調べてみたのですが、選択範囲("E2:E1288"等の箇所)が違うデータでマクロを実行するとエラーになるのだと思っているのですが、選択範囲が毎回変わるのに対応できるコードの変更の仕方が分かりません。
もしよろしければ、アドバイスを頂けませんでしょうか。
コードの全体は下記になります。
Sheets("本体").Select
Range("E1").Select
ActiveCell.FormulaR1C1 = "品目分け"
Range("E2").Select
ActiveCell.FormulaR1C1 = "=LEFT(RC[-2],1)"
Range("E2").Select
Selection.AutoFill Destination:=Range("E2:E1288")
Range("E2:E1288").Select
Sheets("計算結果").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase,SourceData:= _
"本体!C1:C5").CreatePivotTable TableDestination:="[計算用.xls]計算結果!R3C1", _
TableName:="ピボットテーブル",
DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTables("ピボットテーブル").ColumnGrand = False
With ActiveSheet.PivotTables("ピボットテーブル").PivotFields("送付先")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("ピボットテーブル").PivotFields("品目分け")
.Orientation = xlColumnField
.Position = 1
End With
Range("E4").Select
ActiveSheet.PivotTables("ピボットテーブル").AddDataField
ActiveSheet.PivotTables( _"ピボットテーブル").PivotFields("数量"), "データの個数 / 数量", xlCount
ActiveSheet.PivotTables("ピボットテーブル").PivotFields("データの個数/ 数量").Function = _xlSum
With ActiveSheet.PivotTables("ピボットテーブル").PivotFields("品目分け")
.PivotItems("(空白)").Visible = False
End With
Range("A1").Select
End Sub
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
>実行時エラー '1004':
>PivotTableクラスのPivotFieldsプロパティを取得できません
参考URLをご覧ください。
>コードの全体は下記になります
すみません。見ていません。先ず、参考URLを。
http://www.keep-on.com/excelyou/1999lng4/199904/ …
参考URL:http://www.keep-on.com/excelyou/2001off20/200105 …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
変数にするとエラーになる理由は?
Excel(エクセル)
-
ピボットテーブルでの毎回可変するデータの最終行までの範囲を指定したいです。
PowerPoint(パワーポイント)
-
Excel VBA ピボットテーブルにて、 最終行の取得の仕方を教えてください
Excel(エクセル)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
VBSで変数の宣言はできないので...
-
実行時エラー -'-2147417848
-
OLEDB.NETで接続できない
-
プロシージャ名の取得
-
マクロについて教えてください...
-
INSERT INTOステートメント構文...
-
EXCEL/VBAで、自分のPCだけエラ...
-
ASP.NET OleDbConnectionが定義...
-
エクセルエラー13型が一致しま...
-
VBAで実行時エラー'424' オブジ...
-
実行時エラー '32755' [キャン...
-
VBで構造体を使うさ際の64k...
-
■VBA■ SUMとAVERAGEの違い
-
VBAがブレークモードになっ...
-
VBAでのエラー
-
【Excel VBA】マクロをボタンに...
-
VBS実行時エラー オブジェクト...
-
実行時エラー3001「引数が間違...
-
なぜこんな初歩的なVBAのIf文で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
VBAがブレークモードになっ...
-
なぜこんな初歩的なVBAのIf文で...
-
【Excel VBA】マクロをボタンに...
-
VBSで変数の宣言はできないので...
-
VBS実行時エラー オブジェクト...
-
実行時エラー3001「引数が間違...
-
ExcelVBA Range クラスの Page...
-
ExcelVBAで、ユーザー定義型は...
-
EXCEL VBAマクロ中断でデバッグ...
-
マクロについて教えてください...
-
プロシージャ名の取得
-
ADODB.Streamを使用してUTF-8を...
-
実行時エラー -'-2147417848
-
Outlook.ApplicationをCreateOb...
-
VBAでのエラー
-
なぜエラーになるのでしょうか...
-
VBAのコードがエラーになっ...
-
[Delphi] データセットは閉じて...
おすすめ情報