- 878 名前：876 [2010/04/05(月) 08:04:46 ]
- >>877
レスありがとうございます。
そのコードを追加したら、
実行時エラー'1004':
PivotFieldクラスのFunctionプロパティを設定できません。
になりました。どうすれば良いのでしょうか？
追加した位置は、下記のステートメントの次です。
ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ4").PivotFields("金額").Orientation = _
xlDataField
よろしくお願いします。
