ピボットテーブルの集計値をVBAでカンマ区切りにしたい

・excelのシートにあるピボットテーブルの集計値の書式をカンマ区切りにするVBAを作成したいのです。どうすればよいでしょうか。

・汎用的なVBAにしたいので、ピボットテーブル名やフィールド名もVBAで取得するようにしたいです。

・VBAを実行する前に、その集計値の1つを選択しておきます。

よろしくお願いいたします。

No.1 回答者： keithin 回答日時： 2010/03/21 19:22

Sub macro1()

　Dim t As PivotTable
　Set t = get_table(ActiveCell)
　If t Is Nothing Then
　Else
　t.DataBodyRange.NumberFormat = "#,##0"
　End If
End Sub

Function get_table(r As Range) As PivotTable
　Dim t As PivotTable
　For Each t In r.Parent.PivotTables
　　If Not Application.Intersect(t.TableRange1, r) Is Nothing Then
　　Set get_table = t
　　Exit Function
　　End If
　Next
End Function

てなぐあいで。

この回答へのお礼

ありがとうございます。
さっそく試してみました。希望していた通りです。
助かりました。ありがとうございました。

お礼日時：2010/03/21 21:11

No.2 回答者： keithin 回答日時： 2010/03/21 21:33

もうちょっと簡単なやり方があったのを思い出しました。

Sub Macro2()
　On Error GoTo errhandle
　ActiveCell.PivotCell.Parent.TableRange1.NumberFormat = "#,##0"
　Exit Sub
errhandle:
　'not in pivottable
End Sub

＃その他，オブジェクトブラウザやVBEのヘルプでピボットテーブルに何が出来るのか色々な機能を読んで，活用してください。

この回答へのお礼

簡潔な記述の方が助かります。
アドバイスもありがとうございます。

お礼日時：2010/03/22 01:43