| |
▼ななみ さん：
>どういうデータがあって、どういうコードのどこでエラーメッセージが出てくるのかが分からないと・・・。
>この状態で回答できるのは透視が出来る超能力者だけ。
申し訳ありません。
本当に訳が分かっていなくて、どういった書き込みをしていいものかも判然としなくて。
売上データを得意先別にまとめている最中で止まっているようです。
黄色く色がついている場所がエラーの箇所なんですよね？
Sheets("月報用データ(得意先別)").Select
Cells(1, 1).Select
With ActiveSheet.PivotTables("得意先別売上金額").PivotFields("得意先")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("得意先別売上金額").AddDataField _
ActiveSheet.PivotTables("得意先別売上金額").PivotFields("外税金額"), "データの個数 / 外税金額", xlCount
With ActiveSheet.PivotTables("得意先別売上金額").PivotFields("データの個数 / 外税金額")
.Caption = "合計 / 外税金額"
.Function = xlSum
End With
With ActiveSheet.PivotTables("得意先別売上金額").PivotFields("得意先")
.PivotItems("(blank)").Visible = False
End With
ActiveWorkbook.Save
3行目のWith〜から始まる行に黄色い色がついています。
ここだけ貼り付けても意味がないでしょうか・・・
先週までは問題なく動いていたのですが、売上データを抽出するシステムを、管理者がちょこちょこいじっているようで、何かが変わってしまったようなのですが、どうにもわからないのです。
宜しくお願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
