Skip i'r prif gynnwys

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:

hidlydd doc defore heddiw 1

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

hidlydd doc defore heddiw 2

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

hidlydd doc defore heddiw 4

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:

hidlydd doc defore heddiw 5


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:

hidlydd doc defore heddiw 6

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

Offer Cynhyrchiant Swyddfa Gorau

Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

tab kte 201905


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
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