| |
みなさま、こんにちは。
最近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
しかし、今後はアイテム名が見つかりません。というエラーが出てうまく実行されずにいます。
どこか初歩的なところで間違えているのか、エラーメッセージで各種検索をかけてもうまく解決できなかったので、お手数ですが解決策をご存知でしたらご教示ください。
何卒宜しくお願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
