Excelのセル値に基づいて行を自動フィルタリングするにはどうすればよいですか？

通常、Excelのフィルター機能を使用すると、必要に応じてデータをフィルター処理できますが、手動のセル入力に基づいてセルを自動フィルター処理したい場合があります。つまり、セルに条件を入力すると、データは次のようになります。一度に自動的にフィルタリングされます。 Excelでこの仕事に対処するための良いアイデアはありますか？

VBAコードで入力したセル値に基づいて行を自動フィルタリングする

VBAコードで入力したセル値に基づいて行を自動フィルタリングする

次の範囲のデータがあるとすると、セルE1とE2に基準を入力すると、次のスクリーンショットのようにデータが自動的にフィルタリングされます。

1。 入力したセル値に基づいて日付を自動フィルタリングするワークシートに移動します。

2。 シートタブを右クリックして、 コードを表示 コンテキストメニューから、ポップアウトで アプリケーション向け Microsoft Visual Basic ウィンドウの場合は、次のコードをコピーして空白に貼り付けてください モジュール ウィンドウ、スクリーンショットを参照してください：

VBAコード：入力されたセル値に従ってデータを自動フィルタリングします：

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160606
   If Target.Address = Range("E2").Address Then
       Range("A1:C20").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("E1:E2")
   End If
End Sub

Note：上記のコードでは、 A1：C20 フィルタリングするデータ範囲は、 E2 に基づいてフィルタリングするターゲット値であり、 E1：E2 基準セルはに基づいてフィルタリングされます。 必要に応じて変更できます。

3。 さて、セルに基準を入力すると E1 • E2 を押し 入力します キーを押すと、データはセル値によって自動的にフィルタリングされます。

デモ：VBAコードで入力したセル値に基づいて行を自動フィルタリングする