Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1485 / 76807

←次へ　｜　前へ→


	【80973】ピボットから.GetDataで総計を取る際

とうもろこし - 19/6/27(木) 18:47 -


	引用なし

	パスワード

みなさま、こんにちは。
最近VBAを触り始めて、業務効率化のために日々勉強しております。

表題の件について質問をさせてください。
今、会社ごとの売上をまとめたピボットから、VBAで会社ごとの総計を取り出すという
コードを書こうとしているのですが、うまく実行されず困っております。

ピボットは20社程度の月ごとの売り上げをまとめており、
今回取り出したいのは会社ごとの総計売上となります。
一旦、以下のように記述しました。

Dim 総計 As Double
Dim 会社名 As String
Dim i As Long

　　With ActiveSheet.PivotTables(1)
　　　　For i = 1 To .PivotFields("対象企業").PivotItems.Count
　　　　会社名 = .PivotFields("対象企業").PivotItems(i)
　　　　総計 = .GetData(会社名)
　　　　Next i
　　End With

そうすると以下のようなエラーメッセージが出現しました。
実行時エラー '1004':
アイテム名が曖昧です。ピボットテーブル　レポートのほかのフィールドに、同じ名前のアイテムが有る可能性があります。

構文"フィールド［アイテム］"を使用してください。例えば、アイテムが"オレンジ"でフィールドが"生産物"の場合、"生産物[オレンジ]にします。"

そこで、上記エラーを受けて、以下のように修正しました。

Dim 総計 As Double
Dim 会社名 As String
Dim i As Long

　　With ActiveSheet.PivotTables(1)
　　　　For i = 1 To .PivotFields("対象企業").PivotItems.Count
　　　　会社名 = .PivotFields("対象企業").PivotItems(i)
　　　　総計 = .GetData("対象企業[会社名]")
　　　　Next i
　　End With

しかし、今後はアイテム名が見つかりません。というエラーが出てうまく実行されずにいます。
どこか初歩的なところで間違えているのか、エラーメッセージで各種検索をかけてもうまく解決できなかったので、お手数ですが解決策をご存知でしたらご教示ください。

何卒宜しくお願いします。

4 hits

▼

【80973】ピボットから.GetDataで総計を取る際 とうもろこし 19/6/27(木) 18:47