Excel VBA質問箱 IV

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

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


14262 / 76734 ←次へ | 前へ→

【67971】Re:ピボットテーブルのフィルタ操作
発言  n  - 11/1/20(木) 0:38 -

引用なし
パスワード
   【65195】のコードをベースにしたものをそのまま流用したので不要な処理でした。
混乱させてしまってすみません。

意図としては、
【65195】では対象フィールドが行フィールドにある事が保証されてないケースを考えてました。
On Error Resume Next
Set pf = .PivotFields(Trg)
Set r = Intersect(pf.DataRange, .RowRange)
On Error GoTo 0
If Not r Is Nothing Then

変数rが取得できなければ、対象フィールドが行フィールドに無いと判断できます。

ですが、今回は事前に
pf.Orientation = xlRowField
ここでセットしてるので不要でした。
pf.DataRange のみで大丈夫です。
6 hits

【67708】ピボットテーブルのフィルタ操作 H=R 10/12/29(水) 14:12 質問
【67795】Re:ピボットテーブルのフィルタ操作 n 11/1/8(土) 22:50 発言
【67930】Re:ピボットテーブルのフィルタ操作 H=R 11/1/17(月) 18:45 質問
【67933】Re:ピボットテーブルのフィルタ操作 n 11/1/17(月) 19:39 発言
【67943】Re:ピボットテーブルのフィルタ操作 H=R 11/1/18(火) 14:29 お礼
【67952】Re:ピボットテーブルのフィルタ操作 n 11/1/18(火) 20:23 発言
【67969】Re:ピボットテーブルのフィルタ操作 H=R 11/1/19(水) 21:28 お礼
【67970】Re:ピボットテーブルのフィルタ操作 H=R 11/1/19(水) 23:50 質問
【67971】Re:ピボットテーブルのフィルタ操作 n 11/1/20(木) 0:38 発言
【67972】Re:ピボットテーブルのフィルタ操作 H=R 11/1/20(木) 8:55 お礼

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