Excelピボットテーブルの自動更新後にExcelの自動フィルタ結果を自動更新する方法

Question

Excelピボットテーブルを使用して「概要」タブを作成しました。

ピボットテーブルには、[詳細]タブに格納されているさまざまなカテゴリの選択値の合計が表示されます。 [概要]タブには、このようなピボットテーブルを示し

Select? Type Price 
    Y  Shoe $1.25 
    N  Shoe $1.50 
    Y  Boot $2.00 
    N  Clog $3.00 
    Y  Shoe $0.50 

詳細]タブが含まれています... ...何かが[詳細]タブに変更され、誰かがスイッチたび

Select?  Y 

Row Labels Sum of Price 
Boot   $2.00 
Shoe   $1.75 

[概要]タブには、ピボットテーブルを自動更新して新しいデータと一致させます。

値が変更された場合（以下の最初のコードスニペットを使用）は簡単ですが、YとNが変更された場合、フィルタリングは更新されません。 NからYに変更されたものは、フィルタリングが手動で更新されるまで表示されません。これは私がこれまで持っているものである

...

自動更新にコードピボットテーブルは、例えばあります...

Private Sub Worksheet_Activate() 
    Sheets("Summary").PivotTables("PivotTable1").RefreshTable 
End Sub 

テーブルにおけるオートリフレッシュエクセルオートフィルターカラムにコード（すなわち、ないピボットテーブルの）例えばあります...

Private Sub Worksheet_Change(ByVal Target As Range) 
    With ActiveWorkbook.Worksheets("Details").ListObjects("Table1") 
     .AutoFilter.ApplyFilter 
    End With 
End Sub 

...しかし、私はAutoFilter.ApplyFilterをピボットテーブルに適用する方法を理解できません。何か案は？等価ですか？

私はピボットテーブルのフィルターに触れた最寄りの事は、私が黄色更新したい部分を向けるだろう。このコード...

Worksheets("Details").PivotTables("PivotTable1") _ 
    .PageRange.Interior.Color = vbYellow 

です...が、私はそれをオンにする必要はありません黄色:-)、私は変更されたデータにフィルタを適用したいので、私はを参照する必要があります。間違った値や欠落した行ではなく、を参照してください。

多くのありがとうございます。

Answer 1

2つのことが考えられます...シートのアクティブ化または非アクティブ化時にマクロを実行しています。

Private Sub Worksheet_Activate() 
Worksheet_Change 'Macro name 
End Sub 

これは、要約のためにシートに具体的に関連付けられています。同様に、他のシートに結び付けられたWorksheet_Deactivate（）を使用します。ピボットテーブルの更新をこの同じマクロにスローすることもできます。

Answer 2

...

Private Sub Worksheet_Activate() 
    ActiveSheet.PivotTables("PivotTable1").RefreshTable 
    On Error Resume Next 
     ActiveSheet.PivotTables("PivotTable1").PivotFields("Selection") _ 
    .CurrentPage = "Y" 
End Sub 

を（フィルタを更新していないが、「Y」によるフィルタリングの再適用を選択）マクロを記録している中で、それを編集した結果それは私のために動作します。私はフィルタリングするための "Y"がなかった場合にOn Errorを追加しなければならなかった（不器用に）。

特定のフィルタの選択肢を再適用せずにフィルタリングをリフレッシュするためのより汎用的なソリューションが必要な人は、上記はうまくいきませんが、私の場合は問題ありません。

多くのありがとうございます。