Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3381 / 76735

←次へ　｜　前へ→


	【78985】Re:［無題］

［名前なし］ - 17/4/3(月) 19:33 -


	引用なし

	パスワード

▼ななみさん：
>どういうデータがあって、どういうコードのどこでエラーメッセージが出てくるのかが分からないと・・・。
>この状態で回答できるのは透視が出来る超能力者だけ。

申し訳ありません。
本当に訳が分かっていなくて、どういった書き込みをしていいものかも判然としなくて。

売上データを得意先別にまとめている最中で止まっているようです。
黄色く色がついている場所がエラーの箇所なんですよね？

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～から始まる行に黄色い色がついています。

ここだけ貼り付けても意味がないでしょうか・・・
先週までは問題なく動いていたのですが、売上データを抽出するシステムを、管理者がちょこちょこいじっているようで、何かが変わってしまったようなのですが、どうにもわからないのです。

宜しくお願いします。

4 hits

▼

【78982】［無題］ ［名前なし］ 17/4/3(月) 19:13