Excel VBA質問箱 IV

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

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


13 / 13327 ツリー ←次へ | 前へ→

【80973】ピボットから.GetDataで総計を取る際 とうもろこし 19/6/27(木) 18:47 質問[未読]
【80974】Re:ピボットから.GetDataで総計を取る際 マナ 19/6/27(木) 19:02 発言[未読]
【80975】Re:ピボットから.GetDataで総計を取る際 とうもろこし 19/6/27(木) 19:20 質問[未読]
【80976】Re:ピボットから.GetDataで総計を取る際 マナ 19/6/27(木) 19:48 発言[未読]

【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

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

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

【80974】Re:ピボットから.GetDataで総計を取る際
発言  マナ  - 19/6/27(木) 19:02 -

引用なし
パスワード
   ▼とうもろこし さん:

ht tp://officetanaka.net/excel/vba/tips/tips186.htm

【80975】Re:ピボットから.GetDataで総計を取る際
質問  とうもろこし  - 19/6/27(木) 19:20 -

引用なし
パスワード
   ▼マナ さん:
>▼とうもろこし さん:
>
>ht tp://officetanaka.net/excel/vba/tips/tips186.htm

早速のご返信ありがとうございます。
まさにそのページを見ながら作業していたのですが、解決できずでした…
申し訳ないのですが、具体的な修正ポイントをご指摘いただけますと大変助かります。

【80976】Re:ピボットから.GetDataで総計を取る際
発言  マナ  - 19/6/27(木) 19:48 -

引用なし
パスワード
   ▼とうもろこし さん:

ピボットのレイアウトを具体的に説明してください。

13 / 13327 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free