ユーザー定義範囲の値に基づいてピボットテーブルをフィルタリングします。

Question

ユーザー定義の範囲に基づいてピボットテーブルをフィルタリングするマクロを設定しようとしています。

私が持っているのは、範囲を取得するためのプロンプトです。残念ながら、範囲から値を取り出してフィルターに適用する方法はわかりません。ご協力いただきありがとうございます！

Sub foreachloop() 

    Dim wbmodel As Excel.Workbook 
Set wbmodel = ActiveWorkbook 

Dim rng As Range 
Dim Filter As String 




    With wbmodel.Sheets("Pivot_model").PivotTables("Modelpivot") 

    .ClearAllFilters 

    Set rng = Application.InputBox("select Range", "Inputs", Type:=8) 
    Filter = Application.InputBox("select Filter", "Inputs", Type:=8) 

    MsgBox rng.Address 
    MsgBox Filter 


    For Each PivotItem In .PivotFields(Filter).PivotItems 
    Select Case PivotItem.Name 
     Case rng 
      PivotItem.Visible = True 
     Case Else 
      PivotItem.Visible = False 
     End Select 
    Next PivotItem 


    End With 

    End Sub 

です。私はいくつか（わずかな）アップデートを行いました。私は最初の "For Each"ループを作った。今、私はフィルタを適用するために同様の "each for"ループを行う必要があることを知っています。私は数時間コードと戦ってきたし、次に行くべき場所がわからない。

Answer 1

は、他のすべての隠された、あなたの範囲を順番に持つとピボットアイテムを見えるように、この Filter Excel pivot table using VBA

を試してみてください。