Excelで今日の前後のすべての日付セルをフィルタリングするにはどうすればよいですか？

この記事では、Excelワークシートで今日の前後のすべての日付セルをフィルタリングする方法について説明します。

フィルタ機能を使用して、今日の前後のすべての日付セルをフィルタリングします

今日の前後のすべての日付セルをVBAコードでフィルタリングする

フィルタ機能を使用して、今日の前後のすべての日付セルをフィルタリングします

実際、Excelのフィルター機能を使用すると、このタスクをできるだけ早く解決できます。次のようにしてください。

1。 フィルタリングする日付列を選択し、[ 且つ > フィルタ、スクリーンショットを参照してください：

2。 次に、ドロップダウン矢印をクリックして、 日付フィルター > 前 / 後 必要に応じて、スクリーンショットを参照してください。

3。 の中に カスタムオートフィルター ダイアログボックスで、をクリックします。 日付ピッカー ボタンをクリックし、次にをクリックします。 現在 日付ピッカーカレンダーのボタン。screesnhotを参照してください。

4。 次に、をクリックします OK ダイアログを閉じるには、次のスクリーンショットのように、今日の前後のすべての日付が除外されています。

今日の前後のすべての日付セルをVBAコードでフィルタリングする

次のVBAコードは、ワークシートで当日の前後のすべての日付をフィルタリングするのにも役立ちます。 以下の手順で実行してください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードのいずれかをに貼り付けます モジュール 窓。

VBAコード：今日より前のすべての日付セルをフィルタリングします。

Sub FilterDateBeforeToday()
    Dim xLastRow As Long
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox("Please select filtered column：", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    ActiveSheet.AutoFilterMode = False
    If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
    xRg.AutoFilter 1, "<" & CDbl(Date)
    Application.ScreenUpdating = True
End Sub

VBA コード: 今日以降の日付セルをすべてフィルターします:

Sub FilterDateBeforeToday()
    Dim xLastRow As Long
    Dim xRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox("Please select filtered column：", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    ActiveSheet.AutoFilterMode = False
    If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
    xRg.AutoFilter 1, ">" & CDbl(Date)
    Application.ScreenUpdating = True
End Sub

3。 上記のコードのいずれかをコピーして貼り付けた後、 を押します。 F5 キーを押してこのコードを実行すると、フィルタリングする日付列を選択したことを知らせるプロンプト ボックスが表示されます。スクリーンショットを参照してください。

4。 そして、 OK ボタンをクリックすると、今日の前後のすべての日付セルがすぐにフィルターで除外されます。