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.
Offer Cynhyrchiant Swyddfa Gorau
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...
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!
