チャンピオンのように機能し、とてもシンプルです。 どうもありがとうございます！

こんにちは、それはうまくいきますが、テーブルのデータを手動で変更する場合に限ります。

別のワークシートのデータ入力から入力される「トップ3/リーダーボード」スタイルのフィルター処理されたテーブルがあります（実際には、データはテーブルに到達する前にXNUMXつのワークシートを通過します）。 データ入力ワークシートでデータが変更されると、リーダーボードテーブルの数値は更新されますが、フィルターは自動更新されません。
それを行う方法についてのアイデアはありますか？
とても感謝しております。
Alex Vetsak

こんにちは、助けてくれてありがとう。 何かがうまく機能していません。 これが物語です。

Sheet1には可変データがあります。 Sheet3には静的データとフィルターがあります。 「Sheet3」のフィルター基準はSheet1から取得されます。 Sheet1には、Sheet3でフィルタリングされた結果から得られたデータがあります。

Sheet3のコードは次のとおりです。

Private Sub Worksheet_SelectionChange（ByVal Target As Range）
Range（ "A1：U14"）。AdvancedFilter Action：= xlFilterCopy、CriteriaRange：= Range（ "A22：U23"）、CopyToRange：= Range（ "A25：U26"）、Unique：= False
End Subの

Sheet3で何かをするとうまくいきます。 問題はありません。 ありがとうございました！

最初はSheet1にコードがありました：

プライベートサブワークシート_Change（ByValターゲットを範囲として）
Sheets（ "Sheet3"）。AutoFilter.ApplyFilter
End Subの

その結果、「ランタイムエラー91、オブジェクト変数またはブロックが設定されていません」というエラーが発生しました。

コメントに基づいてコードを次のように変更しました。

プライベートサブワークシート_Change（ByValターゲットを範囲として）
エラーで次の再開
Sheets（ "Sheet3"）。AutoFilter.ApplyFilter
End Subの

エラーは発生しませんが、Sheet3のデータ、つまりSheet1のデータは変更されません。 つまり、Sheet3に変更を加えても、Sheet1にフィルターを適用するイベントは発生しません。 ヒットしてもかまいませんまたは、Sheet3に設定されているSheet1フィルター基準セルを変更した後、別のセルをクリックします。

余談ですが、Sheet1に複数のセルがあり、Sheet4に加えてSheet 5と3にフィルターが必要な場合は、Sheet1のコードで次のように読み替える必要があります。

プライベートサブワークシート_Change（ByValターゲットを範囲として）
エラーで次の再開
Sheets（ "Sheet3"）。AutoFilter.ApplyFilter
Sheets（ "Sheet4"）。AutoFilter.ApplyFilter
Sheets（ "Sheet5"）。AutoFilter.ApplyFilter
End Subの

おかげで再び！