Excel VBA質問箱 IV

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

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


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

3379 / 76735

←次へ　｜　前へ→


	【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

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

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

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

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

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

5 hits

▼

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