[[20071228144305]]　『VBA : ピボットテーブルのデータエリア集計方法』（の）　ページの最後に飛ぶ

『VBA : ピボットテーブルのデータエリア集計方法』（の）

よく話題に出る話ですが、Pivot Tabelを作ったとき、もとデータに文字列が含まれていると、データエリアの集計が最初「データの個数」になってしまいますよね。20列程あるテーブルを、いつも1列1列「フィールドの設定」で「合計」に直しているのですが、マクロで一気に直せればうれしいです。VBAでどう書けばよいか教えて下さい。宜しくお願いします。

 記録をとってみればいいと思いますが。
 例えば個数を合計に変更の場合

    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("データの個数 : 年齢").Function = _
        xlSum

 こうなり、合計を個数に変更だと

    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").PivotFields("合計 : 年齢").Function = _
        xlCount

 こうなります。(なおちん。)

なおちんさん、お返事ありがとうございます。しかし、２０列ほどのテーブルというのは、毎回フィールド名（項目名）が違うのです。

 あまり自信はありませんが、一応合計になりました。（まあ）
Sub 合計に()
    Dim pvtfield As PivotField
    On Error Resume Next
    For Each pvtfield In ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").DataFields
        pvtfield.Function = xlSum
    Next
End Sub

コメント返信：

[ 一覧(最新更新順) ]

[[20071228144305]] 『VBA : ピボットテーブルのデータエリア集計方法』（の） ページの最後に飛ぶ

[[20071228144305]]　『VBA : ピボットテーブルのデータエリア集計方法』（の）　ページの最後に飛ぶ