[[20230127173643]]　『ピポットテーブルのフィルター選択』（マクロファイター）　ページの最後に飛ぶ

『ピポットテーブルのフィルター選択』（マクロファイター）

作成されているピポットテーブルのフィルターを絞りたいです。
フィルター内の値取得することはできたのですが、選択ができません。
行・列ラベルの絞り込みは.PivotFilters.Add2 xlCaptionIsLessThanOrEqualTo　などでできたのですが、フィルターの選択ができず困っています。

全体の流れは、フィルターの値を上から順に取得・選択し、それに応じたフィールドの値を取得、別ファイルに転記　になります。

フィルターの選択方法をご教示頂けないでしょうか。

よろしくお願いいたします。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 やり方わからないので、別案は受け付けてくれますか？

 ＞フィルターの値を上から順に取得・選択し
 これは元データから取ったほうが早いんじゃないかしら？

 私がよく使うのは
 日付フィルタでスピンボタン風フォームボタンを作って
 直接フィルタの値（セル）書き換えちゃってます。

（稲葉） 2023/01/27(金) 20:43:29

 スライサーを挿入したらどうでしょう
 スライサーの挿入のマクロの記録とってみてください
 で、
 aというフィールドのスライサとして、
 i番目のアイテムをONにしたら、それ以外のアイテムをOFFにするという感じで

　Sub test()

    Dim s As SlicerItem
    With ActiveWorkbook.SlicerCaches("スライサー_a")
        For i = 1 To .SlicerItems.Count
           .SlicerItems(i).Selected = True
           For j = 1 To .SlicerItems.Count
              If i <> j Then .SlicerItems(j).Selected = False
           Next
        Stop
        Next
    End With
 End Sub
（´・ω・`） 2023/01/27(金) 21:11:26

 >フィルターの値を上から順に取得・選択し、それに応じたフィールドの値を取得
 というか、フィルターかけないで、RowFieldにいれちゃってもいいんでないでしょうか

 または、別ファイルに転記するなら、
 まるまる転記できるとこまでパワークエリで整形するのも一つの方法では？
（´・ω・`） 2023/01/27(金) 21:16:22

コメント返信：

[ 一覧(最新更新順) ]

[[20230127173643]] 『ピポットテーブルのフィルター選択』（マクロファイター） ページの最後に飛ぶ

[[20230127173643]]　『ピポットテーブルのフィルター選択』（マクロファイター）　ページの最後に飛ぶ