メインコンテンツへスキップ

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

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

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

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


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

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

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

今日のドキュメントフィルターdefore1

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

今日のドキュメントフィルターdefore2

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

今日のドキュメントフィルターdefore4

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

今日のドキュメントフィルターdefore5


今日の前後のすべての日付セルを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 キーを押してこのコードを実行すると、フィルタリングする日付列を選択したことを知らせるプロンプト ボックスが表示されます。スクリーンショットを参照してください。

今日のドキュメントフィルターdefore6

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

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I HAVE DATA in a following format
12/11/2018 16:10
12/11/2018 16:10
12/11/2018 16:10
12/11/2018 16:10
12/11/2018 16:10
12/11/2018 16:10
12/11/2018 16:10
12/11/2018 16:10
12/11/2018 16:10
12/11/2018 16:10



and I want to filter it for TODAY - LAST 7 Days Excluding Today , That is if today is 12 Dec I want filter for 12 Dec and December[ 11,10,9,8,7,6,5] .
How to create custom filter for this in MS Excel
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations