Excel VBA質問箱 IV

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

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


42 / 13006 ツリー ←次へ | 前へ→

【78982】[無題] [名前なし] 17/4/3(月) 19:13 質問[未読]
【78983】Re:[無題] ななみ 17/4/3(月) 19:21 発言[未読]
【78985】Re:[無題] [名前なし] 17/4/3(月) 19:33 質問[未読]
【78987】Re:[無題] β 17/4/3(月) 20:36 発言[未読]
【78988】Re:[無題] [名前なし] 17/4/3(月) 20:50 お礼[未読]
【78984】Re:[無題] β 17/4/3(月) 19:32 発言[未読]
【78986】Re:[無題] [名前なし] 17/4/3(月) 19:34 お礼[未読]

【78982】[無題]
質問  [名前なし]  - 17/4/3(月) 19:13 -

引用なし
パスワード
   教えて下さい。

エラー'1004'
PivotTableクラスのPivotFieldsプロパティを取得できません

とメッセージが出ます。

どういった意味で、どういう修正をすればよいのでしょうか?

【78983】Re:[無題]
発言  ななみ  - 17/4/3(月) 19:21 -

引用なし
パスワード
   どういうデータがあって、どういうコードのどこでエラーメッセージが出てくるのかが分からないと・・・。
この状態で回答できるのは透視が出来る超能力者だけ。

【78984】Re:[無題]
発言  β  - 17/4/3(月) 19:32 -

引用なし
パスワード
   ▼[名前なし] さん:

このメッセージ、

PivotTableクラスのPivotFieldsプロパティを取得できません

これを、そのまま検索語にしてググってみてください。
どっさりと説明ページがでてみます。

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

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

宜しくお願いします。

【78986】Re:[無題]
お礼  [名前なし]  - 17/4/3(月) 19:34 -

引用なし
パスワード
   ▼β さん:
>▼[名前なし] さん:
>
>このメッセージ、
>
>PivotTableクラスのPivotFieldsプロパティを取得できません
>
>これを、そのまま検索語にしてググってみてください。
>どっさりと説明ページがでてみます。


ありがとうございます。

検索してみたのですが、どうにもわからなくて。
もう一度いろいろ探してみます。

【78987】Re:[無題]
発言  β  - 17/4/3(月) 20:36 -

引用なし
パスワード
   ▼[名前なし] さん:

With ActiveSheet.PivotTables("得意先別売上金額").PivotFields("得意先")
ここでエラーで、かつメッセージが

PivotTableクラスのPivotFieldsプロパティを取得できません

ですから少なくとも 得意先別売上金額という名前のPivotTable は存在するわけですね。

であれば、あとは、得意先 というフィールドがないということになります。

ピボットテーブル内のセルをクリックして 分析->表示グループのフィールドリスト
でも確認できますし、

Sub Test()
  Dim pf As PivotField
  
  For Each pf In ActiveSheet.PivotTables("得意先別売上金額").PivotFields
    MsgBox pf.Name
  Next
  
End Sub

こんなコードを実行して、実際のフィールドとして、どんなものがあるか確かめてもいいでしょう。

その中に、得意先 という名前のフィールドは無いはずです。

なぜ、なくなったのかはわかりません。

>管理者がちょこちょこいじっているようで

管理者に聞いてください。

【78988】Re:[無題]
お礼  [名前なし]  - 17/4/3(月) 20:50 -

引用なし
パスワード
   ▼β さん:
無事動きました!

>管理者に聞いてください
の箇所でハッとして、VBAをどうこうしようとしたのではなく、元の貼りつけたデータの行の名前を修正したところ、正常に処理が終了しました。

「得意先」が「得意先名」になっていて、
VBAの方でそれを修正していたつもりがきちんと保存して修正が完了しないままだったようで、一日中同じことを繰り返しては悩んでいたようです。

β様の意図したところではないかもしれませんが、とても助かりました。
きちんと用語がわかっていないので、この書き込みのお礼すら何を言っているのかわかってもらえない可能性もありますが・・・

本当にありがとうございました。

42 / 13006 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free