2つのセル値を使用したピボットテーブルのフィルタ

Question

2つの異なるフィルタの2つのセル値に基づいてピボットテーブルをフィルタリングしようとしています。私は自分が持っているセルの1つに適応することができるコードを見つけました。下のセルにある2番目のセルをどのように統合するのかは分かりません（下記のコードを参照してください）。

助けてくれてありがとう！

Answer 1

私はさらに問題を考え出した。

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

'This line stops the worksheet updating on every change, it only updates when cell 
'H6 or H7 is touched 
If Intersect(Target, Range("H6:H7")) Is Nothing Then Exit Sub 

'Set the Variables to be used 
Dim pt As PivotTable 
Dim Field1 As PivotField 
Dim Field2 As PivotField 
Dim NewCat1 As String 
Dim NewCat2 As String 

'Here you amend to suit your data 
Set pt = Worksheets("Sheet1").PivotTables("PivotTable1") 
Set Field1 = pt.PivotFields("Category1") 
Set Field1 = pt.PivotFields("Category2") 
NewCat1 = Worksheets("Sheet1").Range("H6").Value 
NewCat2 = Worksheets("Sheet1").Range("H7").Value 

'This updates and refreshes the PIVOT table 
With pt 
Field1.ClearAllFilters 
Field1.CurrentPage = NewCat1 
Field2.ClearAllFilters 
Field2.CurrentPage = NewCat2 
pt.RefreshTable 
End With 

End Sub