| |
ピボットテーブルを自動作成しようと、
下記の通り記述しました。
しかし、金額フィールドの表示形式のところで、
「参照が不正または不完全です。」
とエラーになります。
どの箇所を修正すれば、データフィールドの金額に桁区切りカンマを
設定できるのでしょうか？
宜しくお願い致します。
'【商品コードごとの売上金額を集計シートにまとめる。】
Sub ピボットテーブル作成()
Dim DataS As Worksheet 'データシート
Dim PivotS As Worksheet 'ピボットテーブルを作成するシート
Dim PCache As PivotCache 'ピボットキャッシュ用変数
Set DataS = ThisWorkbook.Worksheets("ソート")
'『ソート』シートからピボットキャッシュを作成
Set PCache = ActiveWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, _
SourceData:=DataS.Range("a1").CurrentRegion)
'『集計』シートを追加
Worksheets.Add
ActiveSheet.Name = "集計"
Set PivotS = ThisWorkbook.Worksheets("集計")
'『集計』シートにピボットテーブル作成
PCache.CreatePivotTable _
TableDestination:=PivotS.Range("A1"), _
TableName:="商品別売上表"
End Sub
Sub フィールド追加()
Dim PivotS As Worksheet 'ピボットテーブルがあるシート
Set PivotS = ThisWorkbook.Worksheets("集計")
'ピボットテーブルに行と列フィールドを追加
PivotS.PivotTables("商品別売上表").AddFields ColumnFields:=Array("売上日"), _
RowFields:=Array("品名コード")
'ピボットテーブルに値フィールドを追加
PivotS.PivotTables("商品別売上表").AddDataField _
Field:=PivotS.PivotTables("商品別売上表").PivotFields("金額"), _
Caption:="合計 / 金額", _
Function:=xlSum
'エラーヶ所↓↓
With .PivotFields("金額")
.Orientation = xlDataField
.Caption = "合計 / 金額"
.NumberFormat = "#,##0_ "
End With
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
