>>876
ActiveSheet.PivotTables("ピボットテーブル4").PivotFields("金額").Function = xlSum