|
hisao さん、おはようございます。
> ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:="仕入台帳", _
> TableDestination:="R1C1", TableName:="ピボットテーブル1"
> ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:="支払台帳", _
> TableDestination:="R1C1", TableName:="ピボットテーブル2"
>Selection.FormulaR1C1 = _
> "=IF(ISERROR(INDEX(買2,MATCH(RC1,買列2,0),MATCH(R1C,買行2,0))),0,INDEX(買2,MATCH(RC1,買列2,0),MATCH(R1C,買行2,0)))"
マクロで、ピボットテーブルのデータの更新ではなくを再作成およびセルに数式を挿入しているようなので、
ピボットテーブルの範囲(買2等)を参照している数式(の範囲)を消去
念のため 名前(Namesコレクションオブジェクト) を削除
ピボットテーブルを削除
その後でピボットを更新してみてはいかがでしょうか?
|
|