Sut i hidlo'r holl gelloedd dyddiad cyn neu ar ôl heddiw yn Excel?

Yn yr erthygl hon, byddaf yn siarad am sut i hidlo'r holl gelloedd dyddiad sydd cyn neu ar ôl heddiw yn nhaflen waith Excel.

Hidlo'r holl gelloedd dyddiad cyn neu ar ôl heddiw gyda swyddogaeth Hidlo

Hidlo pob cell dyddiad cyn neu ar ôl heddiw gyda chod VBA

Hidlo'r holl gelloedd dyddiad cyn neu ar ôl heddiw gyda swyddogaeth Hidlo

Mewn gwirionedd, gall y nodwedd Hidlo yn Excel eich helpu chi i ddatrys y dasg hon cyn gynted ag y gallwch, gwnewch fel hyn:

1. Dewiswch y golofn dyddiad rydych chi am ei hidlo, ac yna cliciwch Dyddiad > Hidlo, gweler y screenshot:

2. Yna cliciwch y gwymplen, ac yna dewiswch Hidlau Dyddiad > cyn / Ar ôl yn ôl yr angen, gweler y screenshot:

3. Yn y AutoFilter Custom blwch deialog, cliciwch Dewiswr Dyddiad botwm, ac yna cliciwch Heddiw botwm yn y calendr codwr dyddiad, gweler y sgrinlun:

4. Yna cliciwch OK i gau'r ymgom, ac mae'r holl ddyddiadau cyn neu ar ôl heddiw wedi'u hidlo allan fel y dangosir y llun a ganlyn:

Hidlo pob cell dyddiad cyn neu ar ôl heddiw gyda chod VBA

Gall y codau VBA canlynol hefyd eich helpu i hidlo'r holl ddyddiadau cyn neu ar ôl y diwrnod cyfredol mewn taflen waith. Gwnewch y camau isod: Os gwelwch yn dda:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludo un o'r codau canlynol yn y Modiwlau Ffenestr.

Cod VBA: Hidlo'r holl gelloedd dyddiad cyn heddiw:

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

Cod VBA: Hidlo'r holl gelloedd dyddiad ar ôl heddiw:

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. Ar ôl copïo a gludo un o'r codau uchod, yna pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan i'ch atgoffa ichi ddewis y golofn dyddiad rydych chi am ei hidlo, gweler y screenshot:

4. Ac yna cliciwch OK botwm, yr holl gelloedd dyddiad a fydd cyn neu ar ôl heddiw yn cael eu hidlo allan ar unwaith.