質問: false end with
回答: ver2007でclearallfiltersメソッドが追加されました。 繰り返して使う場合も想定して、clearallfiltersで一旦全表示にします。 その後、表示したいアイテムを指定して、それ以外(case else)は非表示、 という処理で良いかと思います。 sub try() dim pf as pivotfield dim p as pivotitem set pf = activesheet.pivottables("数量予測").pivotfields("メーカー") pf.orientation = xlpagefield pf.clearallfilters for each p in pf.pivotitems select case p.value case "a", "c" '表示アイテム名をカンマ区切りで指定 case else p.visible = false end select next end sub ver2007以降でないと動作しません。 2003でも使う可能性があるなら以下のようにpagefieldを再配置。 但し、再配置前に更新する必要があります。 sub try_2() dim pf as pivotfield dim p as pivotitem set pf = activesheet.pivottables("数量予測").pivotfields("メーカー") pf.orientation = xlhidden pf.parent.pivotcache.refresh pf.orientation = xlpagefield for each p in pf.pivotitems select case p.value case "a", "c" '表示アイテム名をカンマ区切りで指定 case else p.visible = false end select next end sub