Excelで高度なフィルター結果を自動的に更新するにはどうすればよいですか？

高度なフィルター機能を適用すると、フィルターされた結果が基準の変更によって自動的に変更されないことがわかります。 これには、新しい結果を取得するために、高度なフィルター機能をもう一度適用する必要があります。 しかし、Excelに表示されている次のスクリーンショットのように、高度なフィルター結果を自動的に更新するための優れた簡単なトリックはありますか？

高度なフィルター結果をVBAコードで自動的に更新します

高度なフィルター結果をVBAコードで自動的に更新します

次のVBAコードは、必要に応じて基準を変更したときに、高度なフィルター結果を自動的に更新するのに役立つ場合があります。次のようにしてください。

1。 データを自動的にフィルタリングするシートタブを右クリックして、 コードを表示 コンテキストメニューから、開いた状態で アプリケーション用のMicrosoftVisual Basic ウィンドウで、次のコードをコピーして空のモジュールに貼り付けます。

VBAコード：高度なフィルター結果を自動的に更新します：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A5:D21").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
("A1:C3"), Unique:=False
End Sub

Note：上記のコードでは： A5：D21 フィルタリングするデータ範囲です。 A1：C3 に基づいてフィルタリングする基準範囲です。

2。 次に、コードウィンドウを保存して閉じます。これで、基準範囲の基準を変更すると、フィルタリングされた結果がすぐに自動的に更新されます。