Excel에서 오늘 이전 또는 이후의 모든 날짜 셀을 필터링하는 방법은 무엇입니까?

이 문서에서는 Excel 워크시트에서 오늘 이전 또는 이후의 모든 날짜 셀을 필터링하는 방법에 대해 설명하겠습니다.

필터 기능을 사용하여 오늘 이전 또는 이후의 모든 날짜 셀 필터링

VBA 코드를 사용하여 오늘 이전 또는 이후의 모든 날짜 셀 필터링

필터 기능을 사용하여 오늘 이전 또는 이후의 모든 날짜 셀 필터링

사실, Excel의 필터 기능은 이 작업을 신속하게 해결할 수 있습니다. 다음 단계를 따르세요:

1. 필터링하려는 날짜 열을 선택한 다음 데이터 > 필터를 클릭하세요. 스크린샷 참고:

2. 드롭다운 화살표를 클릭하고 필요에 따라 날짜 필터 > 이전 / 이후를 선택하세요. 스크린샷 참고:

3. 사용자 정의 자동 필터 대화 상자에서 날짜 선택기 버튼을 클릭한 다음 오늘 날짜 선택 달력의 버튼을 클릭합니다. 스크린샷 참고:

4. 확인을 클릭하여 대화 상자를 닫으면 다음과 같은 스크린샷처럼 오늘 이전 또는 이후의 모든 날짜가 필터링됩니다:

VBA 코드를 사용하여 오늘 이전 또는 이후의 모든 날짜 셀 필터링

다음 VBA 코드는 또한 워크시트에서 현재 날짜 이전 또는 이후의 모든 날짜를 필터링하는 데 도움이 될 수 있습니다. 아래 단계를 따르세요:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 코드 중 하나를 붙여넣습니다.

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. 확인 버튼을 클릭하면 오늘 이전 또는 이후의 모든 날짜 셀이 즉시 필터링됩니다.