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

質問

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

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

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

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

回答No.2

keithin

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

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

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

お礼

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

回答No.1

keithin

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

てなぐあいで。

お礼

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