' ピボットテーブルを使用しなければならない場合は、できるだけピボットシートを
' 事前に用意しておいて、ピボットの処理範囲に、ﾃﾞｰﾀを貼り付けるなどした方が間違いない.
With ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ6").PivotFields("数量")
.Orientation = xlDataField ' 数値フィールドにする。
.Name = "合計 : 数量"
.Position = 1
.Function = xlSum
End With