| |
▼［名前なし］ さん：
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
こんなコードを実行して、実際のフィールドとして、どんなものがあるか確かめてもいいでしょう。
その中に、得意先 という名前のフィールドは無いはずです。
なぜ、なくなったのかはわかりません。
>管理者がちょこちょこいじっているようで
管理者に聞いてください。
|
|
β
- 17/4/3(月) 20:36 -
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
