締切済み

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

2010/03/21 19:07

・excelのシートにあるピボットテーブルの集計値の書式をカンマ区切りにするVBAを作成したいのです。どうすればよいでしょうか。・汎用的なVBAにしたいので、ピボットテーブル名やフィールド名もVBAで取得するようにしたいです。・VBAを実行する前に、その集計値の1つを選択しておきます。よろしくお願いいたします。

shawshaw
お礼率66% (4/6)

その他MS Office製品
回答数2
ありがとう数3

みんなの回答 （2）
専門家の回答

みんなの回答

keithin
ベストアンサー率66% (5278/7941)

2010/03/21 21:33 回答No.2

もうちょっと簡単なやり方があったのを思い出しました。 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

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

ログインすると、全ての回答が全文表示されます。

keithin
ベストアンサー率66% (5278/7941)

2010/03/21 19:22 回答No.1

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 てなぐあいで。

質問者