[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『ピポットテーブルのフィルター選択』(マクロファイター)
作成されているピポットテーブルのフィルターを絞りたいです。
フィルター内の値取得することはできたのですが、選択ができません。
行・列ラベルの絞り込みは.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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.